Probleme textbox [ Résolu ]
richard_10
Messages postés
23
Statut
Membre
-
richard_10 Messages postés 23 Statut Membre -
richard_10 Messages postés 23 Statut Membre -
Bonjour,
Je me trouve devant un probléme que je n'arrive pas à résoudre pour le moment :
Considérons une CommandButton et un TextBox, je veux transmettre des valeurs à partir de ma CommandButton vers le textbox.Enfin voilà un simple exemple :
Private Sub Command1_click()
dim i as integer
for i = 1 to 10
Text1.text = i
next i
End Sub
Résultat : le TextBox conserve que la dérniére valeur : 10 ,autrement dit : il y a un ecrasement des valeurs dans le Textbox
Qquestion : comment faire pour récupérer toutes les valeurs envoyées par la commandButton et cela sans ecrasement biensur :)
merci d'avance
Je me trouve devant un probléme que je n'arrive pas à résoudre pour le moment :
Considérons une CommandButton et un TextBox, je veux transmettre des valeurs à partir de ma CommandButton vers le textbox.Enfin voilà un simple exemple :
Private Sub Command1_click()
dim i as integer
for i = 1 to 10
Text1.text = i
next i
End Sub
Résultat : le TextBox conserve que la dérniére valeur : 10 ,autrement dit : il y a un ecrasement des valeurs dans le Textbox
Qquestion : comment faire pour récupérer toutes les valeurs envoyées par la commandButton et cela sans ecrasement biensur :)
merci d'avance
A voir également:
- Probleme textbox [ Résolu ]
- Vba textbox date format dd/mm/yyyy - Forum VB / VBA
- Problème curseur souris incontrolable résolu - Forum Virus
- Problème résolution écran 1920x1080 - Forum Windows 10
- Résolution "1920x1080" non disponible !! ✓ - Forum Windows
- Ce colis est en attente de dédouanement ou de résolution d’un problème dans un centre sécurisé. ✓ - Forum Matériel & Système
6 réponses
Salut,
tu ne vois que la derniere valeur, c'est que le traitement est très rapide.
Ensuite pour ce que tu voudrais afficher soit un peu plus précis . tu voudrais que sur le bouton soit affiché "1 2 3 4 ... 10 " ?
Si oui, regarde avec ca ce que ca te donne :
Tout vient à point à qui sait attendre
tu ne vois que la derniere valeur, c'est que le traitement est très rapide.
Ensuite pour ce que tu voudrais afficher soit un peu plus précis . tu voudrais que sur le bouton soit affiché "1 2 3 4 ... 10 " ?
Si oui, regarde avec ca ce que ca te donne :
Private Sub Command1_click() dim i as integer Test1.text = "" for i = 1 to 10 Text1.text = Text1.text & " " & i next i End Sub
Tout vient à point à qui sait attendre
Salut Creutzou,
Oui , c'etais exactement ce que je demandais et le résultat me satisfait bien , mais il me reste encore une petite chose à apprendre : je veux que ces valeurs soient distribuées par lignes.Je précise :
lors de l'éxécution du programme, j'ai obtenu comme résultat :
1 2 3 ... 10 , et puis comment faire pour les rendre :
1
2
...
10
PS : je sais que cela venir des propriétés du textbox mais je n'ai rien trouver.
voilà merci pour ta réponse
Oui , c'etais exactement ce que je demandais et le résultat me satisfait bien , mais il me reste encore une petite chose à apprendre : je veux que ces valeurs soient distribuées par lignes.Je précise :
lors de l'éxécution du programme, j'ai obtenu comme résultat :
1 2 3 ... 10 , et puis comment faire pour les rendre :
1
2
...
10
PS : je sais que cela venir des propriétés du textbox mais je n'ai rien trouver.
voilà merci pour ta réponse
je vais te mettre sur la piste, mais te laisser chercher (pour te faire progresser et t'obliger a comprendre la logique, si vraiment tu ne vois pas, je te dirais)
dans l'exemple du dessus , nous avions une boucle qui allait de 1 à 10.
à chaque passage dans cette boucle, on afficher la valeur de la variable i dans ton texte box.
Or toi au debut, tu lui avait dis
i étant succesivement egale à 1 puis à 2 puis à 3 ... puis à 10. Ton texte affichait succesivement 1 puis 2 puis 3 etc...
la petite modif que j'y ai apporté
veut dire : " tu prends tout le texte de text1 et tu lui ajoute un espace puis la valeur de i"
ce qui nous a donné logiquement : " 1 2 3 4 5 6 7 8 9 10"
donc si tu veux que chaque numero soit à la ligne, je te laisse chercher ce qu'il faut remplacer , et par quoi.
Voili voilou
dans l'exemple du dessus , nous avions une boucle qui allait de 1 à 10.
à chaque passage dans cette boucle, on afficher la valeur de la variable i dans ton texte box.
Or toi au debut, tu lui avait dis
textbox.text = i
i étant succesivement egale à 1 puis à 2 puis à 3 ... puis à 10. Ton texte affichait succesivement 1 puis 2 puis 3 etc...
la petite modif que j'y ai apporté
Text1.text = Text1.text & " " & i
veut dire : " tu prends tout le texte de text1 et tu lui ajoute un espace puis la valeur de i"
ce qui nous a donné logiquement : " 1 2 3 4 5 6 7 8 9 10"
donc si tu veux que chaque numero soit à la ligne, je te laisse chercher ce qu'il faut remplacer , et par quoi.
Voili voilou
Merci pour l'explication, j'ai carrément ignoré cette logique là , parce que le mot débutant que j'ai marqué dans le titre désigne seulement ma situation en VB , mais pas dans d'autres langages . En tout cas la solution que j'ai pu trouver et la suivante :
Private sub ....
Textbox = Textbox & "" & i & vbCrLf
end sub
et sa donne bien le bon résultat!
j'ai remarqué également qu'on pourra utilisé l'instruction Chr(13) + Chr(10) qui retourne la valeur correspondante au code ASCII, et là en ajoutant les deux valeurs obtenues , on aura alors un retour à la ligne
Finallement, merci bien à toi car tu m'as aider .
bonne soirée
Private sub ....
Textbox = Textbox & "" & i & vbCrLf
end sub
et sa donne bien le bon résultat!
j'ai remarqué également qu'on pourra utilisé l'instruction Chr(13) + Chr(10) qui retourne la valeur correspondante au code ASCII, et là en ajoutant les deux valeurs obtenues , on aura alors un retour à la ligne
Finallement, merci bien à toi car tu m'as aider .
bonne soirée
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question