如何在ＶＢ中 會播放音樂．．內祥

Question

我一個程式做好了但是感覺好單調我想加入音樂一打開就有音樂可聽這樣的程式碼　我該如何弄？

Answer 1

'若不想使用元件也可用API來播放
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Form_Activate()
Dim S As String, S1 As String

'S1=音樂檔(wav,mp3,mid...)
S1 = "C:Kiss Goodbye.mp3"
'將長檔名改成短檔名
S = String(LenB(S1), Chr(0))
GetShortPathName S1, S, Len(S)
S = Left(S, InStr(S, Chr(0)) - 1)
'關掉之前播放的媒體
mciSendString "close MyWav", vbNullString, 0, 0
'打開媒體
mciSendString "open " & S & " alias MyWav", vbNullString, 0, 0
'開始播放
mciSendString "play MyWav", vbNullString, 0, 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
'關掉媒體
mciSendString "close MyWav", vbNullString, 0, 0
End Sub

Answer 2

用這個元件 MMControl
屬性設定..
MMControl1.DeviceType="WaveAudio"
MMControl1.BackVisible=False
MMControl1.EjectVisible=False
MMControl1.NextVisible=False
MMControl1.PauseVisible=False
MMControl1.PlayVisible=True
MMControl1.PrevVisible=False
MMControl1.RecordVisible=False
MMControl1.StepVisible=False
MMControl1.StopVisible=True

MMControl1.filename = "檔名.WAVE" <<<<這裡要輸入你要播放的檔案
MMControl1.Command = "open"