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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  ComboBox
Elmo da Silva
não registrado
Postada em 28/05/2004 14:58 hs   
Tenho 2 combos
 
combo1       Combo2
 
0                   Azul
1                   Marrom
2                   Verde
3                   Amarelo
 
Como faço para selecionar 0 e combo2 aparecer azul e assim por diante.
 
 
VALEU GALERA OBRIGADOOO
     
Chuck_NewBie
Pontos: 2843
VILA VELHA
ES - BRASIL
Postada em 28/05/2004 15:14 hs            
no evento Change do Combo1 tenta por
Combo2.ListIndex = Combo1.Text
 
Isso dah?? eh q eu to sem o VB aqui Emoções

Grato! Chuck_NewBie
DDoS(Distrubuted Denial of Service) -> Quem domina possui a arte da destruição

Me encontre em:
ICQ: 289609955
MSN: ChuckMaia@HotMail.com

-> irc.brasnet.org - Rede BrasNET de IRC
@#HackerZ @#Hacker_Brasnet @#VBWorld @#SimienS @#VBJ @#Defacers @#Wetico
     
Tekki
Pontos: 2843 Pontos: 2843 Pontos: 2843
UBERLÂNDIA
MG - BRASIL
Postada em 28/05/2004 15:16 hs            
Veja se é isto o que você quer.
 
 
Private Sub Combo1_Click()
    Combo2.ListIndex = Combo1.ListIndex
End Sub
 
 
 
 
Private Sub Form_Load()
Combo1.AddItem "0"
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.Text = "0"
Combo2.AddItem "Azul"
Combo2.AddItem "Marrom"
Combo2.AddItem "Verde"
Combo2.AddItem "Amarelo"
Combo2.Text = "Azul"
End Sub
     
Elmo da Silva
não registrado
Postada em 28/05/2004 15:19 hs   
Nao funcionou deu erro
     
Elmo da Silva
não registrado
Postada em 28/05/2004 15:34 hs   
Telki
 
Conseguir através de vc, mas um pouquinho diferente
 
No evendo click do combo1
if combo1.text="0" then
combo2.text="Azul"
end if
 
e Assim por diante
 
Obrigado
 
     
Tekki
Pontos: 2843 Pontos: 2843 Pontos: 2843
UBERLÂNDIA
MG - BRASIL
Postada em 31/05/2004 08:53 hs            
Usando o ListIndex não funcionou? Qual versão do VB você usa?
     
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



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