combobox autoextensible

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

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

Code:

---

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+

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.

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

Code:

---

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:

---

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

C'est parfait ! :D

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

Merci beaucoup :wink: