vb6.0怎么设置弹窗倒计时器效果?
年糕飘香
VB6.0中想要制作一个多功能弹窗倒计时器,该怎么制作呢?下面我们就来看看详细的教程。
1、打开vb6,创建一个标准EXE。
2、添加1个时钟组件,Enbled设定为False。
3、添加3个文字组件。
4、添加4个按钮组件。
5、添加1个Frame组件。
6、添加3个文字组件、3个Text组件和3个按钮组件。
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制作倒计时效果的教程,希望大家喜欢,请继续关注脚本之家。
相关推荐: