largeur d'une zone de liste d'une combobox
Citation:
Envoyé par
bidou
Avec des API
Code:
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
pb sur Largeur de liste combobox
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:
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:
1
2
3
| Public Sub ChangeLargeurListe(ByRef cboThis As ComboBox, ByVal Largeur As Long)
SendMessageLong cboThis.hwnd, CB_SETDROPPEDWIDTH, Largeur, 0
End Sub |
Code:
1
2
3
| Private Sub Form_Load()
ChangeLargeurListe Me.Combo1, 300
End Sub |
