[Control] Ein eigenes TabControl

iEi · 16. September 2013, 17:42

Hey Com,

ich will mir für meinen Browser ein eigenes TabControl schreiben, es sollte die Grundfunktionen des normalen TabControls haben und noch was spezielles und zwar: Die Header also wo drin steht: TabPage1 o.Ä. sollen etwas abgerundet sein, wie kann ich das machen ? Ich habe noch nie so ein Control geschrieben ? Könnt Ihr mir helfen ? Jeder Vorschlag wird angenommen und um jede Hilfe wäre ich dankbar

Greet iEi

rykoJLL · 16. September 2013, 17:45

Schreib eine Klasse, lass sie von TabControl erben und zeichne sie mit Gdi+ nach deinen Bedürfnissen

nafets3646 · 16. September 2013, 17:46

Schau dir mal dieses TabControl an: vbforums.com/showthread.php?61…09&viewfull=1#post3790409
Das solltest du dir als Vorlage nehmen können :).

iEi · 16. September 2013, 17:48

@rykoJLL

Erstmal danke für die Antwort, das mit dem erben das ist ganz einfach das weiss ich ja auch wie das geht, nur halt dieses Abrunden nicht

Mit GDI+ weiss ich nicht wie ich das machen soll

@nafets3646

Danke für den Tipp

Artentus · 16. September 2013, 17:49

Abgerundete Rechtecke kannst du mit einem GraphicsPath realisieren, du musst eigentlich nur 4 Arcs hinzufügen.

iEi · 16. September 2013, 17:50

@Artentus

Und wie kann ich das machen ? Hab mich noch nie so richtig mit GDI+ befasst

Artentus · 16. September 2013, 17:54

iEi schrieb:

Hab mich noch nie so richtig mit GDI+ befasst

Dann solltest du das mal tun, das ist nämlich Grundvorraussetzung, um Controls zu erstellen.
Ich hab nafets (oder? warst das du? da bin ich mir gerade gar nicht sicher. @nafets3646:) mal den Code dafür geschickt, vielleicht ist er ja so nett, und gibt ihn dir (wenn du mich jetzt fragst, warum ich ihn dir nicht einfach selbst gebe: ich hab den Code in dieser Form so nicht auf meinem PC und müsste ihn erst neu erstellen).

nafets3646 · 16. September 2013, 17:56

@Artentus
Verwechselst du mich da nicht zufällig? Ich habe so eine Nachricht nicht (mehr) im Postfach, kann mich jedoch auch nicht erinnern, eine Nachricht von dir mit diesem Inhalt empfangen zu haben :D.

Artentus · 16. September 2013, 17:57

Ja, ich bin mir auch nicht sicher, hab die Nachricht aber auch nicht mehr.

Vielleicht wars auch Gather oder LaMiy, das liegt schon etwas zurück.

iEi · 16. September 2013, 17:59

@All

oder gibt es vielleicht schon so ein Control das dies beherrscht ? Nicht das KrbTabControl

thefiloe · 16. September 2013, 18:27

Und was spricht dagegen es einfach mal zu probieren. Spiele dich nen bisschen mit GDI und mach mal etwas ohne alles irgendwie zusammen zu kopieren.

nafets3646 · 16. September 2013, 19:03

@Artentus
Habe es gefunden :). Es war ein Post, er ging an LaMiy: [Allgemein] Button Styling

ErfinderDesRades · 16. September 2013, 21:59

Die Frage ist auch, ob noch mehr an Design-Extra-Wünschen kommt, sodass iwann eine Migration nach Wpf in Betracht kommt.

thefiloe · 16. September 2013, 22:01

Auch wenn ich iEi nicht gut kenne, aber so weiß ich doch eines. Er würde lieber sterben als WPF zu verwenden. Leider geht das hier vielen so, obwohl wpf für schönes GUIs optimal ist.

LaMiy · 27. Oktober 2013, 17:03

@iEi: Schau dir das hier mal an.

Code

VB.NET-Quellcode

