Drawing program

[Gandalf]

Ok. So you've all seen MS paint, the default drawing program that comes with windows 95+, with the line commandbutton (a basic thing common to most drawing programs I would hope). How would I duplicate that commandbutton in VB5?

Also, does the code from VB4and 3 work the same as the code for VB5?

(Btw, I'm a beginner)

[cyborg]

do you mean the draw function?

[cyborg]

heres a drawing function

insert a PictureBox on your form
then paste this code in the app:


Dim DrawNow As Boolean

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DrawNow = True
Picture1.Line (X, Y)-(X, Y)
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If DrawNow = True Then
Picture1.Line -(X, Y), vbRed
End If
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
DrawNow = False
End Sub

[Jotaf98]

Use the Line function! Here's some code:

Dim X1 As Long, Y1 As Long
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    X1 = X
    Y1 = Y
End Sub
 
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture1.Line (X1, Y1)-(X, Y)
End Sub

Click and drag on the picturebox, it'll draw a line
You can also set some properties in the picturebox so it paints in another color, or with another line size

[Gandalf]

No I mean the Line function which draws only straight lines. When the left mousebutton is clicked and held, then dragged to a new location, there is a straight line from where the mouse clicked to where the mouse is after it's moved.

[cyborg]

use 2 pictureboxes
set picture1 and picture2's autoredraw to true
set picture2's visible to false

insert code:

Dim X1 As Long, Y1 As Long
Dim DrawNow As Boolean

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DrawNow = True
X1 = X
Y1 = Y
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If DrawNow = True Then
Picture1.Cls
Picture1.Line (X1, Y1)-(X, Y)
End If
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
DrawNow = False
Picture2.Picture = Picture1.Image
Picture1.Picture = Picture2.Picture
End Sub

[Jotaf98]

Yeah, but that has a small problem... you'll erase all the other lines whenever you create a new one...

[cyborg]

nope! not if you set autoredraw to true on both pictureboxes

[cyborg]

im working on a paint program....
check it out if you want to...
i've just made som big changes so its still buggy if you have more
than one picture open

if you want the source just tell me

[Jotaf98]

Heh, don't worry, it will get better with time

Still it's not that bad for a paiting program made in vb