Tab Control Question

  • Thread starter Thread starter jcrouse
  • Start date Start date
J

jcrouse

I am using the following code to disable tabs on a tab control:

Private Sub TabC1_SelectedIndexChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles TabC1.SelectedIndexChanged

If radFixed.Checked = True And radH.Checked = True And
TabC1.SelectedTab Is tabH Then

TabC1.SelectedTab = tabH

ElseIf radFixed.Checked = True And radHf.Checked = True And
TabC1.SelectedTab Is tabHf Then

TabC1.SelectedTab = tabHf

ElseIf radFixed.Checked = True And radVcw.Checked = True And
TabC1.SelectedTab Is tabVcw Then

TabC1.SelectedTab = tabVcw

ElseIf radFixed.Checked = True And radVccw.Checked = True And
TabC1.SelectedTab Is tabVccw Then

TabC1.SelectedTab = tabVccw

ElseIf radRotating.Checked = True And TabC1.SelectedTab Is tabR Then

TabC1.SelectedTab = tabR

Else

TabC1.SelectedTab = tabMain

End If

End Sub



The problem is the "Else" statement. If the user is on a tab (where he
should be) and selects another tab, it is disabled like I want, however, the
"Else" statement sends hime back to the main tab. Is their a property to
tell what tab I am currently on and just stay there. Something like tab =
tabcontrol.currenttab ?



Thanks,

John
 
Thanks for the response Ken. I'll take a look see when I get a second. I did
get it working (at least disabling the other tabs, using a variable. Here is
the code:

Private Sub TabC1_SelectedIndexChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles TabC1.SelectedIndexChanged

If radFixed.Checked = True And radH.Checked = True And
TabC1.SelectedTab Is tabH Then

TabC1.SelectedTab = tabH

curTab = tabH

Exit Sub

ElseIf radFixed.Checked = True And radHf.Checked = True And
TabC1.SelectedTab Is tabHf Then

TabC1.SelectedTab = tabHf

curTab = tabHf

Exit Sub

ElseIf radFixed.Checked = True And radVcw.Checked = True And
TabC1.SelectedTab Is tabVcw Then

TabC1.SelectedTab = tabVcw

curTab = tabVcw

Exit Sub

ElseIf radFixed.Checked = True And radVccw.Checked = True And
TabC1.SelectedTab Is tabVccw Then

TabC1.SelectedTab = tabVccw

curTab = tabVccw

Exit Sub

ElseIf radRotating.Checked = True And TabC1.SelectedTab Is tabR Then

TabC1.SelectedTab = tabR

curTab = tabR

Exit Sub

Else

TabC1.SelectedTab = curTab

Exit Sub

End If

End Sub





Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click

TabC1.SelectedTab = tabMain

End Sub

However, now I can't get back to the "Main" tab. The last sub makes the
entire Options form disappear. Any idea what I'm overlooking here?

Thanks,
John
 
Back
Top