Я - -полный профан в VB 6.0, но помощь просто необходима!!!

[PORTER]

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

Имеется программа под названием "Простейший графический редактор", но прочерчивание линий происходит непосредственно на форме!
Как рисовать на чем-то еще (может на 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

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

[--=GAMER=--]

Код: Выделить всё

Dim x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer, coord As Integer
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Запись координат
coord = coord + 1
If coord = 1 Then
x1 = X
y1 = Y
End If
If coord = 2 Then
x2 = X
y2 = Y
'Прорисовка
Picture1.ForeColor = vbBlack
Picture1.DrawWidth = 5
Picture1.Line (x1, y1)-(x2, y2)
coord = 0
End If
End Sub


[A.A.Z.]

[off]"Профан" = профессионал? Если да, то откажись от твипов навсегда [/off]

[PORTER]

Спасибо большое, помогли!
Я очень вам всем благодарен!
Но возникли ещё вопросы:
1) to --=GAMER=-- я ваш код добавил к своему коду, теперь я могу рисовать на PictureBox, но... если зажать левую кнопку мыши на форме, то рисовать можно везде, если зажать левую кнопку мыши непосредственно на PictureBox, ничерта не рисуется...

[PORTER]

Простите! Всё теперь рисуется; как я понял, надо ставить 2 точки на PictureBox и появляется линия, а не водить мышь вверх-вниз, прочерчивая за собой линию????

[--=GAMER=--]

Простите! Всё теперь рисуется; как я понял, надо ставить 2 точки на PictureBox и появляется линия, а не водить мышь вверх-вниз, прочерчивая за собой линию????

Совершенно верно...
Просто забыл об этом сказать...
И ещё, я составлял этот код без добавления к твоему, тоесть - отдельно...
Для удобства можно при первом щелчке поставить маленькую красную точку...

Код: Выделить всё

picture1.forecolor=vbred
picture1.drawwidht=2
picture1.line (x1,y1)-(x1,y1)


Можно эту точку поставить и через другой оператор, но я просто забыл через какой (вроде на P начинается .....

[--=GAMER=--]

Кстати помогите и мне как сделать так что-бы линия после первого сщелчка рисовалась как в paint'e, но при этом остальной рисунок оставался "целым - нетронутым"

[tyomitch]

Можно эту точку поставить и через другой оператор, но я просто забыл через какой (вроде на P начинается .....

PSet

[tyomitch]

Кстати помогите и мне как сделать так что-бы линия после первого сщелчка рисовалась как в paint'e, но при этом остальной рисунок оставался "целым - нетронутым"

Вот один из вариантов:

Код: Выделить всё

Option Explicit
Private sx As Single, sy As Single

Private Sub Form_Load()
AutoRedraw = True
DrawWidth = 5
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
sx = X: sy = Y: Form_MouseMove Button, Shift, X, Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
    Cls
    Line (sx, sy)-(X, Y)
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture = Image
End Sub


[d3drm]

Вот пример, рисует на пикбоксе, цвет линий мож менять там, ширину...

[tyomitch]

А моя рисовалка через GDI+ тут: http://bbs.vbstreets.ru/viewtopic.php?p=60402#60402
Ей нужна длл-ка, которая тут: http://mix.web.ur.ru/JPEG.zip

[d3drm]

тут вроде на vb6 чел просил прогу, а не на нете, тем более простенькую...

[tyomitch]

d3drm, ты бы хоть открыл и посмотрел на чём она - именно на VB6

[d3drm]

tyomitch, ты прикалываешься? какой GDI+ в vb 6??

[GSerg]

Такой GDI+ на VB6.
Ты его обёртку почему не скачал?
GDI+ - оно ещё и Flat API содержит...

[d3drm]

как же я без этого GDI жил? о ужас! ))) ладно, продолжаю тупить: что такое этот Flat API? )))

[gaidar]

Flat API:
http://msdn.microsoft.com/library/defau ... latapi.asp

[d3drm]

Почему на vb.net .нет быстрых способов вывода графики? сколько не спрашивал, НУ НЕЛЬЗЯ там выводить изображение попиксельно в цикле! а так хочеца... хотя бы 256-цветку...

[GSerg]

Потому что .NET - це виртуальный машина окончательной офигевшая И какие-либо предположения о реальной внутренней структуре объектов всё равно ни к чему не приведут (в отличие от VB6 )

[tyomitch]

Почему на vb.net .нет быстрых способов вывода графики? сколько не спрашивал, НУ НЕЛЬЗЯ там выводить изображение попиксельно в цикле! а так хочеца... хотя бы 256-цветку...

как нельзя
а Bitmap::SetPixel и Bitmap::LockBits на что?

Какая у тебя странная страсть к скоропалительным выводам... Раз VB6 - значит нет GDI+, раз GDI+ - значит нет попиксельной графики... Верхоглядство