I thought this would work if i just added the code to play a certain track on the media player but this doesnt work
what i want, is when the user selects a certain station from the scroll bar, another mp3 is played, depending on which station is selected...
this is the code i have so far...
and the
MediaPlayer1.URL = "c:\Kylie.mp3"
does not work although i thought it would.
Anybody got any idea how i need to do this? I thought it would be simple enough to just call another song to the media player.
the media player btw is on the first form, not the second form and should start playing the newly selected track when the user presses the select button, otherwise, if the user selects the cancel button, the song which was playing before the user selected the scan button on the first form, should carry on playing.
:-(
First form code:
Second form code:
what i want, is when the user selects a certain station from the scroll bar, another mp3 is played, depending on which station is selected...
this is the code i have so far...
and the
MediaPlayer1.URL = "c:\Kylie.mp3"
does not work although i thought it would.
Anybody got any idea how i need to do this? I thought it would be simple enough to just call another song to the media player.
the media player btw is on the first form, not the second form and should start playing the newly selected track when the user presses the select button, otherwise, if the user selects the cancel button, the song which was playing before the user selected the scan button on the first form, should carry on playing.
:-(
First form code:
VB.NET:
Code SnippetPrivate Sub btnPower_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPower.Click
If Mode = ModeEnum.OffMode Then
Mode = ModeEnum.OnMode
MediaPlayer1.URL = "c:\ChrisBrown.mp3"
Else
Mode = ModeEnum.OffMode
MediaPlayer1.Ctlcontrols.stop()
End If
SetMode(Me, Mode)
End Sub
Private Mode As ModeEnum = ModeEnum.OffMode
Enum ModeEnum
OnMode
OffMode
End Enum
Sub SetMode(ByVal ctl As Control, ByVal mode As ModeEnum)
Dim blnEnabled As Boolean = (mode = ModeEnum.OnMode)
For Each subCtl As Control In ctl.Controls
If Not subCtl.Name = "btnPower" Then
subCtl.Enabled = blnEnabled
End If
If subCtl.HasChildren Then SetMode(subCtl, mode)
Next
End Sub
Private Sub TckbarVolume_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TckbarVolume.Scroll
MediaPlayer1.settings.volume = TckbarVolume.Value * 10
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SetMode(Me, ModeEnum.OffMode)
Dim fileName As String = "C:\lastStation.txt"
Dim textLine As String = String.Empty
Try
If System.IO.File.Exists("C:\lastStation.txt") Then
Dim reader As New System.IO.StreamReader(fileName)
Do While reader.Peek() <> -1
textLine += reader.ReadLine()
textLine += Environment.NewLine()
Loop
Else
textLine = "File not found!"
End If
Catch Ex As Exception
textLine = Ex.Message
End Try
lblStationInfo.Text = textLine
End Sub
Private Sub btnScan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnScan.Click
MediaPlayer1.Ctlcontrols.pause()
Dim oForm As New Form2
oForm.ShowDialog()
MediaPlayer1.Ctlcontrols.play()
End Sub
Private Sub btnMute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMute.Click
If MediaPlayer1.settings.mute Then
MediaPlayer1.settings.mute = False
Else
MediaPlayer1.settings.mute = True
End If
End Sub
End Class
Second form code:
VB.NET:
Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
Me.Close()
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim fileName As String = "C:\yourLocation.txt"
Dim textLine As String = String.Empty
Try
If System.IO.File.Exists("C:\yourLocation.txt") Then
Dim reader As New System.IO.StreamReader(fileName)
Do While reader.Peek() <> -1
textLine += reader.ReadLine()
textLine += Environment.NewLine()
Loop
Else
textLine = "File not found!"
End If
Catch Ex As Exception
textLine = Ex.Message
End Try
lblStationInfo.Text = textLine
End Sub
Private Sub scrollbarStations_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles scrollbarStations.ValueChanged
Select Case scrollbarStations.Value
Case 1
lblStationInfo.Text = "First Radio 2345 MW"
MediaPlayer1.URL = "c:\Kylie.mp3"
Case 2
lblStationInfo.Text = "Second Radio 6654 MW"
Case 3
lblStationInfo.Text = "Third Radio 7563 MW"
End Select
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If scrollbarStations.Value < scrollbarStations.Maximum Then
scrollbarStations.Value = scrollbarStations.Value + 1
End If
End Sub
End Class