UTILISATION DE L'API SENDMESSAGE AVEC UNE LISTBOX OU UN COMBOBOX
MadM@tt
Messages postés
2167
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
16 juillet 2009
-
8 oct. 2004 à 22:14
Cacophrene Messages postés 251 Date d'inscription lundi 29 mars 2004 Statut Membre Dernière intervention 4 mars 2008 - 11 sept. 2006 à 15:44
Cacophrene Messages postés 251 Date d'inscription lundi 29 mars 2004 Statut Membre Dernière intervention 4 mars 2008 - 11 sept. 2006 à 15:44
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/26686-utilisation-de-l-api-sendmessage-avec-une-listbox-ou-un-combobox
https://codes-sources.commentcamarche.net/source/26686-utilisation-de-l-api-sendmessage-avec-une-listbox-ou-un-combobox
11 sept. 2006 à 15:44
Pour l'erreur Overflow relevée ci-dessus par MaddM@tt... il suffit d'aller en haut de la page et de remplacer les "As Integer" de la déclaration de SendMessage par "As Long".
Cordialement,
Cacophrène
12 janv. 2005 à 23:35
merci....
Private Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long
Private Const SB_HORZ = 0
Private Const SB_VERT = 1
Private Const SB_BOTH = 3
ShowScrollBar List1.hwnd, SB_VERT, False
19 oct. 2004 à 12:11
J'ai la réponse :
Private Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long
Private Const SB_HORZ = 0
Private Const SB_VERT = 1
Private Const SB_BOTH = 3
ShowScrollBar List1.hwnd, SB_VERT, False
Ca fonctionne bien en statique mais pas en dynamique. Alors j'ai mis la fonction dans un timer à 1, mais on arriva à les voir cintiller...
Alors je vais creer un userform ListBox. L'astuce sera de faire le userform mois large que la ListBox contenant un scroll verticale...
La gestion des méthodes (add, remove...) sera faite par API, car c'est très rapide et simple.
A+
18 oct. 2004 à 20:20
Hélas, ça ne me dis rien non plus...
Faudrait que je pousse plus loin les investigations...
18 oct. 2004 à 19:39
Sais tu supprimer la scrollbar verticale de la listbox par API, car je souhaite utiliser une que j'ai développé.
Merci.
Eric
10 oct. 2004 à 20:50
Comme ça, ça ne me dit rien...
As-tu au moins fait une recherche sur le site ?
En tapant "menu déroulant", il y a moyen d'en trouver quelques unes.
Une adresse au hasard : http://www.vbfrance.com/code.aspx?ID=3755 "UN BEAU MENU DÉROULANT GRAPHIQUE STYLE INTERNET".
Si cela ne convient pas, tu devrais avoir plus de chance en mettant ta question sur le forum plutôt qu'en commentaires de sources (surtout quand le thème de la question n'est pas en rapport avec le thème de la source).
10 oct. 2004 à 13:18
je cherche comment créer un menu deroulant, du style
affichage puis barre d'outils puis selectionner par standard ou mise en forme ou drawing etc
ci-joint une partie de mon code + mon @
st.feuillien@skynet.be
With ActiveMenuBar.Menus.Add("SAPHR- SAP FI")
Set mi = .MenuItems.Add("TRAITEMENT SAP HR", "lecture_txt")
Set mi = .MenuItems.Add("REGROUPEMENT DES COMPTES SAP HR", "total_par_compte_identique")
End With
MERCI
tiptop
10 oct. 2004 à 10:48
Le ZIP est présent et fonctionne, je l'ai re-testé ce matin !
>>>> MadM@tt:
Désolé, mais je ne vois pas encore d'où vient le problème avec la form6... et le fait que ça bug, m'ennuie autant que toi...
9 oct. 2004 à 20:38
9 oct. 2004 à 19:10
9 oct. 2004 à 00:25
Sa peux servire :)
8 oct. 2004 à 22:46
Mais ça plante dès que je tape quoi que ce soit dans la textbox...
8 oct. 2004 à 22:42
Est-ce que ça donne la même chose lorsque tu tapes quelques choses dans la combobox ? Hélas, je ne vois pas trop ce que ça peut être...
J'ai d'ailleurs oublié de dire que la form6 permet d'ajouter un élément à la liste si le texte validé dans le combobox n'est pas repris dans la liste.
8 oct. 2004 à 22:35
ligne :
l = SendMessage(Combo1.hwnd, CB_FINDSTRING, 0, ByVal s)
8 oct. 2004 à 22:32
8 oct. 2004 à 22:31
8 oct. 2004 à 22:14
Par contre j'ai un bug pour la fenêtre 11, ça me met "hors de l'index" (si j'ai bonne mémoire)