Ajouter un élément à une listbox à l'aide de la fonction SensMessage

Résolu
Signaler
Messages postés
185
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
10 janvier 2008
-
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
-
Bonjour,

je veux ajouter un élément à l'aide de la fonction Sendmessage. Ca donne:



SendMessage lstHWnd, LB_ADDSTRING, 0, "test"



Je ne comprends pas comment faire! Ce n'est pas "test" qui est ajouté mais un texte différent. Comment faire?

merci

1 réponse

Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
18
Salut,

Un tit ex qui fonctionne avec une form contenant une listbox (list1) et un commandbutton (command1) :

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Const LB_ADDSTRING As Long = &H180


Private Sub Command1_Click()
Call SendMessage(List1.hwnd, LB_ADDSTRING, 0, "test")
End Sub


Le problème se situe peut-être au niveau de ton lstHWnd ?

-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci