SFLabel

JLH · 19. April 2024, 07:47

Ich würde gerne das "SFLabel" von ErfinderdesRades verwenden um Labels 90° zu drehen. Ich habe den Code kopiert, in meinem bestehenden Projekt eine Klasse erstellt und eingefügt. Jetzt bekomme ich bei folgenden zwei Zeilen die Meldung
" "Assign" ist kein Member von "Color" ". Leider reichen meine Kenntnisse nicht aus um den Fehler zu beheben. Kann jemand helfen?

Das SFLabel hab ich von hier: Vertikale Labels

VB.NET-Quellcode

_ForeBrush.Color.Assign(MyBase.ForeColor)
_BackBrush.Color.Assign(MyBase.BackColor)

Haudruferzappeltnoch · 19. April 2024, 08:18

Hm ja, guck die Color Klasse an. Das stimmt so, gibt kein Assign.
Möglicherweise eine Extension, die nicht angegeben wurde. Aber auch unwahrscheinlich. Wahrscheinlicher ist Copy/Paste Falle

Was denkst du sollen die Zeilen bewirken? Man kann das erreichen ohne eine Assign Methode.

JLH · 19. April 2024, 08:24

Der Code ist von ErfinderdesRades... ich glaube nicht, daß er Code veröffentlicht den er nicht getestet hat. Ich habe alles verglichen und keinen Unterschied beim Kopieren gefunden. Kann es ein Fehler sein weil der Code schon etwas älter ist?

Haudruferzappeltnoch · 19. April 2024, 08:38

Nein, der Code wird bei ihm laufen. Der Fehler kann gewollt drin sein. Das nennt sich Copy/Paste Falle. Eine Hausaufgabe

Ansonsten sag ich ja hat er eine Extension, die dort nicht zu sehen ist.

JLH · 19. April 2024, 09:06

Das ist eine Klasse.Fügst deinem Projekt eine Klasse hinzu, benennst sie bitte SFLabel, und kopierst den Code rein.Dann ist das Ding im Projekt verfügbar - inne Toolbox.

Was für eine Falle, welche Extension? Tut mir Leid wenn jetzt nichts verstehe.. Es gibt hier irgendwo die "_Tests01.zip". Da enthalten ist auch der code als "SFLabel.vb" und der läuft auch nicht.

RodFromGermany · 19. April 2024, 09:51

@JLH Wenn das ein Brush werden soll, probier einfach mal

VB.NET-Quellcode

_ForeBrush = New Brush(MyBase.ForeColor)
_BackBrush = New Brush(MyBase.BackColor)

JLH · 19. April 2024, 10:37

VB.NET-Quellcode

