Startlautstärke Trackbar

[Bullterrier]

Hi Freunde
hab mir den Radio Streamplayer nach gecodet und wollte fragen wie man die Startlautstärke für die Trackbar einstellt.
So wie es jetzt ist steht die Trackbar am Anfang zwar auf Minimum aber die Lautstärke ist fast auf Maximum.
Hier der Source :
Public Class Form1

Private Sub cmdClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End
End Sub

Private Sub cmdPlay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
AxWindowsMediaPlayer1.Ctlcontrols.play()
End Sub

Private Sub cmdPause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
AxWindowsMediaPlayer1.Ctlcontrols.pause()
End Sub

Private Sub cmdStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
AxWindowsMediaPlayer1.Ctlcontrols.stop()
End Sub

Private Sub cmdTechnoBase_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTechnoBase.Click
AxWindowsMediaPlayer1.URL = ("http://dsl.technobase.eu/listen.asx")
lblPlaying.Text = "Du hörst Techno Base"
End Sub

Private Sub cmdAggro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAggro.Click
AxWindowsMediaPlayer1.URL = (" http://www.laut.fm/aggroradio")
lblPlaying.Text = "Du hörst Laut FM/Aggro"
End Sub

Private Sub cmdPlay_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPlay.Click
AxWindowsMediaPlayer1.Ctlcontrols.play()
End Sub

Private Sub cmdPause_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPause.Click
AxWindowsMediaPlayer1.Ctlcontrols.pause()
End Sub

Private Sub cmdStop_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStop.Click
AxWindowsMediaPlayer1.Ctlcontrols.stop()
End Sub

Private Sub cmdExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExit.Click
End
End Sub


Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll

End Sub

Private Sub TrackBar1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrackBar1.ValueChanged
AxWindowsMediaPlayer1.settings.volume = TrackBar1.Value
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

TrackBar1.Minimum = 0
TrackBar1.Maximum = 100
End Sub
End Class

MFG Bullterrier

[g4$one]

If TrackBar1.Value = 0 Then
AxWindowsMediaPlayer1.settings.volume = 0
Else
If TrackBar1.Value = 10 Then
AxWindowsMediaPlayer1.settings.volume = 100
Else
If TrackBar1.Value = 1 Then
AxWindowsMediaPlayer1.settings.volume = 10
Else

und dann immer weiter also :
If TrackBar1.Value = 2 Then
AxWindowsMediaPlayer1.settings.volume = 20
Else

und so weiter bis
If TrackBar1.Value = 9 Then
AxWindowsMediaPlayer1.settings.volume = 90
End If

Achja ich habe die ganzen end if's nicht dazu geschrieben weil ich denke mal das du weißt das bei einer If anweisung ein End If folgen muss

mfg
g4$0N3

[DarkFire]

Mit einem Timer ist das kein problem...

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TrackBar1.Minimum = 0
TrackBar1.Maximum = 100
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
AxWindowsMediaPlayer1.settings.volume = TrackBar1.Value
End Sub

[Bullterrier]

Danke euch 2 werds gleich direkt mal ausprobieren!!!
MFG
Habs ausprobiert .
Das mit dem Timer hab ich nicht hinbekommen. Verstehe das hier irgendwie nicht Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Timer1 ....handles Timer3 .Muss ich dann 3 Timer einfügen?
Naja hab jetzt den Code hier If TrackBar1.Value = 0 Then
AxWindowsMediaPlayer1.settings.volume = 0
Else
If TrackBar1.Value = 10 Then
AxWindowsMediaPlayer1.settings.volume = 100
eingefügt.
Das hat schon gereicht das die Trackbar richtig funktioniert.
Jetzt klappt alles vom feinsten. Juhu!!!!!!!