Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic remplacer un item d'une listbox par sa version modifiée dans txtbox

remplacer un item d'une listbox par sa version modifiée dans txtbox

3 réponses
Avatar
Pascal
--
bonjour
comment remplacer un item d'une listbox (que j'ai sélectionné par un double
clic dans la liste pour l'afficher dans un txtbox) par sa version modifiée
dans ce txtbox ?
je patauge...


If KeyAscii = 13 Then
If Len(Trim(.txtMotInput.Text)) = 0 Then GoTo EventExitSub '
rien dans la boite, on fait rien !
If .lstMots.SelectedItem.ToString = "" Then ' idem donc il
s'agit d'un nouveau mot : je l'ajoute (en fait je voulais tester la
provenance du contenu du txtbox (est ce une nouvelle entrée ou un item
existant ) erreur ici

.lstMots.Items.Add(New
VB6.ListBoxItem(UCase(Trim(.txtMotInput.Text)), glNbreMots)) ' nouveau donc
j'ajoute
glNbreMots= glNbreMots+ 1
.txtMotInput.Text = ""
.txtMotInput.Focus()

Else ' je modifie l'item existant
.lstMots.GetItemText(UCase(Trim(.txtMotInput.Text)))
'erreur ici
End If

merci
http://www.scalpa.info
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
TroXsA
Bonjour,

Si personne ta repondu c'est qu'on comprend pas trop ce que tu veux (moi
aussi)

Tu peux etre plus clair sans trop entrer dans les details et dire ce que tu
veux au final ! ?


Cordialement,

Site : http://www.troxsa.info
Mail : http://cerbermail.com/?rIXgaw9Xsl


"Pascal" a écrit dans le message de news:
44784c6b$0$18345$


--
bonjour
comment remplacer un item d'une listbox (que j'ai sélectionné par un
double clic dans la liste pour l'afficher dans un txtbox) par sa version
modifiée dans ce txtbox ?
je patauge...


If KeyAscii = 13 Then
If Len(Trim(.txtMotInput.Text)) = 0 Then GoTo EventExitSub
' rien dans la boite, on fait rien !
If .lstMots.SelectedItem.ToString = "" Then ' idem donc il
s'agit d'un nouveau mot : je l'ajoute (en fait je voulais tester la
provenance du contenu du txtbox (est ce une nouvelle entrée ou un item
existant ) erreur ici

.lstMots.Items.Add(New
VB6.ListBoxItem(UCase(Trim(.txtMotInput.Text)), glNbreMots)) ' nouveau
donc j'ajoute
glNbreMots= glNbreMots+ 1
.txtMotInput.Text = ""
.txtMotInput.Focus()

Else ' je modifie l'item existant
.lstMots.GetItemText(UCase(Trim(.txtMotInput.Text)))
'erreur ici
End If

merci
http://www.scalpa.info



Avatar
Pascal
bonjour

en fait je charge une liste de mots dans un listbox avec un streamreader.
Puis j'aimerais éditer les mots de cette liste par un double clic dans la
liste. le double clic sur un item de la listebox enverrait celui ci dans un
textbox ou je pourrais effectuer mes modifs (genre dans la liste papo => je
corrige dans la textbox en papa et quand je tape sur entrée "papa" retourne
dans la liste en place de "papo".

Je cherche aussi un moyen de trier les items de la liste en fonction de la
taille des mots.... mais c'est un autre problème....


http://www.scalpa.info
Avatar
TroXsA
Bonjour,

Si tu utilise StreamReader c'est que tu fais la lecture d'un fichier ?
La listBox n'a pas de propriété EditLabel ?
Il me semble que la listBox est qu'en read only seulement donc pas possible
de faire la moindre edition mais je peux me tromper

le mieux serait d'utiliser une ListView et de mettre la propriete EditLabel
a True


--


Cordialement,

Site : http://www.troxsa.info
Mail : http://cerbermail.com/?rIXgaw9Xsl