VB我要写个闹钟 怎么写程序

你好:

这个问题比较简单,只需要一个timer控件,一个textbox 一个label,一个按钮!

首先textbox作为设置时间用的,输入你想定的时刻,注意格式 00:00:00之类的,要看你取的系统时间格式

点按钮,让时间显示在label里,

然后让timer一直监视系统的时间,并和label的时间作比较, 当两时间吻合的时候,就处理你想做的事情(打开一个程序,放音乐,或者关机之类的),这样 一个简单的闹钟旧出来了^_^

呵呵 主你成功,有什么问题直接问!

检查一下程序运行到ss = Shell(Label1Caption, 1) 时，Label1Caption是否是一个包括完整路径的文件名。可以用这句前面加一句：debugprint Label1Caption来检查。

1修改

Private Sub Form1_Load(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles MyBaseLoad

Timer1Interval = 1000 ‘每1秒响应一次

Timer1Enabled = True

End Sub

2添加Timer事件函数

Private Sub Timer1_Timer()

dtsys = DateTimeNow

If dtsys = dtseted Then

MessageBoxShow("ok")

End If

End Sub

在部件中添加WindowsMediaPlayer控件，在窗口中插入一个WindowsMediaPlayer，command，timer，label控件

Private Sub Command1_Click() '点击后脑中停止响铃

WindowsMediaPlayer1Enabled = False

End Sub

Private Sub Form_Load()

Timer1Interval = 1000

Label1Caption = Time

WindowsMediaPlayer1Visible = False

WindowsMediaPlayer1Enabled = False

WindowsMediaPlayer1URL = ""'填入路径名如"D:\music\NewStoriesmp3"

End Sub

Private Sub Timer1_Timer()

Label1Caption = Time

If Label1Caption = "9:43:30" Then '设置闹钟时间

WindowsMediaPlayer1Enabled = True

End If

End Sub

以上就是关于VB我要写个闹钟 怎么写程序全部的内容，包括:VB我要写个闹钟 怎么写程序、用VB设计一个定时闹钟程序的问题、用VB做一个简单闹钟程序，到时间无反应。有源代码，不知道哪里错了等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！