Imports System.Drawing
Imports System.ComponentModel
''' <summary>
''' Dieses Controls Beschriftung läßt sich durch Veränderung seiner
''' CaptionStringFormat-Property manipulieren
''' </summary>
<DebuggerDisplay("{txt}")>
<DesignerCategory("Code")>
Public Class SFLabel : Inherits Control
Private ReadOnly _CaptionStringFormat As StringFormat = New StringFormat
Private _ForeBrush As New SolidBrush(Color.Black)
Private _BackBrush As New SolidBrush(Color.White)
Public Sub New()
Me.SetStyle(ControlStyles.ResizeRedraw, True)
MyBase.BackColor = Color.Gainsboro
End Sub
Public Overrides Property ForeColor As Drawing.Color
Get
Return _ForeBrush.Color
End Get
Set(value As Color)
_ForeBrush.Color = value
End Set
End Property
Private Function txt() As String
Return Text
End Function
Protected Overloads Overrides Sub Dispose(disposing As Boolean)
If Not MyBase.IsDisposed Then
For Each D As IDisposable In New IDisposable() {_ForeBrush, _BackBrush, _CaptionStringFormat}
D.Dispose()
Next
End If
MyBase.Dispose(disposing)
End Sub
'Einstellung: Im Designer den Knoten der Property "CaptionStringFormat" erweitern, und Einstellungen vornehmen
'Es kann das vertikale und horizontale Alignment bestimmt werden, ob der Text umgebrochen wird (FormatFlags), welche Zeichen gekürzt werden, wenn der Text zu lang ist (Trimming)
'Die Änderungen sind sofort sichtbar - kein Kompilieren erforderlich
<TypeConverter(GetType(ExpandableObjectConverter))>
<Browsable(True)>
<Category("Darstellung")>
<Description("Einige interessante Einstellmöglichkeiten der Schrift-Darstellung")>
<DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
Public ReadOnly Property CaptionStringFormat() As StringFormat
Get
If Me.DesignMode Then Invalidate()
Return _CaptionStringFormat
End Get
End Property
Protected Overrides Sub OnTextChanged(e As System.EventArgs)
MyBase.OnTextChanged(e)
Invalidate()
End Sub
Private _BorderStyle As Border3DStyle = Border3DStyle.Adjust
<DefaultValue(GetType(Border3DStyle), "Adjust")>
<Category("Darstellung")>
Public Property BorderStyle() As Border3DStyle
Get
Return _BorderStyle
End Get
Set(NewValue As Border3DStyle)
If Object.Equals(NewValue, Me.BorderStyle) Then Return
_BorderStyle = NewValue
End Set
End Property
Protected Overrides Sub OnPaint(e As PaintEventArgs)
_ForeBrush.Color.Assign(MyBase.ForeColor)
_BackBrush.Color.Assign(MyBase.BackColor)
e.Graphics.FillRectangle(_BackBrush, ClientRectangle)
e.Graphics.DrawString(MyBase.Text, MyBase.Font, _ForeBrush, ClientRectangle, _CaptionStringFormat)
ControlPaint.DrawBorder3D(e.Graphics, ClientRectangle, _BorderStyle)
MyBase.OnPaint(e)
End Sub
End Class

Da sich die Farbe des Labels nicht ändert (ich habe die beiden Zeilen auskommentiert) gehe ich davon aus, daß die Zeilen die Hinter- und Vordergrundfarbe des Labels ändern sollen.
Rod, Dein Tipp hat nicht funktioniert.

Hab's gefunden! Danke Rod...

VB.NET-Quellcode

_ForeBrush.Color = (MyBase.ForeColor)
_BackBrush.Color = (MyBase.BackColor)

@ErfinderdesRades... solltest Du dies sehen und es nicht zuviel des Guten ist, kann man den Vertikalen Text von unten nach oben statt von oben nach unten anzeigen lassen? Also den Text um 180° drehen?

VaporiZed · 19. April 2024, 11:56

JLH schrieb:

ErfinderdesRades... solltest Du dies sehen

Du könntest die Wahrscheinlichkeit deutlich erhöhen, wenn Du ihn per @-Zeichen und der damit verbundenen Ansprechfunktion (Stichwort @JLH - schwupps, hast Du ne Nachricht in Deinem Posteingang, dass ich Dich erwähnt habe) darüber in Kenntnis setzen würdest.
Die Assign-Extensions ist garantiert eine von ihm selbst gebaute, die in seinen Helpers-Zusatzprojekten drinsteckt. Die hat er so oft erwähnt und bestimmt auch hochgeladen, dass Du nach 2 Minuten Recherche im Forum selber den Quellcode findest.

Haudruferzappeltnoch · 19. April 2024, 15:24

JLH schrieb:

Es gibt hier irgendwo die "_Tests01.zip". Da enthalten ist auch der code als "SFLabel.vb" und der läuft auch nicht

Das stimmt nicht, in dem Testprojekt läuft das, du hast die Extension also nicht mit übernommen, vermutlich dort auch nur den SFLabel-Code rauskopiert.

Das ein Testprojekt dabei war habe ich aber erst gar nicht gesehen.

JLH schrieb:

welche Extension

die Assign-Funktion im ObjectX-Modul

ErfinderDesRades · 20. April 2024, 19:14

JLH schrieb:

VB.NET-Quellcode

_ForeBrush.Color.Assign(MyBase.ForeColor)

_BackBrush.Color.Assign(MyBase.BackColor)

Jo, dassis eine kleine Extension.
Ohne Extension:

VB.NET-Quellcode

If ForeBrush.Color <> MyBase.ForeColor Then ForeBrush.Color = MyBase.ForeColor

