Tạo âm thanh khi nhấn vào một phím (2 người xem)

[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

 

[phatnguyen7301]

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

em thử nhưng không phát được nhạc. anh hỗ trợ giúp em làm code trên file của em luôn được không a

 

[yaaasoo01]

Đây bạn, nhưng bạn phải thay đổi đường dẫn đến file MP3 trên máy của bạn thì nó mới phát được.

 

[kllua96]

Đây bạn, nhưng bạn phải thay đổi đường dẫn đến file MP3 trên máy của bạn thì nó mới phát được.

Anh ơi, file anh làm có 4 ô hiển thị kết quả , em muốn thêm 2 ô nữa ạ. Anh có thể giúp em sửa lại code được không ạ

 

[yaaasoo01]

Anh ơi, file anh làm có 4 ô hiển thị kết quả , em muốn thêm 2 ô nữa ạ. Anh có thể giúp em sửa lại code được không ạ

File này không phải mình làm bạn, chủ thớt làm mà