The Style property returns or sets the appearance - tabs or buttons - of a TabStrip control.
The Separators property returns or sets a value that determines whether separators are drawn between buttons on a TabStrip control that has the tabButton or tabFlatButton styles.
The MultiRow property returns or sets a value indicating whether a TabStrip control can display more than one row of tabs.
HotTracking returns a value that determines whether mouse-sensitive highlighting is enabled.
TabStrip.Style [= integer]
TabStrip.Separators [= boolean]
TabStrip.MultiRow [= boolean]
TabStrip.HotTracking [= boolean]
The Style property determines the appearance of the tabs.
tabTabs (0) ( Default) Tabs. The tabs appear as notebook tabs, and the internal area has a three-dimensional border around it.
tabButtons (1) Buttons. The tabs appear as regular push buttons, and the internal area has no border around it.
tabFlatButtons (2)Flat buttons. The selected tab appears as pressed into the background. Unselected tabs appear flat.
The Separators property specifies if separators are drawn (True). To see the separators, the TabStrip control's Style property must be set to either tabButton or tabFlatButton.
The MultiRow property specifies whether the control has more than one row of tabs. The number of rows is automatically set by the width and number of the tabs. The number of rows can change if the control is resized, which ensures that the tab wraps to the next row. If MultiRow is set to False, and the last tab exceeds the width of the control, a horizontal spin control is added at the right end of the TabStrip control.
The HotTracking property specifies whether hot tracking is enabled or off. Hot tracking is a feature that provides feedback to the user when the mouse pointer passes over the control. With HotTracking set to True, the control responds to mouse movement by highlighting the header over which the mouse pointer is positioned.
Local n As Int32
Ocx TabStrip tbs = "", 10, 10, 400, 80
For n = 1 To 25 : tbs.Add , , "Tab" & n : Next n
Ocx TabStrip tbt = "", 10, 100, 400, 40
For n = 1 To 25 : tbt.Add , , "Tab" & n : Next n
Ocx TabStrip tbu = "", 10, 160, 400, 100
For n = 1 To 25 : tbu.Add , , "Tab" & n : Next n
' Style property set to the Tabs style.
tbs.Style = tabTabs
' Style property set to the Buttons style:
tbt.Style = tabButtons
tbu.Style = tabFlatButtons
tbu.Separators = True // Only has an effect on tabFlatButtons
' Allow more than one row
tbs.MultiRow = True
tbu.MultiRow = True
' Allow hottracking
// Doesn't seem to have an effect on any type
// Hottracking seems automatic on tabTabs and...
// ...non-existant on the rest.
tbs.HotTracking = False
tbt.HotTracking = True
tbu.HotTracking = True
Do : Sleep : Until Me Is Nothing
{Created by Sjouke Hamstra; Last updated: 23/10/2014 by James Gaite}