一个关于vb程序设计的问题请问高
很简单，用一个Timer控件和一个WindowsMediaPlayer，再加上一些用来显示时间和操作按钮的控件就可以实现了。我做了一个上传给你。
干脆把代码也粘出来了：
form1：
Dim nl As Boolean
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
If Text1(0)。 Text <> "" And Text1(1)。Text <> "" And Text1(2)。Text <> "" Then
Text1(0)。Enabled = False
Text1(1)。 Enab...全部
很简单，用一个Timer控件和一个WindowsMediaPlayer，再加上一些用来显示时间和操作按钮的控件就可以实现了。我做了一个上传给你。
干脆把代码也粘出来了：
form1：
Dim nl As Boolean
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
If Text1(0)。
Text <> "" And Text1(1)。Text <> "" And Text1(2)。Text <> "" Then
Text1(0)。Enabled = False
Text1(1)。
Enabled = False
Text1(2)。Enabled = False
nl = True
Command1(1)。Enabled = True
Command1(0)。
Enabled = False
Exit Sub
Else
MsgBox "闹铃时间设置不允许有空值！", vbDefaultButton1 + vbCritical + vbOKOnly, "时间设置错误"
Exit Sub
End If
Case 1
Text1(0)。
Enabled = True
Text1(1)。Enabled = True
Text1(2)。Enabled = True
nl = False
Command1(0)。
Enabled = True
Command1(1)。Enabled = False
Exit Sub
Case 2
Form2。Show
End Select
End Sub
Private Sub Command2_Click()
WindowsMediaPlayer1。
Controls。Stop
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
nl = False
End Sub
Private Sub Timer1_Timer()
Label1。
Caption = Time
If nl = True Then
If Text1(0)。Text = Hour(Now) And Text1(1)。Text = Minute(Now) And Text1(2)。
Text = Second(Now) Then
WindowsMediaPlayer1。Controls。Play
End If
End If
End Sub
form2：
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
If File1。
ListIndex <= 0 Then
MsgBox "请选择一个音乐做为闹铃声音！", vbDefaultButton1 + vbCritical + vbOKOnly, "错误"
Else
Form1。
WindowsMediaPlayer1。URL = File1。Path + "\" + File1
Unload Me
End If
Case 1
Unload Me
End Select
End Sub
Private Sub Dir1_Change()
File1。
Path = Dir1
End Sub
Private Sub Drive1_Change()
Dir1。Path = Drive1
End Sub
Private Sub File1_DblClick()
Form1。
WindowsMediaPlayer1。URL = File1。Path + "\" + File1
Unload Me
End Sub
。收起
