by Mohammad Akram (4 Submissions)
Category: Miscellaneous
Compatability: VB.NET
Difficulty: Unknown Difficulty
Originally Published: Mon 26th March 2007
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Make a circle
API Declarations
'when done click on label a circle will appear.
VBcoders
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