Skip Navigation Links
Novas Tecnologias
Ferramentas Adicionais
Ferramentas Adicionais


Dica No :
152
Assunto : Visual Basic
Titulo: Como aumentar o tamanho de uma Combo Box

Gostou do texto ? Vote e dê sua opinião! Pontuação atual :

Translate this page now :






Adicione aos Favoritos!
BlogBlogs Rec6 Linkk Ueba Technorati Delicious DiggIt! StumbleUpon


Por padrão, o Visual Basic só mostra 8 linhas e acrescenta uma scroll bar.

*** Código dentro do módulo:

Public 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

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

*** Código dentro do formulário:

Private Sub Form_Load()
Dim i As Integer
For i = 1 To 40
cboTeste.AddItem "Item " & i
Next
Call SetComboHeight(cboTeste, 400)
End Sub

Onde 400 é o número (em pixels), que você aumenta ou diminui, conforme a quantidade de registros que você quer mostrar quando abrir a caixa.


Nome :
E-mail:
Comentarios :
 
 
Os Últimos Comentários
data: 4/1/2017 11:50:00 PM
nome: HLCChDJoTJFyDPBgeTe
email: jimos4581rt1@hotmail.com
comentário:
wEJGFE http://www.LnAJ7K8QSpkiStk3sLL0hQP6MO2wQ8gO.com

data: 2/1/2017 3:00:00 AM
nome: JIBCuobwytyGe
email: derby451@hotmail.com
comentário:
NIYbXt http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com

data: 1/31/2017 12:07:00 PM
nome: WjPAmIHhhtuP
email: derby451@hotmail.com
comentário:
G0VdiH http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com

data: 1/30/2017 2:08:00 AM
nome: WGXUyyGOUfDJU
email: derby451@hotmail.com
comentário:
1PPav5 http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com

data: 1/30/2017 12:52:00 AM
nome: iMXLvZVdorN
email: jogcbfn@hotmail.com
comentário:
BFPr3T http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com

 1  
Dicas
Dica do Dia
Receba Dicas Por Email
E-mail :  
 


 (help)
Aceito receber informativos do devASPNet, informações de eventos e treinamentos

Veja Quais Informativos Você Receberá

Pesquisar Dicas
Pesquisar Artigos, Dicas e Noticias

Banco de Dados
Algumas Entrevistas
Links Importantes

Búfalo Informática, Treinamento e Consultoria
R. Alvaro Alvim, 37/920 Centro - Cinelândia - Rio de Janeiro Cep: 20031-010
Tel : (21) 2262-1368 (21) 9240-5134 E-mail : Contato@bufaloinfo.com.br