| |
visualbasic问题
|
|
作者： king12438
01-01 08:00
回复
|
|
我要在一个label里变换显示0到9的数字,按顺序循环显示,而且是由我使它开始或停止,现在的问题是把代码编在哪?那段循环显示0到9的数字的代码怎么编? |
|
| |
回复：visualbasic问题
|
|
作者： loving525
01-01 08:00
回复
|
|
窗体中添加label1,timer1,command1三个控件，添加代码如下：
直接运行即可。
Dim n As Integer
Private Sub Command1_Click()
If Command1.Caption = "开始" Then
Command1.Caption = "停止"
Timer1.Enabled = True
Else
Command1.Caption = "开始"
Timer1.Enabled = False
End If
End Sub
Private Sub Form_Load()
Command1.Caption = "开始"
Timer1.Enabled = False
Timer1.Interval = 500
n = 0
Label1.FontSize = 18
Label1.BorderStyle = 1
End Sub
Private Sub Timer1_Timer()
Label1.Caption = n
n = n + 1
If n = 10 Then n = 0
End Sub |
|
|
