使用Visual Basic6.0制作弹窗倒计时器

Visual Basic6.0

电脑

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

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

添加3个文字组件。

添加1个Frame组件。

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

双击窗体打开程序窗，输入：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