Steuerelemente und Komponenten

Confuzi Us · 31. Juli 2013, 13:13

Hi Leute,

kleine Frage.

Gibt es eine Möglichkeit, meiner Form ein bestimmtes "Layout" zu hinterlegen?
Gibt es Steuerelemente und oder auch Komponenten die man sich irgendwo beziehen kann,
um mal etwas vom Standard abzuweichen?

...ich hoffe ihr versteht meine Frage.
(Zum Beispiel möchte ich nicht das Standard TabControl nehmen, sondern etwas modifiziertes, wenn so etwas vorhanden ist)

Grüße
Confuzi Us

Was hat das mit einem Tutorial zu tun? Lies die Boardbeschreibung bevor du postest. Verschoben. ~fufu

RodFromGermany · 31. Juli 2013, 13:39

Du kannst eine Form oder ein Projekt designen und als Vorlage für neue Formen und Projekte speichern.

Gather · 31. Juli 2013, 14:07

Du kannst dir diverse WPF-Themes bzw. Layouts ansehen oder Windows Forms Controls wie:
[Release] MetroSuite [UPDATE 02.06.2013]- Holt euch den modernen Windows 8 Style.

faxe1008 · 31. Juli 2013, 14:15

Spoiler anzeigen

VB.NET-Quellcode

Option Strict Off
Imports System.Drawing.Drawing2D
Imports System.Drawing.Imaging
Imports System.Windows.Forms
Imports System.Drawing
Namespace UI
Public Class SideTab
Inherits TabControl
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 = System.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

Hier ein Tabcontrol. Ansehen, Verstehen, Anpassen, Option Strict on konform umarbeiten.

Steuerelemente und Komponenten

Steuerelemente und Komponenten

VB.NET-Quellcode

Tags

Ähnliche Themen

4 Benutzer haben hier geschrieben