Aber das hätte man auch rauskriegen können, indem man den Code mal debugt. Also Haltepunkt auf die Zeile setzen, und mit F11 durchsteppen, was sich da ereignet.
Eventuell gibts da auch Doku-Kommentare zum Nachlesen.

Falls es an Debugging-Fertigkeiten fehlt (ist ja nichts verwerfliches) - hier Video-Tut: VisualStudio richtig nutzen (Google ist nicht deine Mami)

Haudruferzappeltnoch · 20. April 2024, 19:44

ErfinderDesRades schrieb:

Aber das hätte man auch rauskriegen können, indem man den Code mal debugt

Na, das konnte JLH ja nicht debuggen, weil wenn die Extension (der Member) nicht da ist, dann kompiliert das Studio erst gar nicht.

JLH · 21. April 2024, 20:07

Ich habe im ersten Thread geschrieben wo ich es her habe und ich nicht den Kenntnisstand habe den Fehler zu finden. Mit dem Tipp von Rod hab ich es dann doch zum Laufen gebracht. Danke für die Hilfe.

JLH · 22. April 2024, 10:25

@ErfinderDesRades Es ist wohl tatsächlich untergegangen. Ich verwende diesen Helper um den Text zu drehen. Kann der auch um weitere 180° gedreht werden damit der Text von unten nach oben gelesen werden kann?

Haudruferzappeltnoch · 22. April 2024, 14:22

Offensichtlich funktioniert DirectionRightToLeft des StringFormats nicht richtig. Zumindest würde ich es so verstehen, dass das den Text spiegelt. Stattdessen wird er nur rechtsbündig. Oder sehe ich das verkehrt?

Du könntest durch Transformation der Graphics den Text drehen, das kann aber schnell ausarten, je nachdem was du genau brauchst.

VB.NET-Quellcode

e.Graphics.TranslateTransform(20, 50)
e.Graphics.ScaleTransform(-1, -1)

JLH · 22. April 2024, 15:57

Ich verwende das Flag "DirectionVertical". Mit "DirectionRighttoLeft" bekommt man das denke ich nicht hin.

RodFromGermany · 22. April 2024, 16:46

@JLH Ich habe ein C#-Control gefunden, die das alles macht:

Spoiler anzeigen

C#-Quellcode

