Eigene Textbox hat rechts und unten dickeren Border als oben und links

Sekki · 16. August 2017, 20:40

Halöchen,

während ich immer noch an meinem hübschen Projekt arbeite, wollte ich noch nebenbei ein schönes, flaches Design erstellen. Aktuell habe ich jedoch das Problem mit einer Textbox, welche rechts und unten zu dicke Borders hat.

Das sieht für mich so aus, als wäre der Borderstyle falsch gesetzt, aber ich habe kein Borderstyle in meinem Code gesetzt.
Ich habe dann mal diesen Code eingefügt:

VB.NET-Quellcode

TB.BorderStyle = BorderStyle.None

Jedoch habe ich weiterhin rechts und unten dickere Borders.

Muss ich da vielleicht noch etwas beachten?

Das hier steht bei mir im OnCreateControl:

VB.NET-Quellcode

Protected Overrides Sub OnCreateControl()
MyBase.OnCreateControl()
If Not Controls.Contains(TB) Then
Controls.Add(TB)
End If
TB.BorderStyle = BorderStyle.None
End Sub

VB1963 · 17. August 2017, 04:28

Sekki schrieb:

Muss ich da vielleicht noch etwas beachten?

An BorderStyle.None kann es nicht liegen, denn da hättest du keinen Rahmen. Das muss an etwas anderem liegen, aber da zeigst du uns zu wenig Code...

Sekki · 17. August 2017, 05:47

Spoiler anzeigen

VB.NET-Quellcode

<DefaultEvent("TextChanged")> Class FlatTextBox : Inherits Control
#Region " Variables"
Private W, H As Integer
Private State As MouseState = MouseState.None
Private WithEvents TB As System.Windows.Forms.TextBox
#End Region
#Region " Properties"
#Region " TextBox Properties"
Private _TextAlign As HorizontalAlignment = HorizontalAlignment.Left
<Category("Options")>
Property TextAlign() As HorizontalAlignment
Get
Return _TextAlign
End Get
Set(ByVal value As HorizontalAlignment)
_TextAlign = value
If TB IsNot Nothing Then
TB.TextAlign = value
End If
End Set
End Property
Private _MaxLength As Integer = 32767
<Category("Options")>
Property MaxLength() As Integer
Get
Return _MaxLength
End Get
Set(ByVal value As Integer)
_MaxLength = value
If TB IsNot Nothing Then
TB.MaxLength = value
End If
End Set
End Property
Private _ReadOnly As Boolean
<Category("Options")>
Property [ReadOnly]() As Boolean
Get
Return _ReadOnly
End Get
Set(ByVal value As Boolean)
_ReadOnly = value
If TB IsNot Nothing Then
TB.ReadOnly = value
End If
End Set
End Property
Private _UseSystemPasswordChar As Boolean
<Category("Options")>
Property UseSystemPasswordChar() As Boolean
Get
Return _UseSystemPasswordChar
End Get
Set(ByVal value As Boolean)
_UseSystemPasswordChar = value
If TB IsNot Nothing Then
TB.UseSystemPasswordChar = value
End If
End Set
End Property
Private _Multiline As Boolean
<Category("Options")>
Property Multiline() As Boolean
Get
Return _Multiline
End Get
Set(ByVal value As Boolean)
_Multiline = value
If TB IsNot Nothing Then
TB.Multiline = value
If value Then
TB.Height = Height - 11
Else
Height = TB.Height + 11
End If
End If
End Set
End Property
<Category("Options")>
Overrides Property Text As String
Get
Return MyBase.Text
End Get
Set(ByVal value As String)
MyBase.Text = value
If TB IsNot Nothing Then
TB.Text = value
End If
End Set
End Property
<Category("Options")>
Overrides Property Font As Font
Get
Return MyBase.Font
End Get
Set(ByVal value As Font)
MyBase.Font = value
If TB IsNot Nothing Then
TB.Font = value
TB.Location = New Point(3, 5)
TB.Width = Width - 6
If Not _Multiline Then
Height = TB.Height + 11
End If
End If
End Set
End Property
Protected Overrides Sub OnCreateControl()
MyBase.OnCreateControl()
If Not Controls.Contains(TB) Then
Controls.Add(TB)
End If
TB.BorderStyle = BorderStyle.None
End Sub
Private Sub OnBaseTextChanged(ByVal s As Object, ByVal e As EventArgs)
Text = TB.Text
End Sub
Private Sub OnBaseKeyDown(ByVal s As Object, ByVal e As KeyEventArgs)
If e.Control AndAlso e.KeyCode = Keys.A Then
TB.SelectAll()
e.SuppressKeyPress = True
End If
If e.Control AndAlso e.KeyCode = Keys.C Then
TB.Copy()
e.SuppressKeyPress = True
End If
End Sub
Protected Overrides Sub OnResize(ByVal e As EventArgs)
TB.Location = New Point(5, 5)
TB.Width = Width - 10
If _Multiline Then
TB.Height = Height - 11
Else
Height = TB.Height + 11
End If
MyBase.OnResize(e)
End Sub
#End Region
#Region " Colors"
<Category("Colors")>
Public Property TextColor As Color
Get
Return _TextColor
End Get
Set(value As Color)
_TextColor = value
End Set
End Property
Public Overrides Property ForeColor() As Color
Get
Return _TextColor
End Get
Set(value As Color)
_TextColor = value
End Set
End Property
#End Region
#End Region
#Region " Colors"
Private _BaseColor As Color = Color.FromArgb(30, 39, 44)
Private _TextColor As Color = Color.FromArgb(192, 192, 192)
Private _BorderColor As Color = Color.FromArgb(85, 117, 140)
#End Region
Sub New()
SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or
ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer Or
ControlStyles.SupportsTransparentBackColor, True)
DoubleBuffered = True
BackColor = Color.Transparent
TB = New System.Windows.Forms.TextBox
TB.Font = New Font("Segoe UI", 10)
TB.Text = Text
TB.BackColor = _BaseColor
TB.ForeColor = _TextColor
TB.MaxLength = _MaxLength
TB.Multiline = _Multiline
TB.ReadOnly = _ReadOnly
TB.UseSystemPasswordChar = _UseSystemPasswordChar
TB.BorderStyle = BorderStyle.None
TB.Location = New Point(5, 5)
TB.Width = Width - 10
TB.Cursor = Cursors.IBeam
If _Multiline Then
TB.Height = Height - 11
Else
Height = TB.Height + 11
End If
AddHandler TB.TextChanged, AddressOf OnBaseTextChanged
AddHandler TB.KeyDown, AddressOf OnBaseKeyDown
End Sub
Protected Overrides Sub OnPaint(e As PaintEventArgs)
B = New Bitmap(Width, Height) : G = Graphics.FromImage(B)
W = Width - 1 : H = Height - 1
Dim Base As New Rectangle(0, 0, W, H)
With G
.SmoothingMode = 2
.PixelOffsetMode = 2
.TextRenderingHint = 5
.Clear(BackColor)
'-- Colors
TB.BackColor = _BaseColor
TB.ForeColor = _TextColor
'-- Base
.FillRectangle(New SolidBrush(_BaseColor), Base)
'-- Border
.DrawRectangle(New Pen(_BorderColor), Base)
End With
MyBase.OnPaint(e)
G.Dispose()
e.Graphics.InterpolationMode = 7
e.Graphics.DrawImageUnscaled(B, 0, 0)
B.Dispose()
End Sub

