• Home
 · 
• Miscellaneous
 · 
• It helps u to create ur own simple and easy paint brush in visual basic

It helps u to create ur own simple and easy paint brush in visual basic

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




Rate It helps u to create ur own simple and easy paint brush in visual basic

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    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