Shoutbox

well i just started learning VB the other day and im starting on little projects and im on a cd player thing im making using a guideline kinda of and i need you guys to help me get it to work

code:

---

Private Sub Combo1_Change()
' to determine file type

If ListIndex = 0 Then
File1.Pattern = ("*.wma")
ElseIf ListIndex = 1 Then
File1.Pattern = ("*.mp3")
Else
Fiel1.Pattern = ("*.*")
End If

End Sub


Private Sub Dir1_Change()

'To change directories and subdirectories(or folders and subfolders)


File1.Path = Dir1.Path
If Combo1.ListIndex = 0 Then
File1.Pattern = ("*.wma")
ElseIf Combo1.ListIndex = 1 Then
File1.Pattern = ("*.mp3")
Else
File1.Pattern = ("*.*")
End If
End Sub

Private Sub Drive1_Change()

'To change drives

Dir1.Path = Drive1.Drive

End Sub

Private Sub File1_Click()
If Combo1.ListIndex = 0 Then
File1.Pattern = ("*.wma")
ElseIf Combo1.ListIndex = 1 Then
File1.Pattern = ("*.mp3")
Else
File1.Pattern = ("*.*")
End If

If Right(File1.Path, 1) <> "\" Then
filenam = File1.Path + "\" + File1.FileName
Else
filenam = File1.Path + File1.FileName
End If
Text1.Text = filenam

End Sub


Private Sub Form_Load()

'To center the Audioplayer startup page


Left = (Screen.Width - Width) \ 2
Top = (Screen.Height - Height) \ 2
Combo1.Text = "*.wav"
Combo1.AddItem "*.wma"
Combo1.AddItem "*.mp3"
Combo1.AddItem "All files"

End Sub

Private Sub AudioPlayer_Click()

End Sub


Private Sub Command1_Click()

'To play Windows Media Player file or MPEG layer 3 Audio


If Combo1.ListIndex = 0 Then
AudioPlayer.DeviceType = ".wma"
ElseIf Combo1.ListIndex = 1 Then
AudioPlayer.DeviceType = ".mp3"
End If
AudioPlayer.FileName = Text1.Text
AudioPlayer.Command = "Open"
AudioPlayer.Command = "Play"

End Sub


Private Sub Command2_Click()
If AudioPlayer.Mode = 524 Then Exit Sub
If AudioPlayer.Mode <> 525 Then
AudioPlayer.Wait = True
AudioPlayer.Command = "Stop"
End If
AudioPlayer.Wait = True
AudioPlayer.Command = "Close"
End Sub

Private Sub Command3_Click()
End
End Sub

---

the part that it says is invalid or w.e that wont make it work is the BOLD text near the top about the file types

File1.Pattern = "*.wma"

etc

thats what i have?

without brackets I think Seggeh means

now it when i start my .mp3 files it says theres and error with

code:

---

AudioPlayer.DeviceType = (".mp3")

---

and i assume if i search for .wma the same problem will occure for the otehr line


heres a screeny of what i have and if you wanna try and make it and get it to work i would appreciate it

remove the brackets too

quote:

---

AudioPlayer.DeviceType = ".mp3"

---

now i removed the bbrackets and it says theres an error with the code

code:

---

AudioPlayer.Command = "Open"

---

hmm, just wondering, are you using media player control?

also, i suggest u put variations in the file pattern thing

because it wont find .MP3 or .WMA files otherwise, some songs have upper case extensions

example

File1.Pattern = "*.mp3;*.MP3"

etc...

what error is it giving you wivout the brackets?

runtime error '424':
Object required

and the code that has teh error is

code:

---

AudioPlayer.DeviceType = ".mp3"

---

and im using Microsoft Multimedia Control 6.0

its just set to invisible

hmm, i'm sorry, i can't help you with that, i always use the media player control


www.pscode.com might have something useful