by ZAHEER ASIF (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 9th February 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
It helps u to create ur own simple and easy paint brush in visual basic
API Declarations
Dim ystart As Single
Dim xold As Single
Dim yold As Single
Dim shape As String
Dim color_flag As Boolean
Dim color As Long
Select Case shape
Case "line":
Form1.DrawMode = 7
Form1.MousePointer = 1
If Button = vbLeftButton Then
xstart = X
ystart = Y
If color_flag = True Then
'xold = xstart
'yold = ystart
'MsgBox "jjj"
Form1.ForeColor = color
Form1.FillColor = color
Form1.Line (xstart, ystart)-(xold, yold)
'MsgBox xold & " " & X & " " & yold & " " & Y
Form1.Line (xstart, ystart)-(X, Y)
Else
Form1.ForeColor = vbWhite
Form1.FillColor = vbWhite
Form1.Line (xstart, ystart)-(xold, yold)
'MsgBox xold & " " & X & " " & yold & " " & Y
Form1.Line (xstart, ystart)-(X, Y)
End If
End If
Case "circle":
Form1.MousePointer = 1
Form1.DrawMode = 13
If Button = vbLeftButton Then
If color_flag = True Then
Form1.FillColor = color
Form1.ForeColor = color
'MsgBox X & " " & Y
'If X > Y Then
'Form1.Circle (X, Y), (X - Y)
'ElseIf Y > X Then
'Form1.Circle (X, Y), (Y - X)
'Else
'xrad = xold - X
'yrad = yold - Y
'If xrad > 0 And yrad > 0 Then
Form1.Circle (X, Y), (X + Y) / 3
'Else
'xrad = X - xold
'yrad = Y - yold
'Form1.Circle (xold, yold), (X - Y)
'End If
Else
Form1.FillColor = vbWhite
Form1.ForeColor = vbWhite
Form1.Circle (X, Y), (X + Y) / 3
End If
X = xold
Y = yold
End If
Case "Drawing":
Form1.MousePointer = 1
Form1.DrawMode = 7
If Button = vbLeftButton Then
'MsgBox X & " " & Y
'xold = X
'yold = X
If color_flag Then
Form1.FillColor = color
Form1.ForeColor = color
Form1.Line (xold, yold)-(X, Y) '
Else
Form1.FillColor = vbWhite
Form1.ForeColor = vbWhite
Form1.Line (xold, yold)-(X, Y)
End If
End If
Case "Box":
Form1.MousePointer = 1
Form1.DrawMode = 13
If Button = vbLeftButton Then
'X = X + 1
'Y = Y + 1
'MsgBox xold & " " & " " & X & " " & yold & " " & Y
'MsgBox X & " " & Y
'Form1.FillColor = vbWhite
If color_flag Then
Form1.FillColor = color
Form1.ForeColor = color
Form1.Line (xold, yold)-(X, Y), , B
Else
Form1.FillColor = vbWhite
Form1.ForeColor = vbWhite
Form1.Line (xold, yold)-(X, Y), , B
End If
X = xold
Y = yold
'MsgBox xold & " " & " " & X & " " & yold & " " & Y
End If
Case "Rubber":
Form1.ForeColor = Form1.BackColor
Form1.MousePointer = 99
If Button = vbLeftButton Then
'X = X + 1
'Y = Y + 1
'If color_flag = True Then
'MsgBox xold & " " & " " & X & " " & yold & " " & Y
'MsgBox X & " " & Y
Form1.DrawMode = 13
Form1.FillColor = Form1.BackColor
Form1.Line (X, Y)-(X + 100, Y + 100), , B
'X = xold
'Y = yold
'MsgBox xold & " " & " " & X & " " & yold & " " & Y
End If
End Select
xold = X
yold = Y
End Sub
Private Sub mnuBlack_Click()
color = vbBlack
color_flag = True
End Sub
Private Sub mnuBlue_Click()
color = vbBlue
color_flag = True
End Sub
Private Sub mnuBox_Click()
'Form1.ForeColor = vbWhite
shape = "Box"
End Sub
Private Sub mnuCircle_Click()
'Form1.ForeColor = vbWhite
shape = "circle"
End Sub
Private Sub mnuClear_Click()
'Form1.ForeColor = &H0&
If Not Form1.BackColor = vbBlack Then
Form1.ForeColor = vbBlack
Form1.BackColor = &H0&
End If
End Sub
Private Sub mnuCyan_Click()
color = vbCyan
color_flag = True
End Sub
Private Sub mnuDrawing_Click()
shape = "Drawing"
End Sub
Private Sub mnuExit_Click()
End
End Sub
Private Sub mnuGet_Rub_Click()
shape = "Rubber"
End Sub
Private Sub mnuGreen_Click()
color = vbGreen
color_flag = True
End Sub
Private Sub mnuIndigo_Click()
color = &H0
color_flag = True
End Sub
Private Sub mnuLine_Click()
'Form1.ForeColor = vbWhite
shape = "line"
End Sub
Private Sub mnuOrange_Click()
color = vborange
color_flag = True
End Sub
Private Sub mnuRed_Click()
color = vbRed
color_flag = True
End Sub
Private Sub mnuWhite_Click()
'Form1.ForeColor = vbWhite
'Form1.FillColor = vbWhite
color_flag = True
color = vbWhite
End Sub
No comments have been posted about It helps u to create ur own simple and easy paint brush in visual basic. Why not be the first to post a comment about It helps u to create ur own simple and easy paint brush in visual basic.