Modif une valeur listbox par double click

mdaigre Messages postés 22 Date d'inscription jeudi 5 juin 2003 Statut Membre Dernière intervention 17 décembre 2003 - 25 juin 2003 à 16:59
KaViDee Messages postés 262 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 18 juin 2008 - 25 juin 2003 à 19:52
Je souhaiterai pouvoir modifier une valeur de la liste . Pour cela, quand on double-click sur cet élément une zone de texte apparaît pour saisir la nouvelle valeur et je veux que ce texte remplace la valeur de l'élément cliqué.
Si quelqu'un sait, merci d'avance.

Marlène

1 réponse

KaViDee Messages postés 262 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 18 juin 2008
25 juin 2003 à 19:52
Salut voici le code a mettre:

'La fonction
Public Function NewItem(List As ListBox)
Dim R As String
R = InputBox("Saisissez la nouvelle valeur :", "Nouvelle valeur")
List.List(List.ListIndex) = R
End Function

Private Sub List1_DblClick()
'Comment l'utiliser:
'Ne surtout pas mettre de parentheses sinon ça marche pas
NewItem List1
End Sub


@+
KaViDee
www.kavidee-concept.fr.st
0
Rejoignez-nous