Desactivando tabs dinamicamente

[Highlander]

Hola estoy tratando de desactivar o activar tabs segun una opcion de un combobox pero no me esta resultado totalmente, sino que se comporta erraticamente.

El codigo que uso me habia servido antes pero para cosas muy puntuales.

Código:

Private Sub cboTipoSocio_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboTipoSocio.SelectionChangeCommitted


        Select Case cboTipoSocio.SelectedValue

            Case 1 'Familiar

                TabPage2.Enabled = True 'Conyuge
                TabPage3.Enabled = True 'cargas
                TabPage4.Enabled = True 'Laboral

            Case 2 'Individual
                TabPage2.Enabled = Not TabPage2.Enabled 'Conyuge
                TabPage3.Enabled = Not TabPage3.Enabled 'cargas
                TabPage4.Enabled = True 'Laboral

            Case 3 'Estudiante

                TabPage2.Enabled = Not TabPage2.Enabled 'Conyuge
                TabPage3.Enabled = Not TabPage3.Enabled 'cargas
                TabPage4.Enabled = Not TabPage4.Enabled 'Laboral

              
        End Select

    End Sub

Código:

 Private Sub TabControl1_Selecting(ByVal sender As Object, ByVal e As System.Windows.Forms.TabControlCancelEventArgs) Handles TabControl1.Selecting

        ' Referenciamos el control TabPage que ha sido seleccionado
        '
        Dim tp As TabPage = e.TabPage

        ' Cancelamos la selección si el control
        ' se encuentra deshabilitado.
        '
        e.Cancel = Not tp.Enabled

    End Sub

Ojala me puedan ayudar un poco ya que no encuentro el error, saludos.

[TheAlkaline]

Te recomendaria usar el evento cboTipoSocio_SelectedIndexChanged
y en el select case hacerlo que valide el valor de:
Select Case cboTipoSocio.SelectedIndex

Supongo que segun tu codigo tu combo tiene valores como 1,2,3?. porque si tiene valores como Familiar, etc. No funcionara como lo has puesto.

[Highlander]

Iniciado por TheAlkaline

Te recomendaria usar el evento cboTipoSocio_SelectedIndexChanged
y en el select case hacerlo que valide el valor de:
Select Case cboTipoSocio.SelectedIndex

Supongo que segun tu codigo tu combo tiene valores como 1,2,3?. porque si tiene valores como Familiar, etc. No funcionara como lo has puesto.

Probe lo que me indicas pero sigue pasando lo mismo, puedo ingresar a tabs que no deberia, se comporta muy extraño ya no se que es el problema.

Gracias.

[Highlander]

Probe otro metodo que me resulto, lo posteo por si alguien le sirve:

'Saco de visibilidad un tabpage
Me.TabPage2.Parent = Nothing

'Hago visible el tabpage
Me.TabPage2.Parent = Me.TabControl1