Ir para conteúdo
Fórum Script Brasil
  • 0

tres Combobox no vb6


Flecha

Pergunta

Ola,

preciso saber como faço e se é possível 3 combobox da seguinte forma

Combo1

Cargo

Local

Combo2

Auxiliar

Carregador

Contador

São Bernardo

Diadema

Juquitiba

Combo3

Shopping

Bar

Farmácia

Armazem

Quando na combo1 for escolhido LOCAL, na combo2 só mostra São Bernardo, Diadema e Juquitiba

Quando na combo1 for escolhido CARGO, na combo 2 só abre Auxiliar, Carregador, Contador.

Quando na combo2 for escolhido DIADEMA, na combo 3 só aparece Farmácia e Armazem.

Acho que é isso ai.

Flecha

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0
Private Sub Combo1_Click()

If Combo1.ListIndex = 0 Then
Combo2.Clear
Combo2.AddItem "São Bernardo"
Combo2.AddItem "Diadema"
Combo2.AddItem "Juquitiba"
ElseIf Combo1.ListIndex = 1 Then
Combo2.Clear
Combo2.AddItem "Auxiliar"
Combo2.AddItem "Carregador"
Combo2.AddItem "Contador"
Else
Combo2.Clear
End If

End Sub

Private Sub Combo2_Click()

If Combo2.Text = "Diadema" Then
Combo3.Clear
Combo3.AddItem "Farmácia"
Combo3.AddItem "Armazem"
Else
Combo3.Clear
Combo3.AddItem "Shopping"
Combo3.AddItem "Bar"
Combo3.AddItem "Farmácia"
Combo3.AddItem "Armazem"
End If

End Sub

Private Sub Form_Load()

Combo1.Clear
Combo2.Clear
Combo3.Clear

Combo1.AddItem "cargo"
Combo1.AddItem "local"

End Sub

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...