|
Dobré ráno, tento problém můžete vyřešit tak ,že vyvoláte ovladaní hlasitosti ve windows.
System.Diagnostics.Process.Start("SndVol32.exe")
Také mě napadá toto:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TrackBar1.Minimum = 0
TrackBar1.Maximum = 100
TrackBar1.Value = AxWindowsMediaPlayer1.settings.volume
End Sub
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
AxWindowsMediaPlayer1.settings.volume = TrackBar1.Value
End Sub
Mělo by to snad fungovat dle Vašich představ.
|