Рисование на PictureBox и создание текстовой справки

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
PORTER
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 18.11.2004 (Чт) 0:09
Откуда: Новороссийск

Рисование на PictureBox и создание текстовой справки

Сообщение PORTER » 25.11.2004 (Чт) 23:39

Здраствуйте!!!

Имеется программа под названием "Простейший графический редактор", но прочерчивание линий происходит непосредственно на форме!
Как рисовать на чем-то еще (может на PictureBox) и , если не трудно, напишите пожалуйста программный код для этой программы!
(Т.е. добавьте или удалите, что необходимо).

Имеем на данный момент:

Dim IsDraw As Boolean
Option Explicit

Private Sub Exit_Click()
'Выход из графического редактора с помощью вкладки Выход
ГрафРедактор.Hide
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
IsDraw = True
CurrentX = X
CurrentY = Y

'Режим "Карандаш" (нажата левая кнопка мыши)
'Цвет: чёрный; толщина: 1твип.
If Button = vbLeftButton Then
DrawWidth = 1
ForeColor = vbBlack
End If

'Режим "Резинка" (нажата правая кнопка мыши)
'Цвет: фоновый; толшина: 25 твипов.
If Button = vbRightButton Then
DrawWidth = 20
ForeColor = BackColor
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Прочерчивание линии
If IsDraw Then
Line -(X, Y)
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
IsDraw = False
End Sub

Заранее благодарю!!!!!

Подскажите ещё пожалуйста, как сделать так, чтобы, нажав на вкладку "О программе" в меню, получить открытый текстовый документ, в котором все данные будут написаны???

Напишите, пожалуйста код для этого задания!
Спасибо огромное!!!
Где наша не пропадала, везде пропадала...

GM
programador
programador
 
Сообщения: 1427
Зарегистрирован: 24.06.2003 (Вт) 15:56
Откуда: 194.67.52.100

Сообщение GM » 26.11.2004 (Пт) 2:54

1.Так же как и на форме только с Picture1.
2. Shell("notepad readme.txt")
الفيجوال بيسك الرابح


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot и гости: 18

    TopList