帮朋友做的vb.net的代码
1
Public Class Form1
2
Dim gfxobj As System.Drawing.Graphics
3
Dim count As Integer
4
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
5
Handles MyBase.Load
6
gfxobj = pnlDraw.CreateGraphics()
7
Timer1.Enabled = False
8
lblSpeed.Text = "Current Fill Speed = " & trbSpeed.Value & " ms"
9
count = 0
10
End Sub
11
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
12
If Not gfxobj Is Nothing Then
13
gfxobj.Dispose()
14
End If
15
gfxobj = pnlDraw.CreateGraphics()
16
gfxobj.Clear(pnlDraw.BackColor)
17
End Sub
18
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
19
Dim newBrush As Brush
20
newBrush = New SolidBrush(Color.Blue)
21
If count < 180 Then
22
gfxobj.FillRectangle(newBrush, 31, 298 - count, 98, 1)
23
count = count + 1
24
Else
25
Timer1.Enabled = False
26
StopWaterFall()
27
End If
28
End Sub
29
Private Sub trbSpeed_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles trbSpeed.Scroll
30
Timer1.Interval = trbSpeed.Value
31
lblSpeed.Text = "Current Fill Speed = " & trbSpeed.Value & " ms"
32
End Sub
33
Sub DrawBeaker()
34
Dim newPen = New Pen(Color.White, 2)
35
gfxobj.DrawLine(newPen, 30, 300, 130, 300)
36
gfxobj.DrawLine(newPen, 30, 100, 30, 300)
37
gfxobj.DrawLine(newPen, 130, 100, 130, 300)
38
End Sub
39
Sub DrawWaterFall()
40
Dim newBrush As Brush
41
newBrush = New SolidBrush(Color.Blue)
42
gfxobj.FillRectangle(newBrush, 66, 48, 23, 251)
43
End Sub
44
Sub CleanWaterFall()
45
Dim newBrush As Brush
46
newBrush = New SolidBrush(Color.Black)
47
gfxobj.FillRectangle(newBrush, 66, 48, 23, 251)
48
End Sub
49
Sub StopWaterFall()
50
Dim newBrush As Brush
51
newBrush = New SolidBrush(Color.Black)
52
gfxobj.FillRectangle(newBrush, 66, 48, 23, 71)
53
End Sub
54
Sub CleanWater()
55
Dim newBrush As Brush
56
newBrush = New SolidBrush(Color.Black)
57
gfxobj.FillRectangle(newBrush, 31, 118, 98, 181)
58
End Sub
59
Private Sub btnRestart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRestart.Click
60
DrawBeaker()
61
CleanWater()
62
DrawWaterFall()
63
count = 0
64
Me.Timer1.Enabled = True
65
End Sub
66
End Class
67![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/ExpandedBlockStart.gif)
2
![](/Images/OutliningIndicators/InBlock.gif)
3
![](/Images/OutliningIndicators/InBlock.gif)
4
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
5
![](/Images/OutliningIndicators/InBlock.gif)
6
![](/Images/OutliningIndicators/InBlock.gif)
7
![](/Images/OutliningIndicators/InBlock.gif)
8
![](/Images/OutliningIndicators/InBlock.gif)
9
![](/Images/OutliningIndicators/InBlock.gif)
10
![](/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
11
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
12
![](/Images/OutliningIndicators/InBlock.gif)
13
![](/Images/OutliningIndicators/InBlock.gif)
14
![](/Images/OutliningIndicators/InBlock.gif)
15
![](/Images/OutliningIndicators/InBlock.gif)
16
![](/Images/OutliningIndicators/InBlock.gif)
17
![](/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
18
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
19
![](/Images/OutliningIndicators/InBlock.gif)
20
![](/Images/OutliningIndicators/InBlock.gif)
21
![](/Images/OutliningIndicators/InBlock.gif)
22
![](/Images/OutliningIndicators/InBlock.gif)
23
![](/Images/OutliningIndicators/InBlock.gif)
24
![](/Images/OutliningIndicators/InBlock.gif)
25
![](/Images/OutliningIndicators/InBlock.gif)
26
![](/Images/OutliningIndicators/InBlock.gif)
27
![](/Images/OutliningIndicators/InBlock.gif)
28
![](/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
29
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
30
![](/Images/OutliningIndicators/InBlock.gif)
31
![](/Images/OutliningIndicators/InBlock.gif)
32
![](/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
33
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
34
![](/Images/OutliningIndicators/InBlock.gif)
35
![](/Images/OutliningIndicators/InBlock.gif)
36
![](/Images/OutliningIndicators/InBlock.gif)
37
![](/Images/OutliningIndicators/InBlock.gif)
38
![](/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
39
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
40
![](/Images/OutliningIndicators/InBlock.gif)
41
![](/Images/OutliningIndicators/InBlock.gif)
42
![](/Images/OutliningIndicators/InBlock.gif)
43
![](/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
44
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
45
![](/Images/OutliningIndicators/InBlock.gif)
46
![](/Images/OutliningIndicators/InBlock.gif)
47
![](/Images/OutliningIndicators/InBlock.gif)
48
![](/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
49
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
50
![](/Images/OutliningIndicators/InBlock.gif)
51
![](/Images/OutliningIndicators/InBlock.gif)
52
![](/Images/OutliningIndicators/InBlock.gif)
53
![](/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
54
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
55
![](/Images/OutliningIndicators/InBlock.gif)
56
![](/Images/OutliningIndicators/InBlock.gif)
57
![](/Images/OutliningIndicators/InBlock.gif)
58
![](/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
59
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
60
![](/Images/OutliningIndicators/InBlock.gif)
61
![](/Images/OutliningIndicators/InBlock.gif)
62
![](/Images/OutliningIndicators/InBlock.gif)
63
![](/Images/OutliningIndicators/InBlock.gif)
64
![](/Images/OutliningIndicators/InBlock.gif)
65
![](/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
66
![](/Images/OutliningIndicators/ExpandedBlockEnd.gif)
67
![](/Images/OutliningIndicators/None.gif)