[VB6] largeur d'une zone de liste d'une combobox

**Nick13** · 26/08/2004, 10h18

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

**Verbal-Quint** · 26/08/2004, 10h42

Hello,
je dirai que c'est width tout simplement ... marche avec combobox et liste, regarde bien le nom de ta liste.

**Nick13** · 26/08/2004, 15h26

Merci pour ta reponce mais je ne souhaite pas agrandir la combobox car toute mes combo sont de même taille et alligner je veux agrandir selement la liste ou tu fait ton choix lorsque du clique sur la flèche.

**Vince41** · 26/08/2004, 15h43

On peux pas faire ça avec VB désolé

**KalHadj-Nikov** · 26/08/2004, 17h52

si c'est vital, 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

**bidou** · 27/08/2004, 08h55

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