----
新世纪网安基地(www.520hack.com) :原创动画多,精品软件更新快
论坛地址:bbs.520hack.com : 分类细,免费语音培训课程丰富
网站宗旨:打造特色第一的中国信息安全服务站点.
--------------------------------------------------------------------------
VB制作定时打开

今天教大家用VB做个定时打开某个程序的小程序

需要添加控件：标签控件：Label，Label2，Label3，按钮控件：Command1，Command2，Command3，

时间控件：timer

commondialog控件  commondialog控件需要在部件中添加

控件添加完毕

将下面的代码粘入即可

Option Explicit
Dim AlarmTime   '申明变量
Dim frmAbout

Private Sub Command1_Click()
Call dialog   '调用dialog子程序
End Sub

Private Sub Command2_Click()
AlarmTime = InputBox("请输入你想设定的时间,例如(19:12:00)", "小闹钟")
If AlarmTime = "" Then
Exit Sub
End If
If Not IsDate(AlarmTime) Then    'isdate函数是判断输入的是否可转换成date格式
MsgBox "你所输入的不是时间格式,请重试!", , "Wrong"
Else: AlarmTime = CDate(AlarmTime)
End If        '判断输入的是否可转换成time格式
End Sub

Private Sub Command3_Click()
Call deng   '调用deng子程序
End Sub