我想自己用VB做个闹钟
在txet中显示时间
并且可以在指定的时间播放mp3文件
如果不手动停止
那个mp3文件一直循环播放
能不能教我如何实现循环播放？
谢谢！

Private Sub Command1_Click() '停止
WindowsMediaPlayer1.Controls.stop
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Timer1_Timer()
Text1 = Time()
If Text1.Text = "13:49:00" Then
WindowsMediaPlayer1.URL = "**.mp3"
WindowsMediaPlayer1.Controls.play
********************************* '循环播放
End If
WindowsMediaPlayer1.settings.volume = 100 '设置播放器音量(0-100)
End Sub

添加两个timer控件.一个textBox控件...

编写如下代码..

Option Explicit

Private Sub Form_Load()
Text1.Text = ""
Timer1.Interval = 1000 '每秒钟显示一次
Timer1.Enabled = True
Timer2.Interval = 100 '每100毫秒显示声明一次
Timer2.Enabled = False
End Sub

Private Sub Timer1_Timer()
Dim strHour As String
strHour = Hour(Time) '取得小时数
Dim strMinute As String
strMinute = Minute(Time) '取得分钟数
Dim strSecond As String
strSecond = Second(Time) '取得秒数

strHour = IIf(Len(strHour) < 2, "0" & strHour, strHour)
strMinute = IIf(Len(strMinute) < 2, "0" & strMinute, strMinute)
strSecond = IIf(Len(strSecond) < 2, "0" & strSecond, strSecond)

Text1.Text = strHour & ":" & strMinute & ":" & strSecond

If (Text1.Text = "14:43:00") Then
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub

Private Sub Timer2_Timer()
Beep 'be的一声
End Sub

谢谢！
能不能把
Beep 'be的一声
换成
WindowsMediaPlayer1.URL = "**.mp3"
WindowsMediaPlayer1.Controls.play
再让MP3文件循环播放？
怎么样完成循环播放？
在VB6.0中AutoRewind　属性不可用
还有什么办法呢？

当然可以....
...你先自己想一想...

Private Sub Form_Load()
Text1.Text = ""
Timer1.Interval = 1000 '每秒钟显示一次
Timer1.Enabled = True
Timer2.Interval = 100 '每100毫秒显示声明一次
Timer2.Enabled = False
End Sub

Private Sub Timer1_Timer()
Dim strHour As String
strHour = Hour(Time) '取得小时数
Dim strMinute As String
strMinute = Minute(Time) '取得分钟数
Dim strSecond As String
strSecond = Second(Time) '取得秒数

strHour = IIf(Len(strHour) < 2, "0" & strHour, strHour)
strMinute = IIf(Len(strMinute) < 2, "0" & strMinute, strMinute)
strSecond = IIf(Len(strSecond) < 2, "0" & strSecond, strSecond)

Text1.Text = strHour & ":" & strMinute & ":" & strSecond

If (Text1.Text = "14:43:00") Then
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub


上面的那么多程序
和下面的
Private Sub Timer1_Timer()
Text1 = Time()
End Sub

有什么不同？

strHour = IIf(Len(strHour) < 2, "0" & strHour, strHour)
strMinute = IIf(Len(strMinute) < 2, "0" & strMinute, strMinute)
strSecond = IIf(Len(strSecond) < 2, "0" & strSecond, strSecond
问一下，这段代码是做什么用的？ 我因为不明白，所以将其删去试试，发现一样运行啊？

运行一样..那就删除了吧..