• Home
 · 
• Miscellaneous
 · 
• Make a circle

Make a circle

Make a circle

API Declarations


'when done click on label a circle will appear.



Rate Make a circle

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

        tmrtimer1.Stop()
        tmrtimer1.Start()
    End Sub
    Private Sub lbldisp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim lblcircle
        Dim tmrcounter
        tmrtimer1.Start()
        Select Case tmrcounter
            Case 2, 4
                'Create a Green Pen
                Dim greenPen As New Pen(Color.Green, 3)
                ' Draw ellipse to screen.
                lblcircle.CreateGraphics.DrawEllipse(greenPen, 42, 74, 60, 60)
                Dim redPen As New Pen(Color.Red, 3)
            Case 1, 3, 5
                'Draw the Circle
                Dim greenPen As New Pen(Color.FromArgb(255, 192, 192), 3)
                ' Draw ellipse to screen.
                lblcircle.CreateGraphics.DrawEllipse(greenPen, 42, 74, 60, 60)
                tmrcounter = tmrcounter
            Case 6
                ' Create a Red Pen
                Dim redPen As New Pen(Color.Red, 3)
                ' Draw Circle to screen.
                lblcircle.CreateGraphics.DrawEllipse(redPen, 42, 74, 60, 60)
                tmrtimer1.Stop()
                Dim greenPen As New Pen(Color.Green, 3)
                lblcircle.CreateGraphics.DrawEllipse(greenPen, 42, 74, 60, 60)
        End Select
        tmrcounter = tmrcounter + 1
    End Sub
    Private Sub cmdstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdstop.Click
        End
    End Sub
    Dim tmrcounter As Integer = +1
    Dim LightState, RedPen As Integer
    Private Sub lblcircle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbldisp.Click

        'Create a red pen
        Dim redPen As New Pen(Color.Red, 3)
        ' Draw circle to screen.
        lbldisp.CreateGraphics.DrawEllipse(redPen, 42, 74, 60, 60)

        tmrcounter = (tmrcounter + 1)
    End Sub
End Class