ListView farbe und Tab page farbe ändern

MarkusxX25 · 14. Januar 2011, 16:04

Ich würde gerne die farbe hier in grau ändern oder zu mein hintergrund an passen .

Ist dies möglich ?

EiPott · 15. Januar 2011, 11:03

Ich schätze über DrawMode = OwnerDrawFixed und im DrawItem-Event per e.Graphics zeichnen.

MarkusxX25 · 15. Januar 2011, 20:37

wo findet man die draw mode und wie verläuft sich das ? ich wolte das gerne grauer haben

EiPott · 15. Januar 2011, 20:39

DrawMode im Designer, DrawItem als Event.

MarkusxX25 · 15. Januar 2011, 20:53

VB.NET-Quellcode

Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage4)
Me.TabControl1.Controls.Add(Me.TabPage5)
Me.TabControl1.ImeMode = System.Windows.Forms.ImeMode.Alpha
Me.TabControl1.Location = New System.Drawing.Point(15, 101)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(628, 286)
Me.TabControl1.SizeMode = System.Windows.Forms.TabSizeMode.Fixed
Me.TabControl1.TabIndex = 6

wo kann ich das ändern ?

EiPott · 15. Januar 2011, 21:03

Z. B. hier.

MarkusxX25 · 15. Januar 2011, 21:18

Ich habe mir das mal angeschaut und den code in vb übersezt

VB.NET-Quellcode

Private Sub TabControl1_DrawItem(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles TabControl1.DrawItem
Try
Dim f As Font
'For background color
Dim backBrush As Brush
'For forground color
Dim foreBrush As Brush
'This construct will hell you to decide
'which tab page have current focus
'to change the style.
If e.Index = Me.TabControl1.SelectedIndex Then
'This line of code will help you to
'change the apperance like size,name,style.
f = New Font(e.Font, FontStyle.Bold Or FontStyle.Bold)
f = New Font(e.Font, FontStyle.Bold)
backBrush = New System.Drawing.SolidBrush(Color.DarkGray)
foreBrush = Brushes.White
Else
f = e.Font
backBrush = New SolidBrush(e.BackColor)
foreBrush = New SolidBrush(e.ForeColor)
End If
'To set the alignment of the caption.
Dim tabName As String = Me.TabControl1.TabPages(e.Index).Text
Dim sf As New StringFormat()
'Thsi will help you to fill the interior portion of
'selected tabpage.
'Continue.........
sf.Alignment = StringAlignment.Center
End Try
End Sub

nur bekomm ich ein fehler :
Fehler 2 "Try" muss mindestens ein "Catch" oder ein "Finally" haben.

Oder ist das überhaupt richtig ?
habe auch auf draw owner gemacht

EiPott · 15. Januar 2011, 21:22

VB.NET-Quellcode

'Continue.........
sf.Alignment = StringAlignment.Center
Catch
End Try

MarkusxX25 · 15. Januar 2011, 21:28

gibt es noch mehr also tutorials für sowas den nun ist es grau einfach nur ohne text usw :

ListView farbe und Tab page farbe ändern

ListView farbe und Tab page farbe ändern

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

2 Benutzer haben hier geschrieben