LECTEUR DE MUSIQUE ET LECTEUR AUDIO

Commentaire de titicar le 06/06/2008 20:17:53

Bon allez, je vais être le premier à déposer un commentaire:

1) Pourquoi choisir Form1.ShowInTaskbar=FALSE ? Moi qui suit un membre très actif du ALT+TAB

2) If strListe2 = "mp3" Or strListe2 = "MP3" Or strListe2 = "Mp3" Or strListe2 = "mP3" etc...
C'est trop long. Si maintenant, on doit se soucier de toutes les possibilités d'écriture, on n'en fini plus.
Mieux vaut utiliser LCASE par exemple, qui transforme un string en minuscule. Attention, ça ne fonctionne plus avec des caractères accentués mais ça devrait suffire pour convertir une extension de fichier.
Au lieu d'écrire :
strListe2 = strSeparation2(UBound(strSeparation2))
If strListe2 = "mp3" Or strListe2 = "MP3" Or strListe2 = "Mp3" Or strListe2 = "mP3" etc... Then
Mieux vaut écrire:
strListe2 = LCase(strSeparation2(UBound(strSeparation2)))
If strListe2 = "mp3" Or strListe2 = "wav" Or strListe2 = "wma" Then

3) strEffacerRep = MMControl1.Error
- MMControl1.Error renvoie une valeur de type Long
- alors que strEffacerRep est déclarée en type String
Essaie d'associer toujours les même types ! Ou alors de convertir l'une des valeurs suivant le type de l'autre.
3.1) Donc pour garder les mêmes types, déclare strEffacerRep as Long (tant qu'à faire, modifie le nom de cette variable, genre lngEffacerRep)
3.2) Ou alors conversion de valeur : strEffacerRep = Trim(Str(MMControl1.Error))
'Str' convertie une valeur numérique en un string
'Trim' supprime le premier espace vide si la valeur numérique est positive depuis Str (VB remplace un '+' par un ' ' si l'on utilise la fonction Str).

Par contre, je ne note pas car je n'utilise pas MMControl.