!! URGENT !! taille liste ComboBox

bins Messages postés 5 Date d'inscription mercredi 28 avril 2004 Statut Membre Dernière intervention 15 juin 2004 - 15 juin 2004 à 12:31
bins Messages postés 5 Date d'inscription mercredi 28 avril 2004 Statut Membre Dernière intervention 15 juin 2004 - 15 juin 2004 à 13:37
Salut ,
J'ai une liste déroulante qui possède plein d'items mais qd on click sur la flèche à droite, la liste affichée est beaucoup trop courte et la recherche est compliquée, car on voit pas grand chose. Comment peut-on agrandir la LONGUEUR de cette liste.

Merci d'avance pour votre réponse ..

2 réponses

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
15 juin 2004 à 13:06
Il te suiffit en fait d'ajouter les declarations suivantes :

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


(en Private, en haut du code de ta form, ou en Public , dans un module)

et de placer la ligne de code suivante

Private Sub Form_Load()
    SendMessage Combo1.hwnd, CB_SETDROPPEDWIDTH, 400, ByVal 0&
End Sub


(ici la nouvelle taille de la liste du controle 'Combo1' est de 400)
0
bins Messages postés 5 Date d'inscription mercredi 28 avril 2004 Statut Membre Dernière intervention 15 juin 2004
15 juin 2004 à 13:37
merci Renfield pour ta réponse si rapide :-)
0