|
Public Class Form1
Inherits System.Windows.Forms.Form Vom Windows Form Designer generierter Code
Dim g As Graphics = Me.CreateGraphics
Dim rect As Rectangle = New Rectangle(50, 30, 200, 200)
Dim rect2 As Rectangle = New Rectangle(70, 30, 200, 200)
Dim bx As Long = -90
Dim by As Long
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "&Start" Then
Timer1.Interval = 1
Timer1.Enabled = True
Dim mx As Single = -90
Dim my As Single = 360
by = 0
g.FillPie(New SolidBrush(Color.DarkMagenta), rect2, mx, my)
g.FillPie(New SolidBrush(Color.Magenta), rect, mx, my)
Button1.Text = "&Stop"
Else
Timer1.Enabled = False
Button1.Text = "&Start"
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Timer1.Tick
by += 1
g.FillPie(New SolidBrush(Color.Blue), rect, bx, by)
Label1.Text = CStr(by * 100 \ 360) & " %"
If by >= 360 Then
Timer1.Enabled = False
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class
|
|