Ρύθμιση έντασης ήχου στην Visual Basic

[leukonas]

Θέλω να φτιάξω έναν media player.Έχω βάλει ένα multimedia control και έχω κολήσει στο πως θα ρυθμίζει ο χρήστης τον ήχο.Αν έχετε καμία ιδέα βοηθήστε.

[metaxa5]

>
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

Public Function GetSystemVolume() As String
   
   Dim TmpStr As String
   Dim iRet As Integer
   Dim lVolume As Long

   iRet = waveOutGetVolume(0, lVolume)
   TmpStr = "&h" & Right(Hex$(lVolume), 4)

   GetSystemVolume = CLng(TmpStr)

End Function

Public Sub SetSystemVolume(Volume As String)
   
   Dim TmpStr As String
   Dim iRet As Integer
   
   TmpStr = Right((Hex$(Volume + 65536)), 4)
   Volume = CLng("&H" & TmpStr & TmpStr)
   iRet = waveOutSetVolume(0, Volume)

End Sub

 

Για δοκίμασε τις παραπάνω functions. Νομίζω πως θα κάνουν την δουλειά που θές.

[Kserafeim]

mporeis episis kai apo to default pou exei to windows media player componet i to active movie control.

[leukonas]

File kserafeim mporeis na mou kaneis parathesi ton kodika pou elegxei ton ixo gia to component tou media player giati endiaferome.Eyxaristo.