• Home
 · 
• Complete Applications
 · 
• Tabstrip project

Tabstrip project

This is a tabstrip project. By using an array, you can decide which tab container should be shown. Whatever you want to show when that tab is clicked goes into a container. I searched for months trying to learn about tabstrips and I hope this code helps someone else out.

Assumes
In order to use the tabstrip control you must make each tab a seperate container. For four tabs, you need four containers. By using a control array, you scroll through the containers depending on which tab you have selected. For this project I used picture boxes as the containers. In the form load procedure, the containers are made hidden so that only the one selected is visible. Also, the border is set to zero at form load. This is because when you're working on the containers, it's easier if you can see the border. At run time, you don't need the container to show, only the items you put into the container.

Rate Tabstrip project

• 1
• 2
• 3
• 4
• 5

(7(7 Vote))

For this project you will need:
1 Form - People
1 Command button - cmdexit
1 TabStrip - TabStrip1 (default)
 Place 4 tabs onto the tabstrip
4 Pictureboxes (in an array)
 A) Picture1(1)
 B) Picture1(2)
 C) Picture1(3)
 D) Picture1(4)
 
Const Numtabs = 4 'Set the number of tabs
Dim x as Integer
 
'''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub cmdexit_Click()
 Unload People
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Form_Load()
 On Error Resume Next
 People.Height = 3375 'Set the size of your form
 People.Width = 4900
 For x = 1 To Numtabs 'Loop through the tabs
 With Picture1(x)
 .BorderStyle = 0
 .Left = TabStrip1.ClientLeft
 .Top = TabStrip1.ClientTop
 .Width = TabStrip1.ClientWidth
 .Height = TabStrip1.ClientHeight
 .Visible = False
 End With
 Next x
 TabStrip1.Tabs(1).Selected = True 'Form loads with first tab selected
 Picture1(TabStrip1.SelectedItem.Index).Visible = True 'Show first container
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub TabStrip1_Click()
 'This procedure determines which tab is selected
 'and what tab container should be shown
 
 Static PrevTab As Integer
 PrevTab = Switch(PrevTab = 0, 1, PrevTab >= 1 And PrevTab <= Numtabs, PrevTab)
 Picture1(PrevTab).Visible = False
 Picture1(TabStrip1.SelectedItem.Index).Visible = True
 Picture1(TabStrip1.SelectedItem.Index).Refresh
 PrevTab = TabStrip1.SelectedItem.Index
End Sub
'If you have any questions or problems, contact me:
'[email protected]
'http://home.earthlink.net/~zombiehead/vbexamples.htm