Thông báo chạy xong code bằng một đoạn nhạc

[sep_hatxel]

Mình có một chút vấn đề mong GPE xem giúp. GPE có thể tạo một code mà khi chạy xong chương trình ngoài bảng thông báo có thể kèm theo một đoạn nhạc nào đó được không? Xin cảm ơn rất nhiều!

 

[ndu96081631]

Mình có một chút vấn đề mong GPE xem giúp. GPE có thể tạo một code mà khi chạy xong chương trình ngoài bảng thông báo có thể kèm theo một đoạn nhạc nào đó được không? Xin cảm ơn rất nhiều!

Vấn đề là bạn muốn Play loại file nhạc gì? mp3, wav, mid... vân vân...
Vì mỗi loại file sẽ có cách viết code khác nhau
Dù sao thì câu hỏi này cũng đã có đầy trên diễn đàn rồi ---> Tìm đi

 

[sep_hatxel]

Vấn đề là bạn muốn Play loại file nhạc gì? mp3, wav, mid... vân vân...
Vì mỗi loại file sẽ có cách viết code khác nhau
Dù sao thì câu hỏi này cũng đã có đầy trên diễn đàn rồi ---> Tìm đi

Cảm ơn thầy Ndu! Em đã tìm trên diễn đàn nhưng mãi không thấy. Nếu thầy biết mong thầy chỉ giúp, nếu có thể thầy có thể giúp e Play loạ file nhạc mp3 được không ạ?

 

[ndu96081631]

Cảm ơn thầy Ndu! Em đã tìm trên diễn đàn nhưng mãi không thấy. Nếu thầy biết mong thầy chỉ giúp, nếu có thể thầy có thể giúp e Play loạ file nhạc mp3 được không ạ?

1> Code trong Module:

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
Sub PlayMP3(byVal mp3File As String, byVal isPlaying As Boolean)
  Dim ret As Long
  ret = mciSendString(IIf(isPlaying, "Open """ & mp3File & """ Alias MM", "Stop MM"), 0, 0, 0)
  ret = mciSendString(IIf(isPlaying, "Play MM", "Close MM"), 0, 0, 0)
End Sub

2> Áp dụng:

Sub Test()
  Dim mp3File As String
  mp3File = "Đường dẫn đến file MP3"
  PlayMP3 mp3File, [COLOR=#ff0000][B]True[/B][/COLOR] ''<---- Chơi nhạc
  'Hoặc
  'PlayMP3 mp3File, [B][COLOR=#ff0000]False [/COLOR][/B]''<---- Ngưng
End Sub