Jump to content
Strawberry Orange Banana Lime Leaf Slate Sky Blueberry Grape Watermelon Chocolate Marble
Strawberry Orange Banana Lime Leaf Slate Sky Blueberry Grape Watermelon Chocolate Marble

MSFN is made available via donations, subscriptions and advertising revenue. The use of ad-blocking software hurts the site. Please disable ad-blocking software or set an exception for MSFN. Alternatively, register and become a site sponsor/subscriber and ads will be disabled automatically. 



Sign in to follow this  
ABEO

[VB] Scribble Pad

Recommended Posts

Ok this is a simple scribble pad, when you run it you can... scribble :rolleyes:

First of all create a module.

In the Module put:

Option Explicit
Public bNowDraw As Boolean

Now on the main form put 4 command buttons.

Call them:

Command1 - cmdExit

Command2 - cmdClear

Command3 - cmdSave

Command4 - cmdLoad

Make the buttons quite small and put them at the top of the form.

Now put this in the form code:

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

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If bNowDraw = True Then
       Line -(X, Y)
   Else
       Exit Sub
   End If
End Sub

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

Private Sub cmdExit_Click()
   Unload Me
End Sub

Private Sub cmdClear_Click()
   If MsgBox("Do you wish to save first?", vbYesNo + vbQuestion, "Save...") = vbYes Then
       SavePicture Form1.Image, "c:\picture.bmp"
       Form1.Cls
   Else
       Form1.Cls
   End If
End Sub

Private Sub cmdLoad_Click()
   Form1.Picture = LoadPicture("c:\picture.bmp")
End Sub

Private Sub cmdSave_Click()
   SavePicture Form1.Image, "c:\picture.bmp"
   MsgBox "Picture Saved", vbOKOnly + vbInformation, "Saved..."
End Sub

That should be about it :D

You can add whatever features you like, when I had the basic program working I added colours to it so you can draw in better colours(black gets boring :D) :)

Have fun, more will come soon :D

Share this post


Link to post
Share on other sites

btw to change the back of the form colour you need:

Form1.BackColor = vbBlack

for example.

And for the colour you are drawing in you would need:

Form1.ForeColor = vbGreen

Thought that might be useful for all you silly n00bs who wanna try and make ur scribble pad a bit better :)

Share this post


Link to post
Share on other sites

also if u want to make changing colors easily..

add the common dialog control

and use the following on a button label something like change color

commondialog1.showcolor
form1.forecolor = commondialog1.color

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

×