Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - info album art
Forum - C# / VB.NET - info album art - Pagina 3

Pagine: [ 1 2 3 ] Precedente | Prossimo
Avatar
Carlo (Member)
Guru


Messaggi: 1257
Iscritto: 29/01/2018

Segnala al moderatore
Postato alle 13:25
Sabato, 04/11/2023
quella porzione di codice diventa così, visto che lb_title e timer2 vengono gestiti da playFile():

Codice sorgente - presumibilmente VB.NET

  1. Private Sub ListBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles List_canzoni.SelectedIndexChanged
  2.         Label2.Text = List_canzoni.SelectedIndex
  3.         playFile(Path.Combine(percorsoCartella, List_canzoni.SelectedItem))
  4. End Sub



anche su Button1_Click() puoi togliere le righe inutili:
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btn_play.Click
  2.         List_canzoni.SelectedIndex = 0
  3.         playFile(Path.Combine(percorsoCartella, List_canzoni.SelectedItem))
  4. End Sub


Ultima modifica effettuata da Carlo il 04/11/2023 alle 13:33


in programmazione tutto è permesso
PM Quote
Avatar
nightwolf (Normal User)
Pro


Messaggi: 63
Iscritto: 14/09/2010

Segnala al moderatore
Postato alle 15:34
Sabato, 04/11/2023
Grazie mille dell aiuto, stasera provo ma andrà sicuramente

PM Quote
Avatar
nightwolf (Normal User)
Pro


Messaggi: 63
Iscritto: 14/09/2010

Segnala al moderatore
Postato alle 0:45
Domenica, 05/11/2023
grazie mille tutto funziona.

PM Quote
Avatar
nightwolf (Normal User)
Pro


Messaggi: 63
Iscritto: 14/09/2010

Segnala al moderatore
Postato alle 0:57
Giovedì, 09/11/2023
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


nightwolf ha allegato un file: errore.png (33280 bytes)
Clicca qui per guardare l'immagine
PM Quote
Avatar
Carlo (Member)
Guru


Messaggi: 1257
Iscritto: 29/01/2018

Segnala al moderatore
Postato alle 10:32
Giovedì, 09/11/2023
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Button5_Click(sender As Object, e As EventArgs) Handles btn_open.Click
  2.     AxWindowsMediaPlayer1.Visible = True
  3.     List_canzoni.Visible = True
  4.  
  5.     If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
  6.         canzoni = System.IO.Directory.GetFiles(FolderBrowserDialog1.SelectedPath, "*mp3")
  7.         percorsoCartella = FolderBrowserDialog1.SelectedPath
  8.     End If
  9.     For i = 0 To canzoni.Length - 1
  10.         List_canzoni.Items.Add(System.IO.Path.GetFileName(canzoni(i)))
  11.     Next
  12.  
  13.     numero = List_canzoni.Items.Count
  14.     Label4.Text = numero
  15.     btn_play.Enabled = True
  16. End Sub



in programmazione tutto è permesso
PM Quote
Avatar
nightwolf (Normal User)
Pro


Messaggi: 63
Iscritto: 14/09/2010

Segnala al moderatore
Postato alle 13:26
Giovedì, 09/11/2023
grazie mille, sembra che non ci sia più nessun errore, ho anche aggiunto la possibilità di vedere video e di ascoltare la radio

PM Quote
Avatar
Carlo (Member)
Guru


Messaggi: 1257
Iscritto: 29/01/2018

Segnala al moderatore
Postato alle 18:00
Giovedì, 09/11/2023
ti ho postato un codice errato, il ciclo che popola List_canzoni deve essere eseguito solo se si clicca ok alla scelta della cartella
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Button5_Click(sender As Object, e As EventArgs) Handles btn_open.Click
  2.     AxWindowsMediaPlayer1.Visible = True
  3.     List_canzoni.Visible = True
  4.  
  5.     If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
  6.         canzoni = System.IO.Directory.GetFiles(FolderBrowserDialog1.SelectedPath, "*.mp3")
  7.         percorsoCartella = FolderBrowserDialog1.SelectedPath
  8.         For i = 0 To canzoni.Length - 1
  9.             List_canzoni.Items.Add(System.IO.Path.GetFileName(canzoni(i)))
  10.             btn_play.Enabled = True
  11.         Next
  12.     End If
  13.  
  14.     numero = List_canzoni.Items.Count
  15.     Label4.Text = numero
  16. End Sub


Ultima modifica effettuata da Carlo il 09/11/2023 alle 18:01


in programmazione tutto è permesso
PM Quote
Pagine: [ 1 2 3 ] Precedente | Prossimo