Tạo âm thanh khi nhấn vào một phím

[phatnguyen7301]

Xin chào mọi người

Em có làm 1 file quay số trúng thưởng cho chương trình tất niên ở công ty nhưng em muốn làm thêm hiệu ứng mỗi khi nhấn nút quay số thì sẽ có âm thanh cho sinh động. Mọi người biết cách thì hướng dẫn em làm với ạ

 

[yaaasoo01]

Bạn thử code sau nhé. đặt play tại vị trí bắt đầu quay và stop tại nơi mà bạn muốn tắt nhạc

#If VBA7 Then
    Private Declare PtrSafe Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" ( _
        ByVal lpstrCommand As String, _
        ByVal lpstrReturnString As String, _
        ByVal uReturnLength As Long, _
        ByVal hwndCallback As LongPtr) As Long
#Else
    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
#End If

Sub PlayMP3(filePath As String)
    Dim command As String
    command = "open """ & filePath & """ type mpegvideo alias mp3"
    mciSendString command, vbNullString, 0, 0
    mciSendString "play mp3", vbNullString, 0, 0
End Sub
Sub StopMP3()
    mciSendString "close mp3", vbNullString, 0, 0
End Sub
Private Sub TestMP3()
    Dim filePath As String
    filePath = "D:\Desktop\NhacXoSo-VA-4512353.mp3" ' Replace with the actual path to your MP3 file
    PlayMP3 filePath
End Sub