Oppure

Loading
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