UserForm Üzerinde Ses Kontrolü

[serqet]

Merhaba arkadaşlar arayıp bulamadığım birşey var.Ben USerForm üzerine windowsta oldugu gibi ses kontrolünü eklemek istiyorum,örneğin 2 tane scrollbar koyarak birini ses birini mikrofon olarak ayarlayabilirmiyiz? ses veya mik butonuna bastıgımızda windowstaki gibi mute olsun.. gibi yani formdan sesi açıp kısdıgımızda windowsdada ses açıp kısılsın? yardımlarınızı bekliyorum şimdiden teşekkür ederim.

 

[serqet]

güncel.....

 

[Zeki Gürsoy]

Ses için birşeyler yapılabilir...

http://www.excel.web.tr/showthread.php?t=26294

 

[halit3]

Merhaba

Haluk beyin mp3 çalma ile ilgili bir dosyası olacak siteden aratınız. kodlar onun bu kodlar userformdan sesi açıp kapatıyor.

userformun üstüne 1 adet ScrollBar nesnesi koy ve aşağıdaki kodları userformun içine koy.

Private Sub ScrollBar1_Change()
SetVolume (ScrollBar1.Value)
End Sub
Private Sub UserForm_Initialize()
ScrollBar1.Max = 100
ScrollBar1.Min = 0
ScrollBar1.LargeChange = 10
ScrollBar1.Value = 25
End Sub

 

[halit3]

örnek dosyayı eklemeyi unutmuşum.

 

[serqet]

mikrofon içinde bir kod varmı acaba? çok teşekkür ederim

 

[Levent Menteşoğlu]

Sadece ses deseydiniz çözümü kolay olurdu. Ancak mikrofunuda dahil ederseniz durum biraz karışıyor bunun için aşağıdaki linkteki Visualbasic kodlarını uyarlayarak sonuç elde edebilirsiniz.

http://support.microsoft.com/kb/178456

 

[serqet]

sesi ayarlayabildim fakat mikrofon için birşey yapamazmıyız acaba?

 

[Levent Menteşoğlu]

Üste verdiğim linkteki kodların uyarlanmış halini ekte sunuyorum. İlave olarak slider nesnesini kullandım.