excele ses ekleme ve kontrol

[attrd112]

iyi günler excele mp3 ekleyip butona tıklayınca çalsın tekrar tıklayınca dursun istiyorum yardımcı olursanız sevinirim

butonun adın : Düğme6
müzik adı : müzik1
şimdiden cok teşekür ederim

[Alibuyuk66]

Deneme imkanım olmadı deneyiniz

Kod: Tümünü seç

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

Dim isPlaying As Boolean

Private Sub Düğme6_Click()
If isPlaying Then
' Eğer müzik çalıyorsa, durdur.
Call mciSendString("stop müzik1", 0&, 0, 0)
Call mciSendString("close müzik1", 0&, 0, 0)
isPlaying = False
Else
' Eğer müzik çalmıyorsa, çal.
Call mciSendString("open ""C:\müzik1.mp3"" type mpegvideo alias müzik1", 0&, 0, 0)
Call mciSendString("play müzik1", 0&, 0, 0)
isPlaying = True
End If
End Sub

[attrd112]

malesef hococam hata veriyor
üsten ilk üç sıradaki dodda kırmızı oluyor

aşağıdaki kod
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

Dim isPlaying As Boolean