Nous sommes actuellement le 19 Avr 2024, 16:12

Le fuseau horaire est UTC-5 heures [Heure d’été]




Publier un nouveau sujet Répondre au sujet  [ 4 message(s) ] 
Auteur Message
 Sujet du message: Probleme avec Les boite List
MessagePublié: 12 Mai 2002, 14:43 
Hors-ligne
Répond à tout!
Répond à tout!
Avatar de l’utilisateur

Inscription : 07 Jan 2002, 18:14
Message(s) : 2312
Localisation : Québec
J'ai une boite list. Quand j'ouvre un mp3 Le FileTitle va ds La list2 mais quand je le selectionne et que je fait play il ne veut pas mettre le FileTitle ds la List1. Voici les commandes que j'ai utilisé pour essayer de faire cela...

Code :
Private Sub Command1_Click()
Form1.List1.AddItem Form1.Text1
Text1 = Form1.List2.Text
On Error Resume Next
MediaPlayer1.FileName = Text1.Text
List1.Text = MediaPlayer1.FileName
If Text1.Text <> "" Then
MediaPlayer1.Play

Else
Exit Sub
End If
End Sub


Haut
 Profil  
Répondre en citant  
 Sujet du message:
MessagePublié: 12 Mai 2002, 17:09 
Hors-ligne
Référence
Référence
Avatar de l’utilisateur

Inscription : 07 Jan 2002, 00:24
Message(s) : 5834
Je ne comprend pas vraiment le problème, mais je vais vous donner quelques conseils:

Ne pas faire:
if Text1.Text <> "" then

faites plustot:
if Len(text1.text) <> 0 then

c'est plus rapide.

Dans le même ordre d'idée: utilisez Ucase$(), Left$(), Replace$(), mid$(), lcase$(), right$() lorsque vous utilisez ces fonctions dans le but de retourner une string, c'est jusqu'a 4 fois plus rapide (je sais c'est pas de opération longue, mais...)

Et donnez des noms significatifs à vos contrôles, form et autres
pour un textbox: txtUnNom
Form: frmUnNom
Label: lblUnNom
...

Pour votre problème, ajouter un item dans un listbox ne fait pas en sorte qu'il soit afficher, si c'est ça le problème, vous devez, après l'avoir ajouter, mettre la sélection sur cet item.


Haut
 Profil  
Répondre en citant  
 Sujet du message:
MessagePublié: 12 Mai 2002, 18:30 
Hors-ligne
Répond à tout!
Répond à tout!
Avatar de l’utilisateur

Inscription : 07 Jan 2002, 18:14
Message(s) : 2312
Localisation : Québec
Et bien c'est ca, jai 2 list et je veux que quand je selectionne un item et que je fait play cet item aye ds la list 1 .....


Haut
 Profil  
Répondre en citant  
 Sujet du message:
MessagePublié: 16 Mai 2002, 08:29 
Hors-ligne
Fidèle
Fidèle
Avatar de l’utilisateur

Inscription : 07 Jan 2002, 22:14
Message(s) : 790
Localisation : Extrémité sud-ouest de Lévis
Encore plus rapide Jump

If (LenB(Text1.Text)) Then

LenB compte le nombre d'octets. La fonction n'a donc pas besoin de savoir si elle a affaire à une chaîne Unicode ou ANSI.

Pour ce qui est de l'ommision du <> 0, j'ai remarqué que Visual Basic se comportait exactement comme le langage C, c'est-à-dire, tout ce qui est différent à 0 veut dire Vrai. Mais pour vous, le Penguin, je vous recommande d'écrire le <> 0.

Plus drôle encore, Jump, j'ai trouvé que "" prend de la place dans le programme compilé. Mais comment ? par l'en-tête de chaîne BSTR d'une dizaine d'octets environ. Si vous devez vider une chaîne, je vous conseille vbNullString qui est justement "" qui sera référencée une fois et non x fois.


Haut
 Profil  
Répondre en citant  
Afficher les messages publiés depuis :  Trier par  
Publier un nouveau sujet Répondre au sujet  [ 4 message(s) ] 

Le fuseau horaire est UTC-5 heures [Heure d’été]


Qui est en ligne ?

Utilisateur(s) parcourant ce forum : Aucun utilisateur inscrit et 9 invité(s)


Vous ne pouvez pas publier de nouveaux sujets dans ce forum
Vous ne pouvez pas répondre aux sujets dans ce forum
Vous ne pouvez pas éditer vos messages dans ce forum
Vous ne pouvez pas supprimer vos messages dans ce forum

Recherche de:
Aller vers :  
cron
Propulsé par phpBB® Forum Software © phpBB Group
Traduction et support en françaisHébergement de site