COMBO AJUSTAR LARGURAS

SNNIFFER 19/12/2010 16:43:14
#359916 Resposta escolhida

Bom Nilton, no caso, a função HEIGHT seria para o ajuste de altura para as largurar é o Width.

Para o HEIGHT, acho que isto serve.


Num módulo:

[txt-color=#e80000]Option Explicit

Private Declare Function SendMessage Lib [Ô]user32[Ô] Alias _
[Ô]SendMessageA[Ô] (ByVal hWnd As Long, ByVal wMsg As Integer, _
ByVal wParam As Long, lParam As Any) As Long

Const CB_SETITEMHEIGHT = &H153
Const CB_GETITEMHEIGHT = &H154

Public Sub SetComboBoxHeight(cboSH As ComboBox, _
ByVal sngMultipleItemHeight As Single)

Dim lngReturn As Long
Dim lngCurHeight As Long
Dim lngPixels As Long


lngCurHeight = SendMessage(cboSH.hWnd, CB_GETITEMHEIGHT, _
-1, ByVal 0&)

lngPixels = (lngCurHeight * sngMultipleItemHeight)

lngReturn = SendMessage(cboSH.hWnd, CB_SETITEMHEIGHT, _
-1, ByVal lngPixels)

cboSH.Refresh
End Sub[/txt-color]


No Form_Load, com uma combobox com nome [Ô]Combo1[Ô].:


[txt-color=#e80000]Private Sub Form_Load()
SetComboBoxHeight Combo1, 0.8
End Sub[/txt-color]


Lembrando só que, para alterar o tamanho da Combo é só mudar o valor 0.8 para mais ou menos.



Boa sorte.

NILTON.VIANNA 19/12/2010 18:29:04
#359921

é seria na altura mesmo
pois tenho uma linha com

txtNome.Height = 285
cboHoras.Height = 285 (so aceita 315)

grato

SNNIFFER 19/12/2010 19:04:35
#359922

é que o minimo de tamanho de alguns objetos do vb, são limitados a Height - 315.

Mas, com a codificação acima é possivel igualar ao TextBox, ficaria:

[txt-color=#e80000]Private Sub Form_Load()
SetComboBoxHeight Combo1, 0.9
End Sub[/txt-color]



Vlw.