通俗基础教程
电脑操作教程
电脑怎样拨号上网
如何做个人网页
怎样做局域网
Word教程(文字处理)
图形图象处理入门
经典提高教程
怎样使用代理服务器
如何做无盘工作站
Photoshop教程
Dreamweaver3教程
Flash4&5教程
Firework3教程
Frontpage2000教程
Authware教程
Office2000教程
如何制作动画图片
OICQ&ICQ使用方法

高手学习指南

硬件升级技巧
CGI教程
ASP教程

PHP教程

注册表使用技巧
路由器的设置
网站建设指南
SQL
最近更新:
VB
相关内容

用VB设计一个定时闹钟程序
季昭君 (06/30/1999)


    使用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企业版中通过。

用VB实现多文件查找与替换功能
用VB 5.0 设计Browser及FTP程序
用Visual Basic 5.0设计E-mail程序
谈谈WIN API在VB中的应用
在VB中使用Word的“艺术字”工具
获取Win95特殊目录准确路径
配置文件.ini在VB5中的应用
控制结构VB5程序设计
用VB切换三个特殊键
用VB5对Windows 95任务栏提示区编程
用API改进ListView显示效果
VB中Grid控件的打印方法
在VB中实现文件上载
用Microsoft Agent 控件与电脑交谈
用VB5直接控制Excel 97
在Developer/2000中调用VB
在VB中用API实现多媒体
VB6制作Win98风格的工具栏
VB6六问答
利用VB编写屏幕保护程序
VB中Winsock控制的UDP协议的使用
用VB设计一个定时闹钟程序
 
 
 
 
教程站
收集整理



月光软件源码下载编程文档电脑教程网站优化网址导航网络文学游戏天地生活休闲写作范文安妮宝贝站内搜索
电脑技术编程开发网络专区谈天说地情感世界游戏元素分类游戏热门游戏体育运动手机专区业余爱好影视沙龙
音乐天地数码广场教育园地科学大观古今纵横谈股论金人文艺术医学保健动漫图酷二手专区地方风情各行各业

月光软件站·版权所有