Imports System.Drawing.Drawing2D
Imports System.Drawing.Imaging
Namespace Components
Class SideTab
Inherits TabControl
' Original author: mavamaarten (http://www.hackforums.net/member.php?action=profile&uid=244760)
' Original code: http://pastebin.com/81E1i8ez
' Edited by idb (http://s.olution.cc/)
Private State As New MouseState
Private Structure MouseState
Dim Hover As Boolean
Dim Coordinates As Point
End Structure
#Region "Constructor"
Sub New()
SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw Or ControlStyles.UserPaint Or ControlStyles.DoubleBuffer, True)
DoubleBuffered = True
SizeMode = TabSizeMode.Fixed
ItemSize = New Size(44, 136)
End Sub
#End Region
#Region "Properties"
Private _InactiveIconOpacity As Integer = 50
Public Property InactiveIconOpacity As Integer
Get
Return _InactiveIconOpacity
End Get
Set(ByVal value As Integer)
If IsNothing(value) Then value = 50
If value < 0 Then value = 0
If value > 100 Then value = 100
_InactiveIconOpacity = value
End Set
End Property
#End Region
#Region "Methods"
Private Function ToPen(ByVal color As Color) As Pen
Return New Pen(color)
End Function
Private Function ToBrush(ByVal color As Color) As Brush
Return New SolidBrush(color)
End Function
Private Function ImageOpacity(ByVal Image As Bitmap, ByVal Opacity As Single) As Image
Dim Result As New Bitmap(Image.Width, Image.Height, Imaging.PixelFormat.Format32bppArgb)
With Image
Opacity = Math.Min(Opacity, 100)
Using Attributes As New Imaging.ImageAttributes
Dim Matrix As New Imaging.ColorMatrix
Matrix.Matrix33 = Opacity / 100.0F
Attributes.SetColorMatrix(Matrix)
Dim Points() As PointF = {New Point(0, 0), New Point(.Width, 0), New Point(0, .Height)}
Using g As Graphics = Graphics.FromImage(Result)
g.Clear(Color.Transparent)
g.DrawImage(Image, Points, New RectangleF(Point.Empty, .Size), GraphicsUnit.Pixel, Attributes)
End Using
End Using
End With
Return Result
End Function
#End Region
#Region "Override Methods"
Protected Overrides Sub CreateHandle()
MyBase.CreateHandle()
MyBase.DoubleBuffered = True
SizeMode = TabSizeMode.Fixed
Alignment = TabAlignment.Left
SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw Or ControlStyles.UserPaint Or ControlStyles.DoubleBuffer, True)
End Sub
Protected Overrides Sub OnMouseEnter(ByVal e As System.EventArgs)
State.Hover = True
MyBase.OnMouseHover(e)
End Sub
Protected Overrides Sub OnMouseLeave(ByVal e As System.EventArgs)
State.Hover = False
For Each t As TabPage In MyBase.TabPages
If t.DisplayRectangle.Contains(State.Coordinates) Then
MyBase.Invalidate()
Exit For
End If
Next
MyBase.OnMouseHover(e)
End Sub
Protected Overrides Sub OnMouseMove(ByVal e As System.Windows.Forms.MouseEventArgs)
State.Coordinates = e.Location
For Each t As TabPage In MyBase.TabPages
If t.DisplayRectangle.Contains(e.Location) Then
MyBase.Invalidate()
Exit For
End If
Next
MyBase.OnMouseMove(e)
End Sub
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
Dim B As New Bitmap(Width, Height)
Dim G As Graphics = Graphics.FromImage(B)
With G
Try : SelectedTab.BackColor = Color.White : Catch : End Try
.Clear(Color.White)
.FillRectangle(New SolidBrush(Color.FromArgb(39, 39, 39)), New Rectangle(0, 0, ItemSize.Height + 4, Height)) ' Background
.DrawLine(New Pen(Color.FromArgb(39, 39, 39)), New Point(ItemSize.Height + 3, 0), New Point(ItemSize.Height + 3, 999)) ' Background border
For TabIndex As Integer = 0 To TabCount - 1
If TabIndex = SelectedIndex Then
' Selected tab area
Dim TabRect As Rectangle = New Rectangle(New Point(GetTabRect(TabIndex).Location.X - 2, GetTabRect(TabIndex).Location.Y - 2), New Size(GetTabRect(TabIndex).Width + 3, GetTabRect(TabIndex).Height - 1))
' Background
.FillRectangle(New SolidBrush(Color.FromArgb(28, 28, 28)), TabRect.X, TabRect.Y, TabRect.Width + 1, TabRect.Height + 3)
' Highlight
If Not TabIndex = 0 Then .DrawLine(New Pen(Color.FromArgb(60, 60, 60)), New Point(TabRect.Location.X - 1, TabRect.Top + 1), New Point(TabRect.Width, TabRect.Top + 1))
' Selected marker
Dim Selected As Rectangle = New Rectangle(New Point(GetTabRect(TabIndex).Width, GetTabRect(TabIndex).Location.Y - IIf(TabIndex = 0, 1, 0)), New Size(4, GetTabRect(TabIndex).Height - IIf(TabIndex = 0, 1, 2)))
.FillRectangle(New SolidBrush(Color.Red), Selected)
' Icon & Text
Dim SetIcon As Boolean = False
Try
If Not IsNothing(ImageList) Then
Dim Index As Integer = TabPages(TabIndex).ImageIndex
If Not Index = -1 Then
' Icon
.DrawImage(ImageList.Images(TabPages(TabIndex).ImageIndex), New Point(TabRect.Location.X + 6, TabRect.Location.Y + 8))
SetIcon = True
End If
End If
Catch ex As Exception
Finally
' Text
.DrawString(IIf(SetIcon, IIf(TabPages(TabIndex).Text.Length >= 11, " ", String.Empty), String.Empty) & TabPages(TabIndex).Text, New Font(Font.FontFamily, Font.Size, FontStyle.Bold), Brushes.White, TabRect, New StringFormat With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Center})
End Try
Else
' Deselected tab area
Dim TabRect As Rectangle = New Rectangle(New Point(GetTabRect(TabIndex).Location.X - 2, GetTabRect(TabIndex).Location.Y - 2), New Size(GetTabRect(TabIndex).Width + 3, GetTabRect(TabIndex).Height + 1))
If State.Hover AndAlso TabRect.Contains(State.Coordinates) Then
' Background
.FillRectangle(New SolidBrush(Color.FromArgb(28, 28, 28)), TabRect.X, TabRect.Y, TabRect.Width + 1, TabRect.Height)
Else
' Gradient
Dim GradientInfo As New ColorBlend()
With GradientInfo
.Colors = {Color.FromArgb(51, 51, 51), Color.FromArgb(39, 39, 39), Color.FromArgb(37, 37, 37)}
.Positions = {0.0F, 0.5F, 1.0F}
End With
Dim GradientArea As Rectangle = New Rectangle(New Point(GetTabRect(TabIndex).Location.X - 2, GetTabRect(TabIndex).Location.Y - 1), New Size(GetTabRect(TabIndex).Width + 4, GetTabRect(TabIndex).Height))
Dim Gradient As New LinearGradientBrush(GradientArea, Color.Black, Color.Black, 90.0F)
Gradient.InterpolationColors = GradientInfo
.FillRectangle(Gradient, GradientArea)
End If
' Hightlight
.DrawLine(New Pen(Color.FromArgb(60, 60, 60)), New Point(TabRect.Location.X - 1, TabRect.Top + 1), New Point(TabRect.Width, TabRect.Top + 1))
' Shadow
.DrawLine(New Pen(Color.FromArgb(27, 27, 27)), New Point(TabRect.Location.X - 1, TabRect.Bottom - 1), New Point(TabRect.Location.X + TabRect.Right, TabRect.Bottom - 1))
If State.Hover AndAlso TabRect.Contains(State.Coordinates) Then
' Hover marker
Dim Hover As Rectangle = New Rectangle(New Point(GetTabRect(TabIndex).Width, GetTabRect(TabIndex).Location.Y), New Size(4, GetTabRect(TabIndex).Height - 2))
.FillRectangle(New SolidBrush(Color.FromArgb(102, 102, 102)), Hover)
End If
' Icon & Text
Dim SetIcon As Boolean = False
Try
If Not IsNothing(ImageList) Then
Dim Index As Integer = TabPages(TabIndex).ImageIndex
If Not Index = -1 Then
' Icon
.DrawImage(ImageOpacity(ImageList.Images(TabPages(TabIndex).ImageIndex), InactiveIconOpacity), New Point(TabRect.Location.X + 6, TabRect.Location.Y + 8))
SetIcon = True
End If
End If
Catch ex As Exception
Finally
' Text
.DrawString(IIf(SetIcon, IIf(TabPages(TabIndex).Text.Length >= 11, " ", String.Empty), String.Empty) & TabPages(TabIndex).Text, Font, ToBrush(Color.FromArgb(153, 153, 153)), TabRect, New StringFormat With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Center})
End Try
End If
Next
e.Graphics.CompositingQuality = CompositingQuality.HighQuality
e.Graphics.InterpolationMode = InterpolationMode.HighQualityBicubic
e.Graphics.SmoothingMode = SmoothingMode.HighQuality
e.Graphics.DrawImage(B.Clone, 0, 0)
.Dispose() : B.Dispose()
End With
End Sub
#End Region
End Class
End Namespace

