vb6.0怎么设置弹窗倒计时器效果?

VB6.0中想要制作一个多功能弹窗倒计时器，该怎么制作呢？下面我们就来看看详细的教程。

1、打开vb6，创建一个标准EXE。

vb6.0怎么设置弹窗倒计时器效果?

2、添加1个时钟组件，Enbled设定为False。

vb6.0怎么设置弹窗倒计时器效果?

3、添加3个文字组件。

vb6.0怎么设置弹窗倒计时器效果?

4、添加4个按钮组件。

vb6.0怎么设置弹窗倒计时器效果?

5、添加1个Frame组件。

vb6.0怎么设置弹窗倒计时器效果?

6、添加3个文字组件、3个Text组件和3个按钮组件。

vb6.0怎么设置弹窗倒计时器效果?

7、双击窗体打开程序窗，输入：

Private Sub Command3_Click()
L1.Caption = 300
Timer1.Enabled = True
End Sub
Private Sub Command4_Click()
L1.Caption = 600
Timer1.Enabled = True
End Sub
Private Sub Command5_Click()
Timer1.Enabled = True
End Sub
Private Sub Command6_Click()
Text3.Text = Text2.Text * 60
Text2.Text = " "
End Sub
Private Sub Command7_Click()
Text4.Text = Text3.Text * 60
Text3.Text = " "
End Sub
Private Sub Command8_Click()
L1.Caption = Text4.Text
Text4.Text = " "
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
End Sub
Private Sub Timer1_Timer()
L1.Caption = Val(L1.Caption) - 1
If L1.Caption < 1 Then
MsgBox "时间到"
Timer1.Enabled = False
Unload Me
End If
End Sub

vb6.0怎么设置弹窗倒计时器效果?

以上就是vb6.0制作倒计时效果的教程，希望大家喜欢，请继续关注。

vb6.0怎么设置弹窗倒计时器效果?

相关推荐