• Home
 · 
• Games
 · 
• Makes a drawing application similar to paint

Makes a drawing application similar to paint

Makes a drawing application similar to paint

API Declarations


Dim drawcol




Rate Makes a drawing application similar to paint

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Picture1.Cls
End Sub

Private Sub Form_Load()
drawcol = 12    'use red to start with
mnuBlack.Checked = False
mnuRed.Checked = True
mnuGreen.Checked = False
mnuBlue.Checked = False
mnuWhite.Checked = False
End Sub

Private Sub lblBlack_Click()
Call GoColour(0)  'QBColor(0) is black
End Sub

Private Sub lblBlue_Click()
Call GoColour(9)   'QBColor(9) is light blue
End Sub


Private Sub lblGreen_Click()
Call GoColour(10)    'QBColor(10) is light green
End Sub


Private Sub lblRed_Click()
    Call GoColour(12)
End Sub


Private Sub lblWhite_Click()
Call GoColour(15)    'QBColor(15) is white
End Sub

Private Sub mnuBlack_Click()
    Call GoColour(0)  'QBColor(0) is black
End Sub


Private Sub mnuBlue_Click()
    Call GoColour(9)   'QBColor(9) is light blue
End Sub


Private Sub mnuClearDraw_Click()
    Picture1.Cls
End Sub

Private Sub mnuExit_Click()
End
End Sub


Private Sub mnuGreen_Click()
    Call GoColour(10)    'QBColor(10) is light green
End Sub

Private Sub mnuRed_Click()
    Call GoColour(12)
End Sub

Private Sub mnuWhite_Click()
    Call GoColour(15)    'QBColor(15) is white
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.CurrentX = X
Picture1.CurrentY = Y   'the next line will start here
If Button = 2 Then
    Picture1.Circle (X, Y), 200, QBColor(drawcol)
End If

End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
    Picture1.Line -(X, Y), QBColor(drawcol)
End If

End Sub





Private Sub GoColour(new_colour)
    drawcol = new_colour
    mnuBlack.Checked = (drawcol = 0)
    mnuBlue.Checked = (drawcol = 9)
    mnuGreen.Checked = (drawcol = 10)
    mnuRed.Checked = (drawcol = 12)
    mnuWhite.Checked = (drawcol = 15)
End Sub