lyd op og ned!

Hvordan kan jeg få lyden til at stige og falde i windows som f.eks. trykker jeg på Command1 stigerden og trykker jeg på command2 falder den!
/ETA

Skal blot pastes ind:

Private Declare Function waveOutGetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, lpdwVolume As Long) As Long
Private Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long


Private Sub Command1_Click()
Dim dwVol As Long

 waveOutGetVolume 0, dwVol
 
 Text1.Text = Hex(dwVol)
End Sub

Private Sub Command2_Click()
  waveOutSetVolume 0, CLng("&h" & Text1.Text)
End Sub

Dette viser lydnivueat i hex decimalform i en tekstbox når der trykkes på button1. hvis button2 trykkes bliver volume sat.

Mvh,

Thomas Nielsen

Hvordan kan jeg få lyden til at stige og falde i windows som f.eks. trykker jeg på Command1 stigerden og trykker jeg på command2 falder den!
/ETA

du kan også bruge MediaPlayer!

tilføj den component der hedder Windows Media Player og sæt den ind i dit dokument.