Assign color to pages inTab Control

  • Thread starter Thread starter AlexD
  • Start date Start date
A

AlexD

I couldn't find from Tab Control's Properties how to
assign differnt color to pages in the tab control.

In addition, please advise how to make the appearence of
this control the same as a form (form is getting to be
bigger than tab control).

Thanks
 
Hi Alex,

Access "out of the box" does not support this function.
Here are a couple of options for you:

1. See Sensei Stephen Leban's for all things magical.
Specifically,

http://www.lebans.com/tabcolors.htm

2. Here is an alternative posted by MVP Arvin Meyer:
You can use bitmaps to change the color. Even better, I
use labels, which can have any color I want. I set a
colored rectangle behind the tab control and set the Tab
control to Transparent with NO buttons. I use "hover
button" labels as in the example on my website:

http://www.datastrat.com/Download/MouseMove.zip

You use the "buttons" to change pages which are indexed
from 0 (zero), so the code looks like:

Sub lblHoverButton1_Click(Cancel As Integer)
Me.Tab1 = 0
End Sub

Sub lblHoverButton2_Click(Cancel As Integer)
Me.Tab1 = 1
End Sub

etc.
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access

Hope that helps,
Jeff Conrad
Access Junkie
Bend, Oregon
 
Thanks a lot, Jeff.
-----Original Message-----
Hi Alex,

Access "out of the box" does not support this function.
Here are a couple of options for you:

1. See Sensei Stephen Leban's for all things magical.
Specifically,

http://www.lebans.com/tabcolors.htm

2. Here is an alternative posted by MVP Arvin Meyer:

You can use bitmaps to change the color. Even better, I
use labels, which can have any color I want. I set a
colored rectangle behind the tab control and set the Tab
control to Transparent with NO buttons. I use "hover
button" labels as in the example on my website:

http://www.datastrat.com/Download/MouseMove.zip

You use the "buttons" to change pages which are indexed
from 0 (zero), so the code looks like:

Sub lblHoverButton1_Click(Cancel As Integer)
Me.Tab1 = 0
End Sub

Sub lblHoverButton2_Click(Cancel As Integer)
Me.Tab1 = 1
End Sub

etc.
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access


Hope that helps,
Jeff Conrad
Access Junkie
Bend, Oregon


.
Click to expand...
 
Back
Top