Quelle: u-hacks.net/net-94/gdi-tabcontrol-11434/

Gather · 27. Oktober 2013, 17:29

Hab hier auch noch eines @iEi:
Ich hoffe einmal ich hab den Code richtig gekürzt.

Spoiler anzeigen

VB.NET-Quellcode

Imports System.Drawing.Drawing2D, System.ComponentModel, System.Windows.Forms
''' <summary>
''' Flat UI Theme
''' Creator: iSynthesis (HF)
''' Version: 1.0.4
''' Date Created: 17/06/2013
''' Date Changed: 26/06/2013
''' UID: 374648
''' For any bugs / errors, PM me.
''' </summary>
Module Helpers
#Region " Variables"
Friend G As Graphics, B As Bitmap
Friend _FlatColor As Color = Color.FromArgb(35, 168, 109)
Friend NearSF As New StringFormat() With {.Alignment = StringAlignment.Near, .LineAlignment = StringAlignment.Near}
Friend CenterSF As New StringFormat() With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center}
#End Region
#Region " Functions"
Public Function RoundRec(ByVal Rectangle As Rectangle, ByVal Curve As Integer) As GraphicsPath
Dim P As GraphicsPath = New GraphicsPath()
Dim ArcRectangleWidth As Integer = Curve * 2
P.AddArc(New Rectangle(Rectangle.X, Rectangle.Y, ArcRectangleWidth, ArcRectangleWidth), -180, 90)
P.AddArc(New Rectangle(Rectangle.Width - ArcRectangleWidth + Rectangle.X, Rectangle.Y, ArcRectangleWidth, ArcRectangleWidth), -90, 90)
P.AddArc(New Rectangle(Rectangle.Width - ArcRectangleWidth + Rectangle.X, Rectangle.Height - ArcRectangleWidth + Rectangle.Y, ArcRectangleWidth, ArcRectangleWidth), 0, 90)
P.AddArc(New Rectangle(Rectangle.X, Rectangle.Height - ArcRectangleWidth + Rectangle.Y, ArcRectangleWidth, ArcRectangleWidth), 90, 90)
P.AddLine(New Point(Rectangle.X, Rectangle.Height - ArcRectangleWidth + Rectangle.Y), New Point(Rectangle.X, Curve + Rectangle.Y))
Return P
End Function
Public Function RoundRect(x!, y!, w!, h!, Optional r! = 0.3, Optional TL As Boolean = True, Optional TR As Boolean = True, Optional BR As Boolean = True, Optional BL As Boolean = True) As GraphicsPath
Dim d! = Math.Min(w, h) * r, xw = x + w, yh = y + h
RoundRect = New GraphicsPath
With RoundRect
If TL Then .AddArc(x, y, d, d, 180, 90) Else .AddLine(x, y, x, y)
If TR Then .AddArc(xw - d, y, d, d, 270, 90) Else .AddLine(xw, y, xw, y)
If BR Then .AddArc(xw - d, yh - d, d, d, 0, 90) Else .AddLine(xw, yh, xw, yh)
If BL Then .AddArc(x, yh - d, d, d, 90, 90) Else .AddLine(x, yh, x, yh)
.CloseFigure()
End With
End Function
'-- Credit: AeonHack
Public Function DrawArrow(x As Integer, y As Integer, flip As Boolean) As GraphicsPath
Dim GP As New GraphicsPath()
Dim W As Integer = 12
Dim H As Integer = 6
If flip Then
GP.AddLine(x + 1, y, x + W + 1, y)
GP.AddLine(x + W, y, x + H, y + H - 1)
Else
GP.AddLine(x, y + H, x + W, y + H)
GP.AddLine(x + W, y + H, x + H, y)
End If
GP.CloseFigure()
Return GP
End Function
#End Region
End Module
#Region " Mouse States"
Enum MouseState As Byte
None = 0
Over = 1
Down = 2
Block = 3
End Enum
#End Region
Class FlatTabControl : Inherits TabControl
#Region " Variables"
Private W, H As Integer
#End Region
#Region " Properties"
Protected Overrides Sub CreateHandle()
MyBase.CreateHandle()
Alignment = TabAlignment.Top
End Sub
#Region " Colors"
<Category("Colors")> _
Public Property BaseColor As Color
Get
Return _BaseColor
End Get
Set(value As Color)
_BaseColor = value
End Set
End Property
<Category("Colors")> _
Public Property ActiveColor As Color
Get
Return _ActiveColor
End Get
Set(value As Color)
_ActiveColor = value
End Set
End Property
#End Region
#End Region
#Region " Colors"
Private BGColor As Color = Color.FromArgb(60, 70, 73)
Private _BaseColor As Color = Color.FromArgb(45, 47, 49)
Private _ActiveColor As Color = _FlatColor
#End Region
Sub New()
SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or _
ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer, True)
DoubleBuffered = True
BackColor = Color.FromArgb(60, 70, 73)
Font = New Font("Segoe UI", 10)
SizeMode = TabSizeMode.Fixed
ItemSize = New Size(120, 40)
End Sub
Protected Overrides Sub OnPaint(e As PaintEventArgs)
B = New Bitmap(Width, Height) : G = Graphics.FromImage(B)
W = Width - 1 : H = Height - 1
With G
.SmoothingMode = 2
.PixelOffsetMode = 2
.TextRenderingHint = 5
.Clear(_BaseColor)
Try : SelectedTab.BackColor = BGColor : Catch : End Try
For i = 0 To TabCount - 1
Dim Base As New Rectangle(New Point(GetTabRect(i).Location.X + 2, GetTabRect(i).Location.Y), New Size(GetTabRect(i).Width, GetTabRect(i).Height))
Dim BaseSize As New Rectangle(Base.Location, New Size(Base.Width, Base.Height))
If i = SelectedIndex Then
'-- Base
.FillRectangle(New SolidBrush(_BaseColor), BaseSize)
'-- Gradiant
'.fill
.FillRectangle(New SolidBrush(_ActiveColor), BaseSize)
'-- ImageList
If ImageList IsNot Nothing Then
Try
If ImageList.Images(TabPages(i).ImageIndex) IsNot Nothing Then
'-- Image
.DrawImage(ImageList.Images(TabPages(i).ImageIndex), New Point(BaseSize.Location.X + 8, BaseSize.Location.Y + 6))
'-- Text
.DrawString(" " & TabPages(i).Text, Font, Brushes.White, BaseSize, CenterSF)
Else
'-- Text
.DrawString(TabPages(i).Text, Font, Brushes.White, BaseSize, CenterSF)
End If
Catch ex As Exception
Throw New Exception(ex.Message)
End Try
Else
'-- Text
.DrawString(TabPages(i).Text, Font, Brushes.White, BaseSize, CenterSF)
End If
Else
'-- Base
.FillRectangle(New SolidBrush(_BaseColor), BaseSize)
'-- ImageList
If ImageList IsNot Nothing Then
Try
If ImageList.Images(TabPages(i).ImageIndex) IsNot Nothing Then
'-- Image
.DrawImage(ImageList.Images(TabPages(i).ImageIndex), New Point(BaseSize.Location.X + 8, BaseSize.Location.Y + 6))
'-- Text
.DrawString(" " & TabPages(i).Text, Font, New SolidBrush(Color.White), BaseSize, New StringFormat With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Center})
Else
'-- Text
.DrawString(TabPages(i).Text, Font, New SolidBrush(Color.White), BaseSize, New StringFormat With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Center})
End If
Catch ex As Exception
Throw New Exception(ex.Message)
End Try
Else
'-- Text
.DrawString(TabPages(i).Text, Font, New SolidBrush(Color.White), BaseSize, New StringFormat With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Center})
End If
End If
Next
End With
MyBase.OnPaint(e)
G.Dispose()
e.Graphics.InterpolationMode = 7
e.Graphics.DrawImageUnscaled(B, 0, 0)
B.Dispose()
End Sub
End Class

Quelle: hackforums.net/showthread.php?tid=3559385

iEi · 27. Oktober 2013, 17:30

Danke euch beiden für die Hilfe werde mir das mal genauer angucken

@Gather genau das habe ich gesucht^^

[Control] Ein eigenes TabControl

[Control] Ein eigenes TabControl

iEi schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Benutzer online 1

Tags

Ähnliche Themen

8 Benutzer haben hier geschrieben