کم و زیاد کردن صدا

[هانی هاشمی]

با سلام
یه مثال بزنید که با اون بشه صدا رو کم و زیاد کرد
با تشکر

[H_SH_VB]

چه چیزای سختی می خوای ها
بابا هانی جان
برو Api Guide رو از www.allapi.com یا (www.all-api.com) دانلود کن
اگه از اون جوابتو نگرفتی اون موقع بپرس

[هانی هاشمی]

از اون جواب نگرفتم آخه

[هانی هاشمی]

خواهشاً کمک کنید گیر کردم

[H_SH_VB]

'Example submitted by Danjel Nyberg
'It needs a textbox (Text1) and two command buttons (Command1, Command2)
Private Declare Function waveOutSetVolume Lib "Winmm" (ByVal wDeviceID As Integer, ByVal dwVolume As Long) As Integer
Private Declare Function waveOutGetVolume Lib "Winmm" (ByVal wDeviceID As Integer, dwVolume As Long) As Integer
Private Sub Command1_Click()
Dim a, i As Long
Dim tmp As String
a = waveOutGetVolume(0, i)
tmp = "&h" & Right(Hex$(i), 4)
Text1 = CLng(tmp)
End Sub
Private Sub Command2_Click()
Dim a, i As Long
Dim tmp, vol As String
vol = Text1
tmp = Right((Hex$(vol + 65536)), 4)
vol = CLng("&H" & tmp & tmp)
a = waveOutSetVolume(0, vol)
End Sub



ایشالا که همین باشه