Lecteur de musique et lecteur audio

Soyez le premier à donner votre avis sur cette source.

Vue 8 121 fois - Téléchargée 976 fois

Description

Lecteur de musique assez lite. Création de liste de musique. Pas mal complet. Je m'excuse d'avoir posté une source antérieurement avec le zip qui était manquant. En gros, je l'avais enlevé car il y avait un petit bug.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
11
Date d'inscription
lundi 4 avril 2005
Statut
Membre
Dernière intervention
3 août 2008

Merci du commentaire. Je vais essayer de corriger sa à l'avenir.
Messages postés
181
Date d'inscription
jeudi 30 mai 2002
Statut
Membre
Dernière intervention
19 août 2012

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.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (killer123456789)