using System;
using System.ComponentModel;
using System.Drawing;
using System.Drawing.Text;
using System.Windows.Forms;
namespace WindowsFormsApp2
{
/// <summary>
/// A custom windows control to display text vertically
/// </summary>
[DefaultProperty("Text")]
[DefaultBindingProperty("Text")]
public class VerticalLabel
: Control
{
#region Constants
private static readonly ContentAlignment AnyBottom = (ContentAlignment)0x700;
private static readonly ContentAlignment AnyMiddle = (ContentAlignment)0x70;
private static readonly ContentAlignment AnyRight = (ContentAlignment)0x444;
private static readonly ContentAlignment AnyCenter = (ContentAlignment)0x222;
#endregion Constants
#region Enum
/// <summary>
/// Text Drawing Direction
/// </summary>
public enum DrawDirections
{
/// <summary>
/// Text is drawn from bottom - up
/// </summary>
BottomUp,
/// <summary>
/// Text is drawn from top to bottom
/// </summary>
TopBottom,
}
#endregion Enum
#region Properties
/// <summary>
/// Graphics rendering mode. Supprot for antialiasing.
/// </summary>
[Category("Properties"), Description("Rendering hint.")]
public TextRenderingHint RenderingHint { get; set; }
/// <summary>
/// The text to be displayed in the control
/// </summary>
[Category("VerticalLabel"), Description("Text is displayed vertically in container.")]
public override string Text
{
get { return this._Text; }
set
{
this._Text = value;
this.Invalidate();
}
}
/// <summary>
///
/// </summary>
[Category("Properties"), Description("Whether the text will be drawn from Bottom or from Top.")]
public DrawDirections DrawDirection { get; set; }
/// <summary>
///
/// </summary>
[Category("Properties"), Description("Whether the text will be drawn with transparent background or not.")]
public bool Transparency { get; set; }
/// <summary>Ruft die Textausrichtung im Label ab oder legt diese fest.</summary>
/// <returns>Einer der <see cref="T:System.Drawing.ContentAlignment" />-Werte.Der Standardwert ist <see cref="F:System.Drawing.ContentAlignment.TopLeft" />.</returns>
/// <exception cref="T:System.ComponentModel.InvalidEnumArgumentException">Der zugewiesene Wert ist keiner der <see cref="T:System.Drawing.ContentAlignment" />-Werte. </exception>
[Localizable(true)]
[DefaultValue(ContentAlignment.TopLeft)]
public ContentAlignment TextAlign { get; set; }
/// <summary>Ruft die Rahmenart des Steuerelements ab oder legt diese fest.</summary>
/// <returns>Einer der <see cref="T:System.Windows.Forms.BorderStyle" />-Werte.Der Standardwert ist BorderStyle.None.</returns>
/// <exception cref="T:System.ComponentModel.InvalidEnumArgumentException">Der zugewiesene Wert ist keiner der <see cref="T:System.Windows.Forms.BorderStyle" />-Werte. </exception>
[DefaultValue(BorderStyle.None)]
public BorderStyle BorderStyle { get; set; }
/// <summary>
/// v1.10
/// </summary>
protected override CreateParams CreateParams
{
get
{
CreateParams cp = base.CreateParams;
// Turn on WS_EX_TRANSPARENT
cp.ExStyle |= 0x20;
// this.UseMnemonic = false
cp.Style |= 0x80;
switch (this.TextAlign)
{
case ContentAlignment.TopLeft:
case ContentAlignment.MiddleLeft:
case ContentAlignment.BottomLeft:
cp.Style |= 0;
break;
case ContentAlignment.TopCenter:
case ContentAlignment.MiddleCenter:
case ContentAlignment.BottomCenter:
cp.Style |= 1;
break;
case ContentAlignment.TopRight:
case ContentAlignment.MiddleRight:
case ContentAlignment.BottomRight:
cp.Style |= 2;
break;
}
switch (this.BorderStyle)
{
case BorderStyle.FixedSingle:
cp.Style |= 0x800000;
break;
case BorderStyle.Fixed3D:
cp.Style |= 0x1000;
break;
}
return cp;
}
}
#endregion Properties
#region Member
/// <summary>
/// Der Label-Text
/// </summary>
private string _Text;
#endregion Member
#region Construktor
/// <summary>
/// VerticalLabel constructor
/// </summary>
public VerticalLabel()
{
this.DrawDirection = DrawDirections.BottomUp;
this.Transparency = false;
this.RenderingHint = TextRenderingHint.SystemDefault;
this.TextAlign = ContentAlignment.TopLeft;
this.CreateControl();
this.Size = new Size(24, 100);
this.SetStyle(ControlStyles.Opaque, true);
}
#endregion Construktor
#region Methods
/// <summary>
/// OnPaint override. This is where the text is rendered vertically.
/// </summary>
protected override void OnPaint(PaintEventArgs e)
{
base.OnPaint(e);
Pen backPen = null;
Brush backBrush = null;
try
{
backBrush = this.Transparency ? new SolidBrush(Color.Empty) : new SolidBrush(base.BackColor);
backPen = new Pen(backBrush, 0);
Rectangle rect = DeflateRect(this.ClientRectangle, this.Padding);
// Halb-Rahmen oben links
e.Graphics.DrawRectangle(backPen, this.ClientRectangle);
// die Fläche
e.Graphics.FillRectangle(backBrush, this.ClientRectangle);
e.Graphics.TextRenderingHint = this.RenderingHint;
e.Graphics.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality;
using (Brush brush = new SolidBrush(base.ForeColor))
{
if (this.DrawDirection == DrawDirections.BottomUp)
{
// Koordinatensystem verschieben und drehen
e.Graphics.TranslateTransform(0, this.Height);
e.Graphics.RotateTransform(270);
PointF pt = this.CalcLocation(e.Graphics, rect);
e.Graphics.DrawString(this._Text, this.Font, brush, pt.X, pt.Y, StringFormat.GenericDefault);
}
else
{
// Koordinatensystem verschieben und drehen
e.Graphics.TranslateTransform(this.Width, 0);
e.Graphics.RotateTransform(90);
PointF pt = this.CalcLocation(e.Graphics, rect);
e.Graphics.DrawString(this._Text, this.Font, brush, pt.X, pt.Y, StringFormat.GenericTypographic);
}
}
}
finally
{
backPen.Dispose();
backBrush.Dispose();
}
}
/// <summary>
/// OnResize override
/// </summary>
protected override void OnResize(EventArgs e)
{
this.Invalidate();
}
/// <summary>
/// von Label abgeschrieben und präzisiert
/// </summary>
/// <param name="rc">das Client-Rectangle</param>
/// <param name="pad">das Padding</param>
/// <returns></returns>
private static Rectangle DeflateRect(Rectangle rc, Padding pad)
{
Rectangle rect = new Rectangle(rc.Location, rc.Size);
rect.X += pad.Left;
rect.Y += pad.Top;
rect.Width -= pad.Horizontal;
rect.Height -= pad.Vertical;
return rect;
}
/// <summary>
/// Berechnung der Startposition des Textes
/// im transformierten Context
/// </summary>
/// <param name="g">der Graphics-Context nach Transform</param>
/// <param name="rect">ClientRect mit Padding</param>
/// <returns></returns>
private PointF CalcLocation(Graphics g, Rectangle rect)
{
// der Rand rechts und unten
SizeF sz = g.MeasureString(this._Text, this.Font);
SizeF size = SizeF.Empty;
size.Height = rect.Width - sz.Height;
size.Width = rect.Height - sz.Width;
PointF pt = rect.Location;
if (this.TextAlign.HasFlag(AnyRight))
{
pt.X += size.Width;
}
if (this.TextAlign.HasFlag(AnyCenter))
{
pt.X += size.Width / 2F;
}
if (this.TextAlign.HasFlag(AnyBottom))
{
pt.Y += size.Height;
}
if (this.TextAlign.HasFlag(AnyMiddle))
{
pt.Y += size.Height / 2F;
}
return pt;
}
#endregion Methods
}
}

