VB 来的vb倒计时 比如倒计时3:00 如何做?谢谢!!!

发布网友 发布时间：2024-09-30 14:34

我来回答

共3个回答

热心网友 时间：2024-10-07 05:16

加个TIMER控件 把Interval 属性调成 1000 毫秒 也就是 1秒
在加两个 TEXT
text1.text=3
text2.text=00
在加个按钮 开始倒计时
就行了

程序代码如下:

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
If (Text2.Text <= 0) Then
Text2.Text = 59
Text1.Text = Text1.Text - 1
Else
Text2.Text = Text2.Text - 1
End If

End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

热心网友 时间：2024-10-07 05:16

1000 毫秒 = 1 秒

热心网友 时间：2024-10-07 05:14

你家如果又幻影片还可以做

热心网友 时间：2024-10-07 05:23

加个TIMER控件 把Interval 属性调成 1000 毫秒 也就是 1秒
在加两个 TEXT
text1.text=3
text2.text=00
在加个按钮 开始倒计时
就行了

程序代码如下:

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
If (Text2.Text <= 0) Then
Text2.Text = 59
Text1.Text = Text1.Text - 1
Else
Text2.Text = Text2.Text - 1
End If

End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

热心网友 时间：2024-10-07 05:18

你家如果又幻影片还可以做

热心网友 时间：2024-10-07 05:16

1000 毫秒 = 1 秒