04/11 11:26
nightwolf
si certo, ma lerrore me llo da nella lb_title della ListBox2_SelectedIndexChanged,
scusa se non ero stato chiaro prima
Ultima modifica effettuata da nightwolf 04/11 11:28
aaa
04/11 12:25
Carlo
quella porzione di codice diventa così, visto che lb_title e timer2 vengono gestiti da playFile():
Private Sub ListBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles List_canzoni.SelectedIndexChanged
Label2.Text = List_canzoni.SelectedIndex
playFile(Path.Combine(percorsoCartella, List_canzoni.SelectedItem))
End Sub
anche su Button1_Click() puoi togliere le righe inutili:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btn_play.Click
List_canzoni.SelectedIndex = 0
playFile(Path.Combine(percorsoCartella, List_canzoni.SelectedItem))
End Sub
Ultima modifica effettuata da Carlo 04/11 12:33
in programmazione tutto è permesso
04/11 14:34
nightwolf
Grazie mille dell aiuto, stasera provo ma andrà sicuramente
aaa
04/11 23:45
nightwolf
grazie mille tutto funziona.
aaa
08/11 23:57
nightwolf
buonasera a tutti, ringrazio ancora per l immenso aiuto ricevuto, il tutto funziona ma mi sono accorto che nella listbox mi si aggiungono anche le coordinate delle copertine, come faccio a mettere il filtro .mp3, nel openfiledialog c'è filter, ma nel folderbrowsdialog?
allego immagine
grazie mille
aaa
09/11 9:32
Carlo
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles btn_open.Click
AxWindowsMediaPlayer1.Visible = True
List_canzoni.Visible = True
If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
canzoni = System.IO.Directory.GetFiles(FolderBrowserDialog1.SelectedPath, "*mp3")
percorsoCartella = FolderBrowserDialog1.SelectedPath
End If
For i = 0 To canzoni.Length - 1
List_canzoni.Items.Add(System.IO.Path.GetFileName(canzoni(i)))
Next
numero = List_canzoni.Items.Count
Label4.Text = numero
btn_play.Enabled = True
End Sub
in programmazione tutto è permesso
09/11 12:26
nightwolf
grazie mille, sembra che non ci sia più nessun errore, ho anche aggiunto la possibilità di vedere video e di ascoltare la radio
aaa
09/11 17:00
Carlo
ti ho postato un codice errato, il ciclo che popola List_canzoni deve essere eseguito solo se si clicca ok alla scelta della cartella
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles btn_open.Click
AxWindowsMediaPlayer1.Visible = True
List_canzoni.Visible = True
If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
canzoni = System.IO.Directory.GetFiles(FolderBrowserDialog1.SelectedPath, "*.mp3")
percorsoCartella = FolderBrowserDialog1.SelectedPath
For i = 0 To canzoni.Length - 1
List_canzoni.Items.Add(System.IO.Path.GetFileName(canzoni(i)))
btn_play.Enabled = True
Next
End If
numero = List_canzoni.Items.Count
Label4.Text = numero
End Sub
Ultima modifica effettuata da Carlo 09/11 17:01
in programmazione tutto è permesso