Discussion :

[seroa]

Bonjour,

Est-ce qu'il est possible de rendre un combobox autoextensible en largeur en fonction des champs qu'il contient. Ou alors augmenter sa taille lorsque la liste est déroulé ?

Merci

[ouskel'n'or]

Pour le nombre de ligne à afficher, tu as la propriété Listrows que tu peux modifier par soft

Code :

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

MonCombo.ListRows = 255

Pour la largeur, tu as la propriété "Autosize" mais je ne te la conseille pas.
Si tu peux avoir la taille de la donnée à introduire, tu fixes la largeur à un minimum et, quand ça dépasse, tu augmentes la propriété "Width"

Si tu as un pb avec ça, tu dis

A+

[seroa]

C'est bien la propriete autosize qu'il me faudrait sauf qu'elle esiste pas pour les combobox simples.

en fait je pourrait modifier la largeur avec width mais ça va pas car ça m'agradit tout le combo, je veut juste que ça soit la liste quand on clique dessus qui soit elargie en fait.... pas le combo.

[leroissejp]

Bonjour,
Option Explicit
'Copiez ce code dans un module standard :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Const CB_GETLBTEXTLEN = &H149
Private Const CB_SHOWDROPDOWN = &H14F
Private Const CB_GETDROPPEDWIDTH = &H15F
Private Const CB_SETDROPPEDWIDTH = &H160
Private Const CB_MSGMAX = &H15B
Private Const CB_SETITEMHEIGHT = &H153
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
Public Sub LargeurCombo(hwnd As Long, largeur As Long)
SendMessage hwnd, CB_SETDROPPEDWIDTH, largeur, ByVal 0
End Sub

Dans Form_Load

Code :

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

1
2
3
4
5
 
Private Sub Form_Load()
Combo1.AddItem "Bonjour, comment vas-tu"
LargeurCombo Combo1.hwnd, 250
End Sub

Ce code se trouve dans la FAQ Developpez.Com
jpleroisse

[seroa]

C'est parfait !

Je pensais pas que c'était dans la FAQ...

Merci beaucoup