• Announcements

    • xper

      MSFN Sponsorship and AdBlockers!   07/10/2016

      Dear members, MSFN is made available via subscriptions, donations and advertising revenue. The use of ad-blocking software hurts the site. Please disable ad-blocking software or set an exception for MSFN. Alternatively, become a site sponsor and ads will be disabled automatically and by subscribing you get other sponsor benefits.
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.