Me Ajudem Com Uma Combobox

[mestre fyoda]

Num Formulario .

Eu gostaria de fazer desse jeito , eu tenho um COMBObox , e ele esta assim :

Filhos : quantidade de filhos

0

1

2

Por exemplo , o usuario clica no 2 , ai tera que aparecer mais 2 campos textos nome , ou quando o usuario clica no campo 1 aparecera um campo texto nome .

Como q se faz isso ?

[kuroi]

Crie os dois TextBox e deixem com Visible=False.

No evento OnClick do combo, verifique a propriedade ListIndex. Se for 0, esconda os dois textbox, se for 1, mostre apenas 1 e se for 2, mostre os dois, usando a propriedade Visible (True/False).

[mestre fyoda]

deu quase certo , ta dando um pequeno problema , o campo Texto so desaparece quando eu digito alguma coisa no campo texto em que vai desaparecer , como concerto isso ?

campo texto meufilho1 ( esse campo desaparece )

Private Sub nomefilho1_Change()

If quantidade.ListIndex = 2 Then

nomefilho1.Visible = False

nomefilho2.Visible = True

nomefilho3.Visible = True

End If

End Sub

[kuroi]

você ta fazendo certo, só q no evento errado.

Se você puser no Nomefilho1_Change ele só vai esconder as caixas de texto, quando você alterar o esse campo.

Ponha esses códigos no evento onclick do ComboBox. Tipo assim:

Private Sub Combo1_OnClick '<- Esse evento
If quantidade.ListIndex = 2 Then
nomefilho1.Visible = False
nomefilho2.Visible = True
nomefilho3.Visible = True
End If
End Sub

[mestre fyoda]

não deu certo , ficou assim no combobox:

Private Sub Combo1_OnClick() '<- Esse evento
If quantidade.ListIndex = 2 Then
nomefilho1.Visible = False
nomefilho2.Visible = True
nomefilho3.Visible = True
End If
End Sub

[kuroi]

em vez de Combo1_Click ponha quantidade_Click.

Não tinha visto q seu combo chamava quantidade...

[mestre fyoda]

mesmo assim não da certo.

faz um no vb6.0 e coloca pra baixar .

[kuroi]

Cara, explica o q ta dando errado...

Faça o seguinte.

Verifique os nomes dos seus objetos:

1 - Seu combo chama quantidade?

2 - As caixas de texto se chamam nomefilho1 e nomefilho2?

OK. Então use o seguinte codigo:

Private Sub quantidade_Click()
    If quantidade.ListIndex = 0 Then
        nomefilho1.Visible = False
        nomefilho2.Visible = False
    ElseIf quantidade.ListIndex = 1 Then
        nomefilho1.Visible = True
        nomefilho2.Visible = False
    ElseIf quantidade.ListIndex = 2 Then
        nomefilho1.Visible = True
        nomefilho2.Visible = True
    End If
End Sub

Adapte o código de acordo com como você quer.

Vi q voce esta usando 3 textbox.

Qual o proposito do terceiro, se o cara pode por no máximo apenas 2 filhos?

[mestre fyoda]

deu certo daquele geito q você me passou mas tinha um pqueno erro .

formata errada

Private Sub Combo1_[COLOR=red]OnClick [/COLOR]'<- Esse evento
If quantidade.ListIndex = 2 Then
nomefilho1.Visible = False
nomefilho2.Visible = True
nomefilho3.Visible = True
End If
End Sub

o certo

Private Sub Combo1_[COLOR=red]Click [/COLOR]'<- Esse evento
If quantidade.ListIndex = 2 Then
nomefilho1.Visible = False
nomefilho2.Visible = True
nomefilho3.Visible = True
End If
End Sub