USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  ComboBox - auto redimenciona
br4g4
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 24/08/2009 13:49 hs            
Tenho um ComboBox que apresenta apenas a UF dos Estados (apenas 2 digitos). Gostaria de quando abrí-lo, ele apresentasse além da UF, também o nome do Estado na sua lista, por exemplo:
 
|UF|Combo|
 RJ - Rio de Janeiri
 SP - São Paulo
 RR - Roraima
 SC - Santa Catarina
 AC - Acre
 
Veja que o texto é maio que o combo. Gostaria que o a lista se redimencionasse ao texto.
 
Obs.: Os Estados estão relacionado em uma tabela Estados em Brasil.mdb
 
Obrigado.
 
        
   
PH1959
Pontos: 2843
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
ENUNCIADA !
Postada em 24/08/2009 13:59 hs            
combobox não tem a propriedade auto size
eu sugiro q vc dimensione o seu combo pela maior palavra e mantenha um tamanho fixo
 
   
Ash Katchup
CAXIAS DO SUL
RS - BRASIL
ENUNCIADA !
Postada em 24/08/2009 16:16 hs            
Como o Ph1959 falou, a propriedade "autosize" não existe. Porém, você pode fazer uma "gambiarra" para auto dimencionar o controle:

Private Sub Combo1_Click()    
Combo1.Width = TextWidth(Combo1.Text) + 500
End Sub

__________________

"It is the way of men to make monsters...and it is the nature of
monsters to destroy their makers."

-F.E.A.R. (First Encounter Assault Recon )
TÓPICO EDITADO
 
PH1959
Pontos: 2843
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
ENUNCIADA !
Postada em 24/08/2009 16:41 hs            
pode até dar certo ash....mas depende da fonte...porisso já sugeri um tamanho fixo
 
   
br4g4
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 25/08/2009 20:00 hs            
PH1959
 
Vou ver como fica a "gambiarra" do Ash Katchup e seguir a sua dica de verificar a fonte.
 
Obrigado aos dois!
 
Abraço!
 
   
rafael
não registrado
ENUNCIADA !
Postada em 27/08/2009 13:28 hs   
Mais fácil ainda eu estava fazendo isso hoje!
Sub Open Document()    
Combo1.Text= ("  " & combobox1.text)
   
Página(s): 1/2      PRÓXIMA »

CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página