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