ComboBox y sstab
Tengo un comboBox dentro de un sstab1.tab=0 y al seleccionar un elemento del comboBox quiero que me pase al sstab1.tab=1 y me habilite un frame que contiene unos textbox para ingresar datos.
He probado esto:
private sub combo_chance()
if combo.selected(1)=true then
sstab1.tab=1
frame5.enable=true
end if
y tambien asi:
if combo.text ="algo" then
sstab1.tab1=1
frame5.enable=true
end if
pero ni se entera que tiene que hacer...
sugerencia seran bienvenidas :)
Lo ultimo que probe y tampoco funciono
Private Sub Combo3_Change()
If Combo3.ListIndex(1) Then
SSTab1.Tab = 1
Frame5.Enabled = True
End If
He probado esto:
private sub combo_chance()
if combo.selected(1)=true then
sstab1.tab=1
frame5.enable=true
end if
y tambien asi:
if combo.text ="algo" then
sstab1.tab1=1
frame5.enable=true
end if
pero ni se entera que tiene que hacer...
sugerencia seran bienvenidas :)
Lo ultimo que probe y tampoco funciono
Private Sub Combo3_Change()
If Combo3.ListIndex(1) Then
SSTab1.Tab = 1
Frame5.Enabled = True
End If
Respuesta de jarpsoft
1
He probado hacer lo que me dices y me sale con el siguiente código:
Private Sub Combo_Click()
If Combo.Text = "Datos Personales" Then
SSTab.Tab = 1
Frame1.Enabled = True
Text1.SetFocus
ElseIf Combo.Text = "Opciones" Then
SSTab.Tab = 2
Text3.SetFocus
End If
End Sub
Private Sub Form_Activate()
Combo.SetFocus
End Sub
Private Sub Form_Load()
SSTab.Tab = 0
Frame1.Enabled = False
Combo. AddItem "Datos Personales"
Combo. AddItem "Opciones"
End Sub
Private Sub Combo_Click()
If Combo.Text = "Datos Personales" Then
SSTab.Tab = 1
Frame1.Enabled = True
Text1.SetFocus
ElseIf Combo.Text = "Opciones" Then
SSTab.Tab = 2
Text3.SetFocus
End If
End Sub
Private Sub Form_Activate()
Combo.SetFocus
End Sub
Private Sub Form_Load()
SSTab.Tab = 0
Frame1.Enabled = False
Combo. AddItem "Datos Personales"
Combo. AddItem "Opciones"
End Sub
