Having trouble with Lebans' color tab program

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I download and unzip the file but then am not quite sure what to do. I try changing the tag property on my tabs but nothing happens. The color buttons program contains nice instructions that worked well, but for the tabcolor I'm rather confused. I'm using Office 2003.
 
Did you import the modules from the download into your app? If not, try that. Read the code - you might additional useful information in the comments of the code. Another idea, copy the text (from the Lebans page you downloaded the file from) and past it into a word document for future reference on instructions on using the code.
 
Yes I tried importing the modules. I even created new forms in Lebans' database itself to no avail. When you create a new tab control, what exactly do you do? Right click it's properties and then modify the "tag" setting to say a certain color number? (Assume I am a complete newbie with no idea what I'm doing, which would be extremely accurate).
 
The TabsColor download page states:

Notes:
You must set the Tab controls TAB Fixed Height and Width properties
You must set the Individual Tab pages TAG property to whatever color
value you desire.



Did you look at the code behind the TabsMinimal sample Form?

Option Compare Database
Option Explicit
' Copyright Lebans Holdings 1999 Ltd.
' Yes I know the Tab's have too many colors.
' It is simply to show as many colors as possible
' and not meant to represent a
' real world application.


' Var of type Tab class
Private TB As clsTabs

' Temp var for the Class
Dim blRet As Boolean
Dim lngRet As Long


Private Sub Form_Load()
DoCmd.MoveSize 0, 0, 6650, 5200

' Create an instance of our FormatByCriteria class
Set TB = New clsTabs

' You MUST set the CriteriaControl prop
TB.TabControl = Me.TabCtl
' You MUST set the BackGround control
' used to display the current pages background color
TB.BGControl = Me.RecBG
' Parent Form
TB.TabForm = Me

' Set the desired Rotation amount
TB.RotateDegree = 90

' Create the Tabs
TB.MakeTabs

End Sub



Private Sub Form_Unload(Cancel As Integer)
Set TB = Nothing
End Sub


--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.


Karnegie23 said:
Yes I tried importing the modules. I even created new forms in
Click to expand...
Lebans' database itself to no avail. When you create a new tab control,
what exactly do you do? Right click it's properties and then modify the
"tag" setting to say a certain color number? (Assume I am a complete
newbie with no idea what I'm doing, which would be extremely accurate).try that. Read the code - you might additional useful information in
the comments of the code. Another idea, copy the text (from the Lebans
page you downloaded the file from) and past it into a word document for
future reference on instructions on using the code.do. I try changing the tag property on my tabs but nothing happens. The
color buttons program contains nice instructions that worked well, but
for the tabcolor I'm rather confused. I'm using Office 2003.
 
Back
Top