(Resolvido)�Relação entre 2 Combobox

[joanalima2010]

Olá

Uso o VB 2008 e gostaria de ajuda para fazer uma relação entre 2 combobox.

Um com 2 especies... Felinos e Caninos. E ao escolher uma das especies....o segundo combobox mostraria as respectivas raças.

Muito obrigada

Editado Novembro 8, 2009 por joanalima2010

[juninnn]

Você precisa usar o evento SelectedIndexChanged do combobox1 e fazer a verificação pelo indice selecionado, segue um exemplo:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("Felinos")
        ComboBox1.Items.Add("Caninos")


    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        ComboBox2.Items.Clear()
        If ComboBox1.SelectedIndex = 0 Then
            ComboBox2.Items.Add("gato")
            ComboBox2.Items.Add("onça")
        ElseIf ComboBox1.SelectedIndex = 1 Then
            ComboBox2.Items.Add("lobo")
            ComboBox2.Items.Add("cachorro")
        End If
        
    End Sub
End Class

[joanalima2010]

Funcionou perfeitamente....muito obrigada...sem palavras pra agradecer!!!

Beijos :rolleyes:

Você precisa usar o evento SelectedIndexChanged do combobox1 e fazer a verificação pelo indice selecionado, segue um exemplo:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("Felinos")
        ComboBox1.Items.Add("Caninos")


    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        ComboBox2.Items.Clear()
        If ComboBox1.SelectedIndex = 0 Then
            ComboBox2.Items.Add("gato")
            ComboBox2.Items.Add("onça")
        ElseIf ComboBox1.SelectedIndex = 1 Then
            ComboBox2.Items.Add("lobo")
            ComboBox2.Items.Add("cachorro")
        End If
        
    End Sub
End Class