|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Controles Intrínsecos (Padrão))
|
|
 |
Título da Dica: Aumentar nro de linhas de um combo (padrão do VB só mostra 8 e acrescenta uma scroll)
|
 |
|
|
|
Postada em 22/11/2000 por Adriano
milinha_meiga@hotmail.com
- Módulo BAS
Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
- Função do Módulo BAS
Public Sub SetComboHeight(oComboBox As ComboBox, lNewHeight As Long)
Dim oldscalemode As Integer
If TypeOf oComboBox.Parent Is Frame Then Exit Sub
oldscalemode = oComboBox.Parent.ScaleMode
oComboBox.Parent.ScaleMode = vbPixels
MoveWindow oComboBox.hwnd, oComboBox.Left, oComboBox.Top, oComboBox.Width, lNewHeight, 1
oComboBox.Parent.ScaleMode = oldscalemode
End Sub
- Form Load
Dim i As Integer
For i = 1 To 20
Combo1.AddItem "Item " & i
Next
Call SetComboHeight(Combo1, 400)
Obs.: Nesse caso, ao abrir a combo, o VB mostrará todos os 20 registros e não 8 com acréscimo de scroll bar.
|
|
|
|
|
