Discussion :

[NELAIN]

Avec des API

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Const CB_GETDROPPEDWIDTH = &H15F
Private Const CB_SETDROPPEDWIDTH = &H160
 
Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 
 
Public Sub ChangeLargeurListe(ByRef cboThis As ComboBox, ByVal Largeur As Long)
    SendMessageLong cboThis.hwnd, CB_SETDROPPEDWIDTH, Largeur, 0
End Sub
 
Private Sub Form_Load()
    ChangeLargeurListe Me.Combo1, 300
End Sub

Bonjour,

J'ai essayé d'élargir la liste de ma combobox sous excel 2003, avec le code ci dessus mais voilà il ne me reconnait pas la propriété hwnd du coup je l'ai remplacé par la propriété top mais ça ne fait rien. y a t il une référence à cocher ou quelque chose à faire avant d'éxécuter le code

par avance merci de votre aide

cn

[NELAIN]

Bonjour,

J'utilise le code trouver dans la faq sous excel pour modifier la taile de la liste de ma combobox, mais il ne me reconnait pas la propriètè hxnd du coup je l'ai remplacé par top mais ça ne fait pas grand chose.
Faut il cocher une référence ou faire quelque chose avant d'éxécuter le code?

Merci par avance de votre aide
bonne journée

cn

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Const CB_GETDROPPEDWIDTH = &H15F
Private Const CB_SETDROPPEDWIDTH = &H160
 
Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Sub ChangeLargeurListe(ByRef cboThis As ComboBox, ByVal Largeur As Long)
    SendMessageLong cboThis.hwnd, CB_SETDROPPEDWIDTH, Largeur, 0
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Form_Load()
    ChangeLargeurListe Me.Combo1, 300
End Sub

[SfJ5Rpw8]

La réponse est dans la discussion citée :

bonjours à tous
j'aimerai savoir si il est possible de régler la largeur d'une zone de liste dans une comboboxsous VB car avec Access c'est la propriété "listwidth"

merci d'avance

[NELAIN]

La réponse est dans la discussion citée :

Désolé du dérangement BBil, mais j'avais fait des recherches et suis tombée sur ce post ou plus bas il est dit

"tu peux le faire avec un composant payant. les APEX TrueDB List.
la taille de la liste déroulée s'adapte aux données "

Ensuite il apparait le code que j'ai utilisé donné en exemple ci-dessus.

Avec cette discusion j'avais compris que ma solution était dans ce code.

Voilà en tout cas merci de ta réponse elle m'a été comme toutes les réponse sur ce site trés utile et bonne journée.
carina