利用 vb 知识设计程序，小闹钟，

利用 vb 知识设计程序，小闹钟，

'
'播放系统wav声音
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private WavPath$
Private Sub Form_Load()
'将闹钟声音wav后缀名加入资源，运行软件时，不存在声音文件则先生成声音文件
Dim bArr() As Byte, x%
WavPath = App.Path & "\dd.wav"
If Dir(WavPath) = "" Then
bArr = LoadResData(102, "WAVE")
Open WavPath For Binary Access Write As #1
Put #1, , bArr
Close #1
End If
Timer1.Enabled = True
Timer1.Interval = 1000
Text1.Text = Format(Now, "YYYY-MM-DD hh:mm:ss")
End Sub
'Timer1控件的Interval值设为1000毫秒,即一秒
Private Sub Timer1_Timer()
'Text的时间和现在时间对比，如果相等，则播放声音
If Format(Now, "YYYY-MM-DD hh:mm:ss") = Format(Text1.Text, "YYYY-MM-DD hh:mm:ss") Then sndPlaySound WavPath, &H1 Or &H2
End Sub

提示：使用控件数组，将方便许多 1.可以通过设置三个时间数组(字符串型) t(2) 如果当前时间time$ 等于t(0)或t(1)或t(2) 2.使用3个mmcontrol控件分别播放3个mp3格式铃声，使用不同的铃声文件 3.比如，我在text1中输入，就是用以下代码，此代码还附有“一旦按下非数字，就会恢复到上一次的状态”功能(以下代码为参考用，此代码是对于text1一个文本框的，可以复制、修改后运用) dim s as string private sub form_load() s = 0 text1.text = 0 end sub private sub text1_change() if isnumeric(text1.text) then s = text1.text else msgbox "你输入的不是数字！", vbcritical, "警告" text1.text = s end if end sub