---

vb.net_farben_01.JPG

Hallo Zusammen,

ich habe ein TabControl mit mehreren Regstern in eine Form eingefügt.
Habe auch schöne Farben benutzt. Nur bei dem TabControl kann ich dieses unschöne helle grau nicht wechseln.
Gibt es eine Möglichkeit hier auch die Farbe zu ändern, oder muß man mit diesem grau leben : ) ?!?!

Danke für jede Unterstützung

------------------
Schöne Grüße
Feyza : )

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Feyza,

Google ist dein Freund ...  

Code:

---

        Private Sub TabControl1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) _
            Handles TabControl1.DrawItem

                Dim tc As TabControl = sender
                Dim sText As String = tc.TabPages(e.Index).Text
                Dim sf As New StringFormat
                sf.Alignment = StringAlignment.Center
                sf.LineAlignment = StringAlignment.Center
                e.Graphics.FillRectangle(System.Drawing.Brushes.Blue, e.Bounds)
                e.Graphics.DrawString(sText, e.Font, System.Drawing.Brushes.White, New RectangleF(e.Bounds.X, e.Bounds.Y, _
                        e.Bounds.Width, e.Bounds.Height), sf)
                sf.Dispose()

        End Sub

        '' Kann man auch zur Laufzeit setzen !!!
        Private Sub DeinFormular_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
                Me.TabControl1.DrawMode = TabDrawMode.OwnerDrawFixed
                Me.TabControl1.SizeMode = TabSizeMode.Fixed
        End Sub

---

Grüssle Lars

------------------

"Soll es funktionieren oder darf es auch etwas von Siemens sein?" ...

http://validator.w3.org/check?uri=http://ww3.cad.de/cgi-bin/ubb/Ultimate.cgi

[Diese Nachricht wurde von BloodyMess am 16. Aug. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Lars,

ich habe Deine Bespiele bei wir versucht umzusetzten. Die Farben ändern sich hier gar nicht.

Im Form Designer Code kann ich nur den Hintergrund ändern, aber nicht den Hintergrund vom Registertext.

------------------
Schöne Grüße
Feyza : )

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Lars,

jetzt hab ich's.

Dein Code + in den Eigenschaften DrawMode auf OwnderDrawFixed umschalten.
Jetzt ändert er die Farben auch : )

Eigentlich sollte dies mit dem Code auch gehen, oder?

------------------
Schöne Grüße
Feyza : )

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

vorher.jpg nachher.jpg

Hab es mit VB .Net 2003 ausprobiert und es tut. Es gibt KEINE Eigenschaft des Steuerelementes, das Dir die Farbe des RegisterSteuerelementes ändert! Deshalb hat man hier auch in die Trickkiste gegriffen. Es werden sich in dem Code der Text geholt und die Begrenzungen des Kartenreiters. Darüber wird ein Rechteck gelegt, welches dann deine farblichen Eigenschaften definiert und anzeigt.

Der Code gehört nicht in den Designer, sondern Rechtsklick auf dein Formular -> 'Code anzeigen' ... wenn Du Ihn so übernehmen willst. Hast Du deine Events in Klassen gepackt, dann musst den Code natürlich dementsprechend positionieren.

Grüssle Lars

------------------

"Soll es funktionieren oder darf es auch etwas von Siemens sein?" ...

http://validator.w3.org/check?uri=http://ww3.cad.de/cgi-bin/ubb/Ultimate.cgi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

liegts vielleicht daran ???

Code:

---

Private Sub DeinFormular_Load

---

------------------

"Soll es funktionieren oder darf es auch etwas von Siemens sein?" ...

http://validator.w3.org/check?uri=http://ww3.cad.de/cgi-bin/ubb/Ultimate.cgi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

habe diesen Code benutzt.
Das beim Laden gleich in Forms habe ich weggelassen : ))

        Private Sub TabControl1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) _
            Handles TabControl1.DrawItem
                Dim tc As TabControl = sender
                Dim sText As String = tc.TabPages(e.Index).Text
                Dim sf As New StringFormat
                sf.Alignment = StringAlignment.Center
                sf.LineAlignment = StringAlignment.Center
                e.Graphics.FillRectangle(System.Drawing.Brushes.Blue, e.Bounds)
                e.Graphics.DrawString(sText, e.Font, System.Drawing.Brushes.White, New RectangleF(e.Bounds.X, e.Bounds.Y, _
                        e.Bounds.Width, e.Bounds.Height), sf)
                sf.Dispose()

        End Sub

Danke schön : )

------------------
Schöne Grüße
Feyza : )

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Alles klar, dann viel Spass damit ... 

Grüssle Lars

------------------

"Soll es funktionieren oder darf es auch etwas von Siemens sein?" ...

http://validator.w3.org/check?uri=http://ww3.cad.de/cgi-bin/ubb/Ultimate.cgi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP