当前位置: 源码素材网 » VB源码 » 系统相关 » 详情页

VB 自制简单的闹钟

VB 自制闹钟,比较简单,闹钟时间到,会有声音提醒,播放01.wav音频,整个调用过程如下:
  Private Sub Form_Load()01.wav
   Timer1.Enabled = False '停止运行定时器
   If Right(App.path, 1) = "\" Then
   path = App.path
   Else
   path = App.path & "\"
   End If
  End Sub
  Command1.Enabled = False
  If Val(Text1) < 0 Or Val(Text1) > 24 Then
   MsgBox " 小时数输入错误! ", vbExclamation, "提示信息"
   Text1 = ""
   Text1.SetFocus
   Command1.Enabled = True
  End If
  If Val(Text2) < 0 Or Val(Text2) > 60 Then
   MsgBox " 分钟输入错误! ", vbExclamation, "提示信息"
   Text2 = ""
   Text2.SetFocus
   Command1.Enabled = True
  End If
  If Val(Text3) < 0 Or Val(Text2) > 60 Then
   MsgBox " 秒输入错误! ", vbExclamation, "提示信息"
   Text3 = ""
   Text3.SetFocus
   Command1.Enabled = True
  End If

  • 相关标签:闹钟
  • 调试环境:VB6.0
  • 文件大小:2.30M
  • 资源评级:
  • 更新时间:2019-05-14
  • 相关链接:暂无演示

源码测试截图:

VB 自制简单的闹钟运行截图

相似源码:闹钟 VB源码下载:VB 自制简单的闹钟 测试截图

下载声明:

本站资源仅供学习参考,禁止用于非法途径。若“VB 自制简单的闹钟”源代码侵犯了您的权益,请尽快告诉我们。