VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 用VB设计一个定时闹钟程序
发表评论(0)作者:, 平台:, 阅读:10818, 日期:2000-03-17
用VB设计一个定时闹钟程序


使用win98的人一定知道其中有一个“计划任务"的应用程序,它能够到指定时间便开始工作。不要认为它很神秘,其实用VB来设计这样一个程序是非常容易的事,以下是一个简单的VB闹钟程序,可供各位使用VB的朋友参考,如有何不适之处,请多指点!

  首先在form1上建立三个命令按钮,分别为command1(打开预启动的文件);command2(设定时间的按钮);第三个command3(即可启动)按钮可有可无;一个label1用来显示你预打开的文件名的路径;一个lbltime用来显示现在的时间;还有一个common dialog,它在工程菜单的部件中,你可把它加到工具箱中再开始使用;关于对话框你不必自己建,只要从应用程序向导中添加即可;一个timer,它的interval=500。

  其次在form1的属性中设置为:startupposition=2-centerscreen和maxbutton=false;label1的属性中设置为:alignment=2-center。

  外观大致是如图所示:

  下面我们开始编程:

  Option Explicit

  Dim AlarmTime

  '申明变量

  ---------

  Private Sub Command1_Click()

  Call dialog

  '调用dialog子程序

  End Sub

  --------

  Private Sub Command2_Click()

   AlarmTime = InputBox(“请输入你想设定的时间,例如(19:12:00)", “小闹钟")

   If AlarmTime = “" Then Exit Sub

  If Not IsDate(AlarmTime) Then

  MsgBox “你所输入的不是时间格式,请重试!", ,“Wrong"

  Else

  AlarmTime = CDate(AlarmTime)

  End If

  '判断输入的是否可转换成time格式

  'isdate函数是判断输入的是否可转换成date格式

  End Sub

  --------------

  Private Sub Command3_Click()

  Call deng

  '调用deng子程序

  End Sub

  ---------------

  Private Sub Form_Click()

  frmAbout.Show

  '显示关于对话框

  End Sub

  -------------

  Private Sub Form_Load()

   Command3.Enabled = 0

   AlarmTime = “"

  '初始化时command3为不可用的

  End Sub

  ---------------

  Private Sub Form_Resize()

   If WindowState = 1 Then

   mintime

   else

   caption=“小闹钟"

   End If

  '如果窗口被最小化,则调用mintime程序

  End Sub

  ---------------

  Private Sub mintime()

  Caption = Format(Time, “long Time")

  '使用长时间格式来显示时间

  End Sub

  ---------------

  Private Sub Timer1_Timer()

  If lblTime.Caption <> CStr(Time) Then

  lblTime.Caption = Time

  End If

  '显示时间每秒钟的变化

  If Time >= AlarmTime Then

  Call deng

  End If

  '判断如果现在的时间超过了设定的时间,则调用deng子程序

  If WindowState = 1 Then

  If Minute(CDate(Caption)) <> Minute(Time) Then

  mintime

  End If

  End If

  '最小化时显示时间每分钟的变化

  End Sub

  -------------

  Sub dialog()

  CommonDialog1.Flags = cdlCFBoth

  CommonDialog1.ShowOpen

  Label1.Caption = CommonDialog1.filename

  If Label1 <> “" Then

  Command3.Enabled = -1

  Else

  Exit Sub

  End If

  '把打开的文件名给于label1

  '如果label1不为空时,则command3即可用

  End Sub

  --------------

  Sub deng()

  Dim ss

  ss = Shell(Label1.Caption, 1)

  End

  '启动指定的文件,并且结束小闹钟程序

  End Sub

  最后在about对话框中要提的是:在form_load中app.title表示你的应用程序的名字;app.major、minor、revision是关于应用程序的版本信息;lblDescription.Caption 用于对本程序的一些说明描述之类的话;lblDisclaimer.Caption用于版权信息或警告等。

  好了,至此我们已完成了一个简单的VB程序的编写,希望你能设计出更好的闹钟程序来!

  以上在windows98,中文VB5.0企业版中通过。(上海 季昭君)