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 = 300Timer1.Enabled = TrueEnd SubPrivate Sub Command4_Click()L1.Caption = 600Timer1.Enabled = TrueEnd SubPrivate Sub Command5_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command6_Click()Text3.Text = Text2.Text * 60Text2.Text = " "End SubPrivate Sub Command7_Click()Text4.Text = Text3.Text * 60Text3.Text = " "End SubPrivate Sub Command8_Click()L1.Caption = Text4.TextText4.Text = " "Timer1.Enabled = TrueEnd SubPrivate Sub Form_Load()End SubPrivate Sub Timer1_Timer()L1.Caption = Val(L1.Caption) - 1If L1.Caption < 1 ThenMsgBox "时间到"Timer1.Enabled = FalseUnload MeEnd IfEnd Sub
以上就是vb6.0制作倒计时效果的教程,希望大家喜欢,请继续关注错新站长站。
相关推荐:
VB6.0怎么使用图片框?
VB6.0怎么快速批量删除txt内容?
新闻热点
疑难解答
图片精选