 | | | | | | | |
|
| | ctlUniTabbedXP
Tabbed panel with Unicode text | |  |
| | | | |
| | >>Common properties
Some Properties/Methods: |
| | | | | | |
| |
| AddTab |
required - adds a tab |
| Caption |
gets / sets the caption of the given (optional) tab; if not specified it gets / sets the caption of the current tab |
| ChangeTab |
go to a specified tab |
| Clear |
empty the control |
| CurrentTab |
return the current tab index |
| ShowFocus |
is the focus rectangle visible? |
| Tabs |
returns the number of tabs added to the control | |
| | Events:
TabChanged - raised when the current tab changes
How to use the control:
This control represents only the clickable part of a tab control (it's not a container), you need to use an array of frames (or ctlUniFrameXP) in order to contain your form data.
Add tabs using the AddTab method then simply catch the TabChanged event and show/hide frames. |
| | | | | | |
| | Sample:
- Create an array of frames, starting from index 0 to n-1
- Set VistaStyle=True, Remove Captions and align them
- Draw the ctlUniTabbedXP on top of them and use this function to show the proper TAB
'Show a certain frame and hide others
Private Sub ShowTab(n As Integer)
Dim i As Integer
For i = 0 To MyFrame.Count - 1
MyFrame(i).Visible = False
If i = n Then MyFrame(i).Visible = True
Next
End Sub
'Event
Private Sub ctlUniTabbedXP1_TabChanged(Index As Integer)
ShowTab Index - 1
End Sub
|
|
| | | | | | |
| | |  |
| | | | | | | |
| | | | | | | |
