VB设计有语音报时和报警功能的闹钟

• 
  　　我们先来看看ExitWindowsEx ( ) 函数的相关知识.
  
  　　ExitWindowsEx ( )
  
  　　Vb声明: Declare Function ExitWindowsEx Lib " user32 " Alias " ExitWindowsEx " ( ByVal uFlags As Long , ByVal dwReserved As Long ) As Long
  
  　　说明: 退出windows，并用特定的选项重新启动, 返回值为 Long 型，非零表示成功，零表示失败。会设置GetLastError
  
  参数表 参数类型及说明 uFlags Long，指定下述一个或多个标志(用OR运算符合并到一起) EWX_FORCE 强迫中止没有响应的进程 EWX_LOGOFF 中止进程，然后注销 EWX_SHUTDOWN 关掉系统电源(如果可能的话，ATX电源就可以) EWX_REBOOT 重新引导系统 EWX_SHUTDOWN 关闭系统 dwReserved Long，保留，设为零
  　　这个函数调用后会立刻返回，系统关闭过程是在后台进行的。注意先中止自己的应用程序，使关闭过程更显平顺。当然，您的进程必须有足够的优先权，否则也不能执行这种操作.
  
  　　下图为我们对程序界面的修改.其中我们主要添加了一个frame1 ,两个单选框( Option1和Option2 ) , 三个文本框( text1 , text2 , text3 ) , 三个标签( label1 , label2 , label3 ) 以及一个按钮Command1.其中两个单选框( Option1和Option2 ) ,可以通过选择其中的一个,来确定究竟要使用那种功能. 三个文本框( text1 , text2 , text3 )来接受设定的时间,之后点击按钮Command1来应用。
  
  
  
  　　下面是添加和修改的代码:
  
  
  ‘ = = = = = = = = = = = = = = = = = = = =
  
  ‘下面的为新添加的
  
  ‘ = = = = = = = = = = = = = = = = = = = =
  
  Dim guanji As Boolean
  Dim sheshi As Integer
  Dim shefen As Integer
  Dim shemiao As Integer
  
  Private Sub Command1 _ Click ( )
  　If Text1.Text = "" Or Text2.Text = "" Or Text3.Text Then
  　　MsgBox "请填完整"
  　End If
  　If Option1.Value = True Then
  　　guanji = True
  　end if
  
  　sheshi = Text1.Text
  　shefen = Text2.Text
  　shemiao = Text3.Text
  
  End Sub
  
  ‘ = = = = = = = = = = = = = = = = = = = = = =
  ‘ 下面语句中,添加了一部分,有标示
  ‘ = = = = = = = = = = = = = = = = = = = = = =
  
  Private Sub Timer1 _ Timer ( )
  
  　miao = Second (time)
  　miao = 60 – miao
  　fen = Minute (time)
  　fen = 60 - fen
  　shi = Hour (time)
  
  　If shi > = 12 Then ‘因为一天之内时针要走二十四个钟头,也就是要走两圈,所以将下午和晚上的时间减去十二,就可以确定时针准确的位置
  
• 上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• VB设计有语音报时和报警功能的闹钟 相关文章：
• ·Windows Vista系统常用补丁功能介绍
• ·将最广泛的网络安全功能整合在一个系统中
• ·Windows Vista SP1改进功能完全介绍
• ·Windows Vista SP1 RC新功能初体验
• ·QQ会员与众不同 37项独有特权功能一览
• ·微调Vista“用户帐户控制”功能
• ·Google Gmail新增加邮件彩色标签功能
• ·RealPlayer 11简体中文版功能速览
• ·网络营销网站功能设计的几点心得
• ·ASP.NET 2.0功能扩展:跨页提交
• VB设计有语音报时和报警功能的闹钟 相关软件
• ·公司企业网站管理系统模板功能强大版
• ·《失落的星球》全版本多功能修改器全集
• ·图解PHOTOSHOP CS2 新功能体验
• ·Win2000网络服务功能
• ·疯狂英语突破功能
• ·疯狂英语之突破功能电子书
• ·AutoCAD 2004 新功能与升级培训教程
• ·Photoshop v7.0 新增图修功能教学
• ·QQ显IP 显隐身超级版 2款不同功能最新QQ版本 友情下载
• ·功能强大的全方位电脑测试软件 rar 几乎囊括了电脑

上一篇:用ActiveMovie创建媒体文件浏览器

下一篇:用Visual Basic6类模块打造控件

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