Drawing program

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)

:) :( :o :D ;) :p :cool: :rolleyes: :mad: :eek: :confused:

do you mean the draw function?

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

Use the Line function! Here's some code:

VB 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 ;)

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.

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

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

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

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:mad:

if you want the source just tell me;)

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

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