Show một file âm thanh bằng một Command button

[phamxuyenp171]

Tôi muốn sau khi nhấn vào Command Button thì phát ra âm thanh "Hello" thì phải làm thế nào? Mong được mọi người giúp đỡ!Xin cảm ơn!
Xin xem file đính kèm

 

[ndu96081631]

Tôi muốn sau khi nhấn vào Command Button thì phát ra âm thanh "Hello" thì phải làm thế nào? Mong được mọi người giúp đỡ!Xin cảm ơn!
Xin xem file đính kèm

Cho code này vào Sheet1:

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 Hello_Click()
  With Hello
    .Caption = IIf(.Caption = "Play", "Stop", "Play")
    PlayMP3 ThisWorkbook.Path & "\Hello.mp3", (.Caption = "Play")
  End With
End Sub

Private Sub PlayMP3(mp3File As String, isPlaying As Boolean)
  Call mciSendString(IIf(isPlaying, "Open """ & mp3File & """ Alias MM", "Stop MM"), 0, 0, 0)
  Call mciSendString(IIf(isPlaying, "Play MM", "Close MM"), 0, 0, 0)
End Sub

 

[phamxuyenp171]

Ở file đính kèm:
+ Khi caption = "Play" thì khi nhấp vào: Không nghe gì
+ Kho Caption = "Stop" thì khi nhấp vào: Nghe "hello"
Muốn đổi ngược lại: Khi caption = "Play" thì khi nhấp vào: Nghe "hello" thì làm thế nào hả anh?

 

[phamxuyenp171]

Bây giờ tôi lại muốn khi nhấp vào nút nào thì sẽ phát ra âm tương ứng thì phải àm thế nào. Xin cảm ơn!
View attachment Vidu1.rar

 

[ndu96081631]

Bây giờ tôi lại muốn khi nhấp vào nút nào thì sẽ phát ra âm tương ứng thì phải àm thế nào. Xin cảm ơn!
View attachment 67376

Điều đầu tiên bạn hãy sửa Caption của CommandButton cho giống với tên file mp3 nhé (để còn biết nút nào chạy file nào)
Tiếp theo dùng code này trong Sheet1

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

Private Sub A_Click()
  Dim fle As String
  fle = A.Caption & ".mp3"
  PlayMP3 ThisWorkbook.path & "\" & fle, False
  PlayMP3 ThisWorkbook.path & "\" & fle, True
End Sub

Private Sub B_Click()
  Dim fle As String
  fle = B.Caption & ".mp3"
  PlayMP3 ThisWorkbook.path & "\" & fle, False
  PlayMP3 ThisWorkbook.path & "\" & fle, True
End Sub

Private Sub C_Click()
  Dim fle As String
  fle = C.Caption & ".mp3"
  PlayMP3 ThisWorkbook.path & "\" & fle, False
  PlayMP3 ThisWorkbook.path & "\" & fle, True
End Sub

Private Sub CommandButton1_Click()
  Dim fle As String
  fle = CommandButton1.Caption & ".mp3"
  PlayMP3 ThisWorkbook.path & "\" & fle, False
  PlayMP3 ThisWorkbook.path & "\" & fle, True
End Sub

Cứ từ code này mà tùy biến... đâu có khó lắm chứ!

 

[phamxuyenp171]

Điều tôi không hiểu là đoạn code nào giúp nhân ra file mp3 tương ứng để để show.
Ví dụ ở đoạn code này:
Private Sub CommandButton1_Click()
Dim fle As String
fle = CommandButton1.Caption & ".mp3"
PlayMP3 ThisWorkbook.path & "\" & fle, False
PlayMP3 ThisWorkbook.path & "\" & fle, True
End Sub
Tên file mp3 là "CamonanhNdu.mp3 " nhưng tôi không thấy tên của nó trong đoạn code. Vậy mà khi click vào Command Button1 thì lại show được file âm thanh này. Xin anh chỉ thêm chút nữa!

 

[phihndhsp]

Góp vui với diễn đàn một file chơi nhạc bằng word
http://www.mediafire.com/?m9i2mhgb1n9cb6b

 

[Hoàng Trọng Nghĩa]

Điều tôi không hiểu là đoạn code nào giúp nhân ra file mp3 tương ứng để để show.
Ví dụ ở đoạn code này:
Private Sub CommandButton1_Click()
Dim fle As String
fle = CommandButton1.Caption & ".mp3"
PlayMP3 ThisWorkbook.path & "\" & fle, False
PlayMP3 ThisWorkbook.path & "\" & fle, True
End Sub
Tên file mp3 là "CamonanhNdu.mp3 " nhưng tôi không thấy tên của nó trong đoạn code. Vậy mà khi click vào Command Button1 thì lại show được file âm thanh này. Xin anh chỉ thêm chút nữa!

Thì tên File là caption của CommandButton đó anh (CommandButton1.Caption & ".mp3"). Mà Caption là CamonanhNdu đấy.

 

[phamxuyenp171]

Thế à! Tôi đã hiểu, để tôi làm thử xem.

 

[phamxuyenp171]

Góp vui với diễn đàn một file chơi nhạc bằng word
http://www.mediafire.com/?m9i2mhgb1n9cb6b

Sử dụng thế nào. Ban hướng dẫn tôi với

 

[ndu96081631]

Sử dụng thế nào. Ban hướng dẫn tôi với

Thật ra, Word hay Excel gì cũng làm được tuốt. Xem chi tiết tại đây:
http://www.giaiphapexcel.com/forum/showthread.php?49503-Xem-nhạc-video-trong-file-Excel&p=311922#post311922
Cách này là làm bằng thủ công, khỏi code
Muốn hoành tráng hơn thì tham khảo cái này:
http://www.giaiphapexcel.com/forum/showthread.php?31668-Làm-sao-biết-1-file-MP3-đã-Play-xong&