使用VB6.0制作一个多功能弹窗倒计时器。
工具/原料
VisualBasic6.0
电脑
方法/步骤
1、打开vb6,创建一个标准EXE。
2、添加1个时钟组件,Enbled设定为False。
3、添加3个文字组件。
4、添加4个按钮组件。
5、添加1个Frame组件。
6、添加3个文字组件、3个Text组件和3个按钮组件。
7、双击窗体打开程序窗,输入:PrivateSubCommand3_Click()L1.C瞢铍库祢aptio荏鱿胫协n=300Timer1.Enabled=TrueEndSubPrivateSubCommand4_Click()L1.Caption=600Timer1.Enabled=TrueEndSubPrivateSubCommand5_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand6_Click()Text3.Text=Text2.Text*60Text2.Text=""EndSubPrivateSubCommand7_Click()Text4.Text=Text3.Text*60Text3.Text=""EndSubPrivateSubCommand8_Click()L1.Caption=Text4.TextText4.Text=""Timer1.Enabled=TrueEndSubPrivateSubForm_Load()EndSubPrivateSubTimer1_Timer()L1.Caption=Val(L1.Caption)-1IfL1.Caption<1ThenMsgBox"时间到"Timer1.Enabled=FalseUnloadMeEndIfEndSub