Eigenes Control - AutoSize selber machen

Jonas Jelonek · 27. Mai 2013, 15:19

Guten Tag

Vorhin wurde mein Problem in dem Thread Eigenes Control - Schwarzer Hintergrund bei BackColor Transparent gelöst, jedoch kam eines neues Problem. Ich habe in meiner Controlsammlung auch ein Label und eine Checkbox. Das Problem ist, wenn ich von Control erbe, gibt es die AutoSize-Eigenschaft nicht, welche die Checkbox und das Label standardmäßig auf True gesetzt haben. Jetzt würde ich gerne wissen wie ich das selber machen kann?

Vielen Dank im Voraus

MfG
Jonas Jelonek

ErfinderDesRades · 27. Mai 2013, 23:06

Tja, musst du die Onlayout - Methode überschreiben.

(Falls du diese Aussage nicht verstehst, lass besser die Finger davon.)

Jonas Jelonek · 27. Mai 2013, 23:28

Reicht es wenn ich die Methode einfach überschreibe oder muss ich da noch etwas bestimmtes reinschreiben?

Artentus · 27. Mai 2013, 23:38

Du kannst mit Graphics.MeasureString berechnen lassen, wie viel Platz ein String verbraucht. Wenn du das im TextChanged-Event ausrechnest brauchst du nur noch die Größe des Controls auf die errechnete Größe setzen. Bei der Checkbox musst du natürlich noch das kleine Kästchen berücksichtigen.

Jonas Jelonek · 28. Mai 2013, 14:21

Na rate mal, was ich bisher schon gemacht habe. Nämlich genau das. Ich will jetzt nur noch, dass wie beim Label nur noch dieses eine kleine Kästchen in der linken oberen Ecke angezeigt wird und nicht an allen Ecken und Kanten. Und das gleiche bei der Checkbox.

faxe1008 · 28. Mai 2013, 14:43

Ganz einfach:
Mit measureString länge berechnen und maximumSize und minimumSize mit der errechneten Größe belegen

Jonas Jelonek · 28. Mai 2013, 14:44

Kannst du nicht lesen? Lies was in meinem vorherigen Beitrag steht.

SpaceyX · 28. Mai 2013, 14:45

Schalt mal Deinen Ton nen Gang runter.

Jonas Jelonek · 28. Mai 2013, 14:47

Aber wenn er etwas postest was jemand vor ihm schon gepostet hat und ich darauf sage, dass ich das schon habe, brauch er das nicht nochmal zu posten.

Jonas Jelonek · 1. Juni 2013, 11:36

Ich habe jetzt mal alles ausprobiert aber nichts hat funktioniert.

ErfinderDesRades · 1. Juni 2013, 16:26

echt? auch post#2 hast du ausprobiert?

dürfemer den Code sehen?

Jonas Jelonek · 1. Juni 2013, 17:24

VB.NET-Quellcode

Option Strict On
Imports System.Drawing
Imports System.Windows.Forms
Imports System.ComponentModel
<ToolboxBitmap(GetType(System.Windows.Forms.Label))> _
Public Class Label
Inherits System.Windows.Forms.Control
Public Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
SetStyle(ControlStyles.AllPaintingInWmPaint, True)
SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
SetStyle(ControlStyles.ResizeRedraw, True)
SetStyle(ControlStyles.SupportsTransparentBackColor, True)
SetStyle(ControlStyles.UserPaint, True)
End Sub
Protected Overrides Sub OnPaint(e As PaintEventArgs)
MyBase.OnPaint(e)
With e.Graphics
.SmoothingMode = Drawing.Drawing2D.SmoothingMode.HighQuality
If AeroMode = True Then
.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
Else
.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit
End If
If Me.AutoSize Then
Dim TextSize As SizeF = .MeasureString(Me.Text, Me.Font)
Dim Size As New Size(CInt(TextSize.Width), CInt(TextSize.Height))
Me.Size = Size
End If
Dim StringForm As New StringFormat(StringFormat.GenericDefault)
.DrawString(Me.Text, Me.Font, New SolidBrush(Me.ForeColor), New Point(-1, -1), StringForm)
End With
End Sub
Protected Overrides Sub OnPaintBackground(pevent As PaintEventArgs)
MyBase.OnPaintBackground(pevent)
End Sub
Protected Overrides Sub OnLayout(e As LayoutEventArgs)
MyBase.OnLayout(e)
End Sub
Private _AutoSize As Boolean = True
<Browsable(True)> _
Public Overrides Property AutoSize As Boolean
Get
Return _AutoSize
End Get
Set(value As Boolean)
_AutoSize = value
Me.Invalidate()
End Set
End Property
Protected Overrides ReadOnly Property CreateParams() As CreateParams
Get
Dim cp As CreateParams = MyBase.CreateParams
cp.ExStyle = cp.ExStyle Or &H20
'WS_EX_TRANSPARENT
Return cp
End Get
End Property
Private _AeroMode As Boolean = False
''' <summary>
''' Ruft ab, ob der AeroMode eingeschaltet ist, oder legt es fest. Mit dem AeroMode wird der Text auf Glass korrekt dargestellt.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property AeroMode As Boolean
Get
Return _AeroMode
End Get
Set(value As Boolean)
_AeroMode = value
Me.Invalidate()
End Set
End Property
Private Sub Label_SizeChanged(sender As Object, e As EventArgs) Handles Me.SizeChanged
Me.Invalidate()
End Sub
End Class

ErfinderDesRades · 1. Juni 2013, 18:25

VB.NET-Quellcode

Protected Overrides Sub OnLayout(e As LayoutEventArgs)

MyBase.OnLayout(e)

End Sub

issn Witz odr?
OnLayout heißt OnLayout, weil da gelayoutet wird.
Wenn du da nix tust, ausser die Basisklasse layouten lassen, dann kannste den Override auch lassen.

Jonas Jelonek · 1. Juni 2013, 20:00

Was genau soll ich dort machen? Bei meinen Controls habe ich diese Methode noch nie gebraucht und habe deshalb auch keine Ahnung was man da machen soll.

vb-checker · 1. Juni 2013, 20:08

Orientiere dich mal hieran: msdn.microsoft.com/en-us/libra…forms.control.layout.aspx

Eigenes Control - AutoSize selber machen

Eigenes Control - AutoSize selber machen

VB.NET-Quellcode

VB.NET-Quellcode

Skybird schrieb:

Ähnliche Themen

6 Benutzer haben hier geschrieben