Customize Tab Control

[scorpion53061]

I am trying to build a new tabcontrol while inheriting the tabcontrol in
order to change the ,menu color of the tab control as it appears it won't
let me do it with the normal control.

With a customized control when I specify background color it won't allow it
either apparently.

Anyone know why and how I can do this?

[Herfried K. Wagner [MVP]]

* "scorpion53 061" <sc************ *************** *@yahoo.com> scripsit:

I am trying to build a new tabcontrol while inheriting the tabcontrol in
order to change the ,menu color of the tab control as it appears it won't
let me do it with the normal control.

With a customized control when I specify background color it won't allow it
either apparently.

Why not base your drawing code on this code written by Ken Tucker [MVP]?

<http://www.onteorasoft ware.com/VBControls.aspx #AnsTQ1>

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>

[scorpion53061]

this is great code but it does not address the problem of the
defaultbackcolo r (read only) property I need to change.

Does anyone have a suggestion on how to change this? I tried "Shadows" and
it didnt work for some reason.

"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:en******** ******@tk2msftn gp13.phx.gbl...

* "scorpion53 061" <sc************ *************** *@yahoo.com> scripsit:

I am trying to build a new tabcontrol while inheriting the tabcontrol in
order to change the ,menu color of the tab control as it appears it won't let me do it with the normal control.

With a customized control when I specify background color it won't allow it either apparently.

Why not base your drawing code on this code written by Ken Tucker [MVP]?

<http://www.onteorasoft ware.com/VBControls.aspx #AnsTQ1>

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>

[Herfried K. Wagner [MVP]]

* "scorpion53 061" <sc************ *************** *@yahoo.com> scripsit:

this is great code but it does not address the problem of the
defaultbackcolo r (read only) property I need to change.

You cannot override a shared property.

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>

[Armin Zingler]

"scorpion53 061" <sc************ *************** *@yahoo.com> schrieb

this is great code but it does not address the problem of the
defaultbackcolo r (read only) property I need to change.

Does anyone have a suggestion on how to change this? I tried
"Shadows" and it didnt work for some reason.

In addition to Herfried's reply: You cannot override it because a shared
property is tied to the type used to reference or to resolve the call. You
might Shadow the shared property in a derived class, but it would only be
called if you own code uses the type of your derived class. All the code
that refers to Control.Default BackColor still calls Control.Default BackColor
because that is the type used in the base classes - they don't know your
class.
--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

[scorpion53061]

Thanks Armin.....

Have you seen any examples showing a derived class example that would be
similar in nature?

"Armin Zingler" <az*******@free net.de> wrote in message
news:en******** *****@TK2MSFTNG P10.phx.gbl...

"scorpion53 061" <sc************ *************** *@yahoo.com> schrieb

this is great code but it does not address the problem of the
defaultbackcolo r (read only) property I need to change.

Does anyone have a suggestion on how to change this? I tried
"Shadows" and it didnt work for some reason.
In addition to Herfried's reply: You cannot override it because a shared
property is tied to the type used to reference or to resolve the call. You
might Shadow the shared property in a derived class, but it would only be
called if you own code uses the type of your derived class. All the code
that refers to Control.Default BackColor still calls

Control.Default BackColor because that is the type used in the base classes - they don't know your
class.
--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

[Armin Zingler]

"scorpion53 061" <sc************ *************** *@yahoo.com> schrieb

Thanks Armin.....

Have you seen any examples showing a derived class example that would
be similar in nature?

No. (short answer but I can't add anything :)
--
Armin

[scorpion53061]

no problem.

I hate being told I "can't" do something.

But if there is no way I guess I have to accept it.

"Armin Zingler" <az*******@free net.de> wrote in message
news:%2******** ********@TK2MSF TNGP11.phx.gbl. ..

"scorpion53 061" <sc************ *************** *@yahoo.com> schrieb

Thanks Armin.....

Have you seen any examples showing a derived class example that would
be similar in nature?

No. (short answer but I can't add anything :)
--
Armin

[Mick Doherty]

There's always a way, just sometimes it is difficult to find, or a lot of
work.
In this case you need to fully take over the TabControls Drawing. Heres some
code for you to play with.

SetStyle(Contro lStyles.AllPain tingInWmPaint Or _
ControlStyles.R esizeRedraw Or _
ControlStyles.U serPaint Or _
ControlStyles.D oubleBuffer, True)

Private m_BackColor As Color = Color.Blue
<DefaultValue(G etType(Color), "Blue"), _
Browsable(True) > _
Public Shadows Property BackColor() As Color
Get
Return m_BackColor
End Get
Set(ByVal Value As Color)
If Not m_BackColor.Equ als(Value) Then
m_BackColor = Value
Invalidate()
End If
End Set
End Property

Protected Overrides Sub OnPaint(ByVal e As
System.Windows. Forms.PaintEven tArgs)
e.Graphics.Clea r(m_BackColor)
'Draw the tab items
Dim ItemBounds As Rectangle
Dim TextBrush As New SolidBrush(Colo r.Empty)
For TabIndex As Integer = 0 To Me.TabCount - 1
ItemBounds = Me.GetTabRect(T abIndex)

ControlPaint.Dr awBorder3D( _
e.Graphics, ItemBounds, _
Border3DStyle.B ump, _
Border3DSide.Al l)

Dim sf As New StringFormat
sf.LineAlignmen t = StringAlignment .Center
sf.Alignment = StringAlignment .Center

If Me.SelectedInde x = TabIndex Then
TextBrush.Color = Color.Red
Else
TextBrush.Color = Me.ForeColor
End If

e.Graphics.Draw String( _
Me.TabPages(Tab Index).Text, _
Me.Font, TextBrush, _
RectangleF.op_I mplicit(Me.GetT abRect(TabIndex )), _
sf)

Next

End Sub