关于vb.net钟的信息( 三 )

利用vb.net实现小闹钟功能Private Declare Function mciSendStringA Lib "winmm.dll" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
Function PlayMidiFile(ByVal MusicFile As String) As Boolean
If System.IO.File.Exists(MusicFile) Then
mciSendStringA("stop music", "", 0, 0)
mciSendStringA("close music", "", 0, 0)
mciSendStringA("open "MusicFile" alias music", "", 0, 0)
PlayMidiFile = mciSendStringA("play music", "", 0, 0) = 0
End If
End Function
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If TextBox1.Text = TimeOfDay Then
'具体提醒的东西，如你说的播放音乐
PlayMidiFile("自己添加路径")
End If
'时间格式要是这样的16:00:00
'timer的interval要设成1
'你还可以自己细化
End Sub
想用vb.net做一个登陆界面在这个界面显示一个指针时钟。就像下面的。谁有现成的例子么？这个控件不是.net Fremawork自带的，是用户自己添加的控件，你可以去网上找这样的控件，在VS里添加引用就可以了
vb.net钟的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、vb.net钟的信息别忘了在本站进行查找喔。