You cannot change the background color of a tab control but you can make it transparent via the Backstyle property. But, your tabs are still shown. You cannot change the background color of the tabs nor can you make them transparent. But you can simulate tabs. Make the tab control transparent and set the Style property to none (no tabs shown). Create labels to represent your tabs (that are now invisible) and then create a function that simulates pressing tab buttons.
Here's how I made it work. First, set the OnClick event of each label to =SelectTab("NameOfTheLabel")
Then, insert this code into the code view of the module. This code keeps track of which label is currently selected (height raised) via the variable mstrLabelSelected. It also basis the top property on the FormHeader rather than the tab control. But, you can do it either way. This should help to get you started. Also, the reason I multiply by 1440 is to convert the units to twips.
Option Compare Database
Option Explicit
Dim mstrLabelSelected As String
Public Function SelectTab(strLabelSelected As String)
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.