请教：关于播放的问题？？？

Question

各位高手，我想请教一下：我想实现一个这样的程序：当Text1.Text满足一定条件时，播放一段音乐，请问如何实现？？？望指点！！！

Answer 1

Text1_Change  
事件中判断是否满足你的条件。满足就。。播
你满意吗》？  呵呵

Answer 2

Private Declare Sub sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long)Private Sub Text1_Change()
    If Text1.Text = "play" Then
        sndPlaySound "C:\WINDOWS\MEDIA\LOGOFF.WAV", 3&
    End If
End Sub

Answer 3

以上例子中，当Text1的内容为“play”则播放C:\WINDOWS\MEDIA\LOGOFF.WAV

Answer 4

添加一个MMcontrol控件，使用如下代码
mmcontrol1.filename="C:\WINDOWS\MEDIA\LOGOFF.WAV"
MMconttrol1.command="open"
MMcontril1.command="sound"

Answer 5

针对BlueBeer所给的例子，如果只播放一段时间（如：10秒），如何处理？？？