LECTEUR DE MUSIQUE ET LECTEUR AUDIO
cs_titicar
Messages postés
181
Date d'inscription
jeudi 30 mai 2002
Statut
Membre
Dernière intervention
19 août 2012
-
6 juin 2008 à 20:17
killer123456789 Messages postés 11 Date d'inscription lundi 4 avril 2005 Statut Membre Dernière intervention 3 août 2008 - 6 juin 2008 à 22:18
killer123456789 Messages postés 11 Date d'inscription lundi 4 avril 2005 Statut Membre Dernière intervention 3 août 2008 - 6 juin 2008 à 22:18
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/46905-lecteur-de-musique-et-lecteur-audio
https://codes-sources.commentcamarche.net/source/46905-lecteur-de-musique-et-lecteur-audio
6 juin 2008 à 22:18
6 juin 2008 à 20:17
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.