Saturday, August 1, 2009

VB6: Cellphone database, form designs Part 2

After integrating the two frame in one form:











































Private selectedTab As Integer

Private Sub TabStrip1_Click()
selectedTab = TabStrip1.SelectedItem.Index
Debug.Print "sTab " & selectedTab
Select Case selectedTab
Case 1
frameOne.Visible = True
frameTwo.Visible = False

Case 2
frameOne.Visible = False
frameTwo.Visible = True

End Select
End Sub

The fancy VB control, later, after we got this running.

No comments:

Post a Comment