上网计时不用愁

董理智 
2001年 41期

　　相信大家在网吧上网时，常会碰上这样的情况：因为一时疏忽忘了看时间，结果超过了一点点时间也被收了费，心疼呀！我们可以找到很多计时软件，但都不大适合网吧用户，于是便产生了自己编写的念头。程序的实现很简单，源代码如下：
　　　　Private Sub Command1_Click（）　
　　　　Form1.Hide
　　　　End Sub
　　　　Private Sub Command2_Click（）　
　　　　t1 = InputBox（"你让我在什么时候叫你？
　　    （格式是hh:mm:ss"）"时间输入"（"12:12:12"）　
　　　　x = MsgBox"你确认吗？"（vbYesNo）"确认"　
　　　　If x = 6 Then Form1.Hide
　　　　End Sub
　　　　Private Sub Command3_Click（）
　　　　Unload Me
　　　　End Sub
　　　　Private Sub Timer1_Timer（） 　
　　　　Form1.Label1.Caption = Right（Now，8）　
　　　　If Right（Now，8）= t1 Then
　　　　MsgBox "时间快到了"
　　　　Form1.Show
　　　　End If
　　　　End Sub
　　　　希望大家在自己动手编写了这个小软件之后，不会再因为超时一点点而被老板多收钱了！本程序在VB 6企业版上通过。 
 