Das hier wäre der Code. Den habe ich nicht selber geschrieben, ich habe nur die Farben verändert und einen Border hinzugefügt(ich habe es mit --Border unten im Code markiert)

Ich glaube, dass es hier dran liegt:

VB.NET-Quellcode

.SmoothingMode = 2
.PixelOffsetMode = 2
.TextRenderingHint = 5
.Clear(BackColor)

Ich habe bereits mit dem .PixelOffsetMode gespielt und ihn auf 0 gesetzt, aber da tut sich rein gar nichts. Ich könnte schwören, dass es der PixelOffsetMode ist.

//Edit:
Ich habe grade den PixelOffsetMode nochmal auf 0 gesetzt und es hat diesmal geklappt. Ich habe manchmal in Visual Studio einen Fehler, dass egal was ich im Code ändere, nichts lässt sich speichern. Einmal neustarten reicht in der Regel, aber ich habe damit gar nicht gerechnet. Hätte ich einen Button eingefügt, hätte ich sicherlich bemerkt, dass es an dem Fehler liegt.

@VB1963
Als Du meintest, dass es nicht an den Borders liegen könnte, habe ich mir nochmal den PixelOffsetMode angeschaut. Ansonsten hätte ich den wahrscheinlich länger wieder ignoriert. Daher bedanke ich mich für die schnelle Antwort!

RodFromGermany · 17. August 2017, 06:16

Sekki schrieb:

VB.NET-Quellcode

Class FlatTextBox : Inherits Control

Warum leitest Du die von Control und nicht von TextBox ab?

Eigene Textbox hat rechts und unten dickeren Border als oben und links

Eigene Textbox hat rechts und unten dickeren Border als oben und links

VB.NET-Quellcode

VB.NET-Quellcode

Sekki schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Sekki schrieb:

VB.NET-Quellcode

Benutzer online 1

Ähnliche Themen

3 Benutzer haben hier geschrieben