bruno93220
Messages postés17Date d'inscriptionmercredi 6 décembre 2000StatutMembreDernière intervention 7 février 2009
-
6 févr. 2009 à 17:28
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
7 févr. 2009 à 16:10
Bonsoir,
J'ai un petit problème, je suis entrain de programmer un logiciel de lecteur de musique.
Mon problème est quand j'arrive a la fin de la playlist (FileListBox) j'ai un message d'erreur. Comment resoudre ce problème ?
bruno93220
Messages postés17Date d'inscriptionmercredi 6 décembre 2000StatutMembreDernière intervention 7 février 2009 7 févr. 2009 à 09:28
oki je voi, mais apres plusieurs testes ca ne marche pas donc j'ai fait quelque modif du code et j'ai trouvé celui ci comme code, il y a une erreur mais je ne la comprend pas. pouvez vous m'aidez? merci d'avance
code :
Private Sub suiv_Click()
If File1.ListIndex >= File1.ListCount Then
File1.ListIndex = File1.TopIndex
End If
If File1.ListIndex < File1.ListCount Then
File1.ListIndex = File1.ListIndex + 1 ' A cette ligne est mon erreur
End If
play_Click
End Sub
mon erreur ce produit lors du passage de file1.listcount a File1.TopIndex.
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 7 févr. 2009 à 13:46
File1.ListIndex = File1.TopIndex
pourquoi TopIndex ?
pourquoi pas 0 ?
c'est très étrange...
TopIndex est l'indice du premier element visible de la liste.
Il change donc en fonction de la position de la ScrollBar...
penses simplement au 'Else'
Private Sub suiv_Click()
If File1.ListIndex = File1.ListCount-1 Then
File1.ListIndex = 0
Else
File1.ListIndex = File1.ListIndex + 1
End If
play_Click
End Sub