Kayitlara Ses Dosyasi Eklemek

[oerbas]

Selamlar

1 Arkadaşlar EXCEL çalışma sayfası personel bilgilerinin kaydedildiği yer
2 C:\PERSONEL\SES dizinine ses kayatları mevcut.
3 C:\PERSONEL dizininde personele ait fotoğraflar var
3 UserFor üzerinde ComboBox1 ile de TextBoxlara Personel bilgileri getiriliyor.

Burada Personel ismi seçilince o personele ait resim ve bilgiler gösteriliyor. Benim istediğim aynı zamanda ses kaydıda eklemek yani personel adı seçilince o personele ait bilgiler, resim ve ses kaydınında çalınmasını istiyorum. bu mümkünmüdür

 

[emrexcel123]

şu şekilde

kolay bişi değil ama uğraşman lazım kendine göre revize et :
sub ......
if textbox1.value = "mehmet" then
userform1.windowsmediaplayer1.url = "c\..........."
end if
end sub
tabi önce userform'a windows media player çizmen gerekecek arkadaşım...

 

[cenk77ist]

bu işini görür sanırım

Public Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long


Sub PlayWavFile(WavFileName As String, Wait As Boolean)
If Dir(WavFileName) = "" Then Exit Sub ' no file to play
If Wait Then ' play sound before running any more code
sndPlaySound WavFileName, 0
Else ' play sound while code is running
sndPlaySound WavFileName, 1
End If
End Sub

Sub TestPlayWavFile()
PlayWavFile "c:\mU.wav", False
' MsgBox "This is visible while the sound is playing..."
PlayWavFile "c:\mU.wav", True
' MsgBox "This is visible after the sound is finished playing..."
End Sub

 

[oerbas]

Arkadaşlar biraz açıklama yapmanız mümkünmü