订阅使用Visual Basic6.0制作弹窗倒计时器
来源：网络收集 点击： 时间：2024-08-31打开vb6，创建一个标准EXE。
2/7添加1个时钟组件，Enbled设定为False。
3/7添加3个文字组件。
4/7添加4个按钮组件。
5/7添加1个Frame组件。
6/7添加3个文字组件、3个Text组件和3个按钮组件。
7/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
注意事项步骤3里图片中间立体的文字组件效果是改变了BorderStyle值达到的。
版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_1179361.html
