VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 6390
ClientLeft = 60
ClientTop = 345
ClientWidth = 8640
LinkTopic = "Form1"
ScaleHeight = 6390
ScaleWidth = 8640
StartUpPosition = 3 '′° úè±ê
Begin VB.Timer Timer1
Interval = 1000
Left = 5880
Top = 3960
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Label1"
ForeColor = &H00FF0000&
Height = 180
Left = 3240
TabIndex = 0
Top = 2160
Width = 540
End
Begin VB.Shape S_s
BorderStyle = 0 'Transparent
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 255
Index = 1
Left = 3240
Shape = 3 'Circle
Top = 2760
Width = 375
End
Begin VB.Shape S_s
BorderStyle = 0 'Transparent
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 255
Index = 0
Left = 3240
Shape = 3 'Circle
Top = 1440
Width = 375
End
Begin VB.Shape S_H
BackColor = &H00000000&
BorderColor = &H0080FFFF&
BorderStyle = 0 'Transparent
FillColor = &H0080FF80&
FillStyle = 0 'Solid
Height = 255
Index = 1
Left = 3960
Shape = 2 'Oval
Top = 2160
Width = 255
End
Begin VB.Shape S_H
BackColor = &H00000000&
BorderColor = &H0080FFFF&
BorderStyle = 0 'Transparent
FillColor = &H0080FF80&
FillStyle = 0 'Solid
Height = 255
Index = 0
Left = 2760
Shape = 2 'Oval
Top = 2160
Width = 255
End
Begin VB.Line Line1
Index = 7
X1 = 3960
X2 = 3960
Y1 = 1920
Y2 = 120
End
Begin VB.Line Line1
Index = 6
X1 = 3960
X2 = 3960
Y1 = 2760
Y2 = 5880
End
Begin VB.Line Line1
Index = 5
X1 = 3960
X2 = 6840
Y1 = 2760
Y2 = 2760
End
Begin VB.Line Line1
Index = 4
X1 = 3960
X2 = 6840
Y1 = 1920
Y2 = 1920
End
Begin VB.Line Line1
Index = 3
X1 = 3000
X2 = 3000
Y1 = 1920
Y2 = 120
End
Begin VB.Line Line1
Index = 2
X1 = 3000
X2 = 3000
Y1 = 2760
Y2 = 5880
End
Begin VB.Line Line1
Index = 1
X1 = 120
X2 = 3000
Y1 = 2760
Y2 = 2760
End
Begin VB.Line Line1
Index = 0
X1 = 120
X2 = 3000
Y1 = 1920
Y2 = 1920
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim R_time As Integer, a As Boolean
Private Sub Timer1_Timer()
Select Case R_time
Case 1
S_s(1).FillColor = vbRed
Label1.Caption = R_time
Case 2
S_s(1).FillColor = vbYellow
Label1.Caption = R_time
Case 3
S_s(1).FillColor = vbGreen
Label1.Caption = R_time
R_time = 1
Exit Sub
End Select
R_time = R_time + 1
End Sub
不好意思程序长了点.我想知道这个程序需要几个控件.谢谢
