Welcome to MSFN

Register now to gain access to all of our features. Once registered and logged in, you will be able to contribute to this site by submitting your own content or replying to existing content. You'll be able to customize your profile, receive reputation points as a reward for submitting content, while also communicating with other members via your own private inbox, plus much more! This message will be removed once you have signed in.


Sign in to follow this  
Followers 0
ABEO

[VB] Scribble Pad

3 posts in this topic

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

0

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

0

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

0

Share this post


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

  • Recently Browsing   0 members

    No registered users viewing this page.