Visual Basic Tutorials

Welcome to Dream.In.Code
	Become an Expert! Join 300,418 Programmers for FREE! Get instant access to thousands of experts, tutorials, code snippets, and more! There are 1,561 people online right now. Registration is fast and FREE... Join Now! Chat LIVE With a Expert

Creating a SketchPad

Creating a SketchPad, We're goin' to create a basic sketchpad using a picture box it

Options

Rating

Nikhil_07n
Group Icon

26 Jan, 2009 - 04:46 AM

Post #1

Intro : This program basically creates a Sketchpad on which lines can be created on clicking and holding mouse button.

Concept : When the mouse_down event of picture box picCanvas is triggered, a dot is created.

When mouse_move event is triggered, a line is created to the current coordinates of the mouse.

Coding:

CODE

Private Sub Form_Load()
    picCanvas.AutoRedraw = True
    picCanvas.DrawWidth = 2
    picCanvas.ForeColor = vbBlue
    picCanvas.BackColor = vbWhite
End Sub

Explaination : Not needed, just the basic properties.(Blue line will be created on a white-backgrounded picture box)

CODE

Private Sub picCanvas_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        picCanvas.Line (X, Y)-(X, Y)
    End If
End Sub

Explaination : On holding mouse down, a dot is created, i.e., a line with initial and final coordinates SAME.

CODE

Private Sub picCanvas_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        picCanvas.Line -(X, Y)
    End If
End Sub

Explaination : The line is extended till the CURRENT coordinates of the mouse.

I think its clear now, for a working sample, download the ATTACHMENT.

Attached File(s)