[E-Tardis]

Kod: Tümünü Seç Tümünü Kopyala

bir kaydırma cubuğu(Slider1)(textpozision=0 yapın)

've bir metin kutusu(Text1) ihtiyaç vardır.

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