乳色吐息风车动漫在线:vb 程序设计闹钟

在VB的MSDN的实例库里有一个alarm实例
就是闹钟

新建一工程，窗体名AlarmForm.
放置一个Timer，名字为Timer1。放置一个Label，名字为lblTime
代码如下：
Option Explicit
Dim AlarmTime
Const conMinimized = 1

Private Sub Form_Click()
AlarmTime = InputBox("输入启动闹钟的时间", "VB 闹钟", AlarmTime)
If AlarmTime = "" Then Exit Sub
If Not IsDate(AlarmTime) Then
MsgBox "您输入的时间无效。"
Else ' 从 InputBox 返回的字符串使有效时间,
AlarmTime = CDate(AlarmTime) ' 将它作为一个日期/时间值存储在 AlarmTime 中。
End If
End Sub

Private Sub Form_Load()
AlarmTime = ""
End Sub

Private Sub Form_Resize()
If WindowState = conMinimized Then ' 如果窗体被最小化, 在标题处显示时间。
SetCaptionTime
Else
Caption = "闹钟"
End If
End Sub

Private Sub SetCaptionTime()
Caption = Format(Time, "Medium Time") ' 使用中等时间格式显示时间。
End Sub

Private Sub Timer1_Timer()
Static AlarmSounded As Integer
If lblTime.Caption <> CStr(Time) Then
' 当前秒数与显示秒数不同。
If Time >= AlarmTime And Not AlarmSounded Then
Beep
MsgBox "启动闹钟在 " & Time
AlarmSounded = True
ElseIf Time < AlarmTime Then
AlarmSounded = False
End If
If WindowState = conMinimized Then
' 如果处于最小化状态, 每分钟都需更新窗体标题。
If Minute(CDate(Caption)) <> Minute(Time) Then SetCaptionTime
Else
' 否则每秒钟对标签的标题进行更新。
lblTime.Caption = Time
End If
End If
End Sub

截图方法详见：（原网页已被修改，只能用百度快照了，可能会慢一点，耐心）
http://cache.baidu.com/c?word=vb%3B%BD%D8%CD%BC&url=http%3A//www%2Elinkdns%2Ecom/ArticleView/%3FArticleID%3D7795&b=0&a=20&user=baidu

唉，真不想回答。NOW函数＋TIME+判断

Timer控件是最常用的控件之一.
你翻翻资料,看看它到底有多少个属性,多少个事件.

private sub time1_timer()
...
end sub

Timer 控件的属性和有关事件是很少的，自己捉摸以下就可以了。

晕`~你到VB吧去啊.
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Format (Time, "hhmmss")
If Label1.Caption = 你的定时 Then
怎么处理
End If
End Sub

到http://www.heimasoft.com下载源码