Mit dem Telerik kommt das raus (ungetestet):

Spoiler anzeigen

VB.NET-Quellcode

Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports System.Drawing.Text
Imports System.Windows.Forms
Namespace WindowsFormsApp2
<DefaultProperty("Text")>
<DefaultBindingProperty("Text")>
Public Class VerticalLabel
Inherits Control
Private Shared ReadOnly AnyBottom As ContentAlignment = CType(&H700, ContentAlignment)
Private Shared ReadOnly AnyMiddle As ContentAlignment = CType(&H70, ContentAlignment)
Private Shared ReadOnly AnyRight As ContentAlignment = CType(&H444, ContentAlignment)
Private Shared ReadOnly AnyCenter As ContentAlignment = CType(&H222, ContentAlignment)
Public Enum DrawDirections
BottomUp
TopBottom
End Enum
<Category("Properties"), Description("Rendering hint.")>
Public Property RenderingHint As TextRenderingHint
<Category("VerticalLabel"), Description("Text is displayed vertically in container.")>
Public Overrides Property Text As String
Get
Return Me._Text
End Get
Set(ByVal value As String)
Me._Text = value
Me.Invalidate()
End Set
End Property
<Category("Properties"), Description("Whether the text will be drawn from Bottom or from Top.")>
Public Property DrawDirection As DrawDirections
<Category("Properties"), Description("Whether the text will be drawn with transparent background or not.")>
Public Property Transparency As Boolean
<Localizable(True)>
<DefaultValue(ContentAlignment.TopLeft)>
Public Property TextAlign As ContentAlignment
<DefaultValue(BorderStyle.None)>
Public Property BorderStyle As BorderStyle
Protected Overrides ReadOnly Property CreateParams As CreateParams
Get
Dim cp As CreateParams = MyBase.CreateParams
cp.ExStyle = cp.ExStyle Or &H20
cp.Style = cp.Style Or &H80
Select Case Me.TextAlign
Case ContentAlignment.TopLeft, ContentAlignment.MiddleLeft, ContentAlignment.BottomLeft
cp.Style = cp.Style Or 0
Case ContentAlignment.TopCenter, ContentAlignment.MiddleCenter, ContentAlignment.BottomCenter
cp.Style = cp.Style Or 1
Case ContentAlignment.TopRight, ContentAlignment.MiddleRight, ContentAlignment.BottomRight
cp.Style = cp.Style Or 2
End Select
Select Case Me.BorderStyle
Case BorderStyle.FixedSingle
cp.Style = cp.Style Or &H800000
Case BorderStyle.Fixed3D
cp.Style = cp.Style Or &H1000
End Select
Return cp
End Get
End Property
Private _Text As String
Public Sub New()
Me.DrawDirection = DrawDirections.BottomUp
Me.Transparency = False
Me.RenderingHint = TextRenderingHint.SystemDefault
Me.TextAlign = ContentAlignment.TopLeft
Me.CreateControl()
Me.Size = New Size(24, 100)
Me.SetStyle(ControlStyles.Opaque, True)
End Sub
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
MyBase.OnPaint(e)
Dim backPen As Pen = Nothing
Dim backBrush As Brush = Nothing
Try
backBrush = If(Me.Transparency, New SolidBrush(Color.Empty), New SolidBrush(MyBase.BackColor))
backPen = New Pen(backBrush, 0)
Dim rect As Rectangle = DeflateRect(Me.ClientRectangle, Me.Padding)
e.Graphics.DrawRectangle(backPen, Me.ClientRectangle)
e.Graphics.FillRectangle(backBrush, Me.ClientRectangle)
e.Graphics.TextRenderingHint = Me.RenderingHint
e.Graphics.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality
Using brush As Brush = New SolidBrush(MyBase.ForeColor)
If Me.DrawDirection = DrawDirections.BottomUp Then
e.Graphics.TranslateTransform(0, Me.Height)
e.Graphics.RotateTransform(270)
Dim pt As PointF = Me.CalcLocation(e.Graphics, rect)
e.Graphics.DrawString(Me._Text, Me.Font, brush, pt.X, pt.Y, StringFormat.GenericDefault)
Else
e.Graphics.TranslateTransform(Me.Width, 0)
e.Graphics.RotateTransform(90)
Dim pt As PointF = Me.CalcLocation(e.Graphics, rect)
e.Graphics.DrawString(Me._Text, Me.Font, brush, pt.X, pt.Y, StringFormat.GenericTypographic)
End If
End Using
Finally
backPen.Dispose()
backBrush.Dispose()
End Try
End Sub
Protected Overrides Sub OnResize(ByVal e As EventArgs)
Me.Invalidate()
End Sub
Private Shared Function DeflateRect(ByVal rc As Rectangle, ByVal pad As Padding) As Rectangle
Dim rect As Rectangle = New Rectangle(rc.Location, rc.Size)
rect.X += pad.Left
rect.Y += pad.Top
rect.Width -= pad.Horizontal
rect.Height -= pad.Vertical
Return rect
End Function
Private Function CalcLocation(ByVal g As Graphics, ByVal rect As Rectangle) As PointF
Dim sz As SizeF = g.MeasureString(Me._Text, Me.Font)
Dim size As SizeF = SizeF.Empty
size.Height = rect.Width - sz.Height
size.Width = rect.Height - sz.Width
Dim pt As PointF = rect.Location
If Me.TextAlign.HasFlag(AnyRight) Then
pt.X += size.Width
End If
If Me.TextAlign.HasFlag(AnyCenter) Then
pt.X += size.Width / 2F
End If
If Me.TextAlign.HasFlag(AnyBottom) Then
pt.Y += size.Height
End If
If Me.TextAlign.HasFlag(AnyMiddle) Then
pt.Y += size.Height / 2F
End If
Return pt
End Function
End Class
End Namespace

JLH · 22. April 2024, 17:59

@RodFromGermany Wow cool. Ich hoffe ich krieg das zum laufen. Danke

SFLabel

SFLabel

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

JLH schrieb:

JLH schrieb:

JLH schrieb:

JLH schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

ErfinderDesRades schrieb:

VB.NET-Quellcode

C#-Quellcode

VB.NET-Quellcode

Benutzer online 1

Ähnliche Themen

5 Benutzer haben hier geschrieben