|
Re: Media Player PlayList
The pic to the left is the main I-Face, The pic to right is the Search side I added to it. Basic set up is Open the program click the " Open the Media Searcher ", On the Media Searcher pic the drive, Then the folder , Then the File, Once the user has clicked on a file, It will show up ( where yellow line is ), Then user clicks the " Load from ^ there To Down v " button, The file then jumps into where the purplish font is, They then click the " Send To Media Player Text Bar " button, On the Media Player its the red font at the bottom, Then to get the file to go to the Play List ( green font section ) they click on the button " Load v To ^ ", Then they can add more files if they want, Supposed to highlite a file then click play, NOTE: I hade it working great before I added the ListBox, Using just the TextBox but wanted more then one song to play in a row without having to manually load it again, Now when I hit the play button I get the following.....
Label not defined
Private Sub List1_Click()
If MediaPlayer.List1 = 0 Then GoTo Line
End Sub
I have tried may codes, I know the line is unfinished cos nothing I put in will do what i want it to do,, LOL
Code for Media Player is as follows
Private Sub Command1_Click()
MediaSearcher.Show
End Sub
Private Sub Command2_Click()
WindowsMediaPlayer1.URL = List1
End Sub
Private Sub Command3_Click()
If Text1 = Text1.Text Then
List1.AddItem Text1.Text
End If
End Sub
Private Sub List1_Click()
If MediaPlayer.List1 = 0 Then GoTo Line
End Sub
I have tried may codes, I know the line above is unfinished cos nothing I put in will do what i want it to do,, LOL
Code for the search side is as follows,, Even though I know The probem is not on this side,,,,,
Private Sub Command1_Click()
If Label1 = Dir1 + Label2 + File1 Then
Text1.Text = Label1
End If
End Sub
Private Sub Command2_Click()
If Text1.Text = Text1.Text Then
MediaPlayer.Text1 = MediaSearcher.Text1.Text
End If
End Sub
Private Sub Dir1_Change()
File1 = Dir1
Label1 = Text
End Sub
Private Sub Drive1_Change()
Dir1 = Drive1
Label1 = Text
End Sub
Private Sub File1_Click()
Label1 = Dir1 + Label2 + File1
End Sub
Private Sub Form_Load()
Label1 = Text
End Sub
Private Sub Text1_Change()
If Text1 = Dir1 + Label2 + File1 Then
Text1.Text = MediaSearcher.Text1.Text
End If
End Sub
|