浅显基础教程
电脑操作教程
电脑怎样拨号上网
怎么做个人网页
怎样做局域网
Word教程(文字处理)
图形图象处理入门
经典进步教程
怎样运用代理服务器
怎么做无盘作业站
Photoshop教程
Dreamweaver3教程
Flash4&5教程
Firework3教程
Frontpage2000教程
Authware教程
Office2000教程
怎么制造动画图片
OICQ&ICQ运用办法

高手学习攻略

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

PHP教程

注册表运用技巧
路由器的设置
vwin建造攻略
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程序
vwin :首页 谈谈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规划一个守时闹钟程序
 
 
 
 
教程站
收集整理