上网计时不用愁

Author: 董理智 Date: 2001年 41期

?牐犗嘈糯蠹以谕缮贤保；崤錾险庋那榭觯阂蛭皇笔韬鐾丝词奔洌峁艘坏愕闶奔湟脖皇樟朔眩奶垩剑∥颐强梢哉业胶芏嗉剖比砑疾淮笫屎贤捎没В谑潜悴俗约罕嘈吹哪钔贰３绦虻氖迪趾芗虻ィ创肴缦拢?
　　?牐燩rivate Sub Command1_Click（）?煟?
　　?牐燜orm1.Hide
　　?牐燛nd Sub
　　?牐燩rivate Sub Command2_Click（）?煟?
　　?牐爐1 = InputBox（"你让我在什么时候叫你？
　　（格式是hh:mm:ss"）"时间输入"（"12:12:12"）??
　　?牐爔 = MsgBox??"你确认吗？"（vbYesNo）"确认"??
　　?牐營f x = 6 Then Form1.Hide
　　?牐燛nd Sub
　　?牐燩rivate Sub Command3_Click（）
　　?牐燯nload Me
　　?牐燛nd Sub
　　?牐燩rivate Sub Timer1_Timer（） ?煟?
　　?牐燜orm1.Label1.Caption = Right（Now，8）??
　　?牐營f Right（Now，8）= t1 Then
　　?牐燤sgBox "时间快到了"
　　?牐燜orm1.Show
　　?牐燛nd If
　　?牐燛nd Sub
　　?牐犗Ｍ蠹以谧约憾直嘈戳苏飧鲂∪砑螅换嵩僖蛭币坏愕愣焕习宥嗍涨耍”境绦蛟赩B 6企业版上通过。