dll - Controls erstellen
- Allgemein
Sie verwenden einen veralteten Browser (%browser%) mit Sicherheitsschwachstellen und können nicht alle Funktionen dieser Webseite nutzen.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Es gibt 46 Antworten in diesem Thema. Der letzte Beitrag () ist von jvbsl.
-
-
-
-
-
-
-
:P Mfg Aligator :P
-
hier [VB 2008] Zeichenprogramm mit mehreren Ebenen ist ein drawpanel drinnen, aber in der toolbox finde ich es auch nicht
aber dieses control soll eine funktion in einer dll erstellen -
-
-
macvh erstmal dieses Tutorial. vieleicht verstehst dus dann besser.
[VB 2008] Eigene Progressbar erstellen:P Mfg Aligator :P -
wenn ich
VB.NET-Quellcode
- Option Strict On
- Imports System.Windows.Forms
- Imports System.Drawing
- Imports System.Drawing.Drawing2D
- Imports System.ComponentModel
- Public Class UserControl1
- Public Class MyProgressbar
- Inherits ProgressBar 'Die Control von Progressbar erben lassen
- Public Sub New()
- MyBase.New()
- MyBase.SetStyle(ControlStyles.UserPaint, True) 'Der controll sagen das wir sie zeichnen
- MyBase.SetStyle(ControlStyles.DoubleBuffer, True) 'DoubleBuffer aktivieren
- MyBase.SetStyle(ControlStyles.SupportsTransparentBackColor, True) 'Transparente hintergrundfarbe aktivieren (für diese anwendung nicht zwingend notwendig)
- End Sub
- Private Sub Grafik(ByVal sender As Object, ByVal e As PaintEventArgs) Handles MyBase.Paint
- 'Einstellen dass die balken und linien mit hoher Qualität gezeichnet werden
- e.Graphics.SmoothingMode = SmoothingMode.HighQuality
- 'Höhe des Hintergrundes
- Dim HintergrundH As Integer = MyBase.ClientRectangle.Height
- 'Breite des Hintergrundes
- Dim HintergrundB As Integer = MyBase.ClientRectangle.Width
- 'Höhe des Anzeigebalkens
- Dim BalkenH As Integer = MyBase.ClientRectangle.Height
- 'Differenz zwischen Maximum und Minimun
- Dim Diff As Integer = MyBase.Maximum - MyBase.Minimum
- 'Breite des Anzeigebalkens
- Dim BalkenB As Integer = CInt((HintergrundB / Diff) * Value)
- 'Obere Hintergrundfarbe (Dunkles Grau)
- Dim HintergrundfarbeOben As Color = Color.DimGray
- 'Untere Hintergrundfarbe (Helles Grau)
- Dim HintergrundfarbeUnten As Color = Color.DarkGray
- 'Obere Balkenfarbe (Helles Grün)
- Dim BalkenfarbeOben As Color = Color.Lime
- 'Untere Balkenfarbe (Dunkles Grün)
- Dim BalkenfarbeUnten As Color = Color.Green
- 'Oberes weiß für das Glas
- Dim GlasOben As Color = Color.FromArgb(100, 255, 255, 255)
- 'Unteres weiß für das Glas
- Dim GlasUnten As Color = Color.FromArgb(40, 255, 255, 255)
- 'Brush für den Hintergrund
- Dim HintergrundBrush As New LinearGradientBrush(New Point(0, 0), New Point(0, HintergrundH), HintergrundfarbeOben, HintergrundfarbeUnten)
- 'Brush für den Balken
- Dim Balkenbrush As New LinearGradientBrush(New Point(0, 0), New Point(0, BalkenH), BalkenfarbeOben, BalkenfarbeUnten)
- 'Brush für das Glas
- Dim glass As New LinearGradientBrush(New Point(0, 0), New Point(0, BalkenH), GlasOben, GlasUnten)
- 'Zeichnen des Hintergrundes
- e.Graphics.FillRectangle(HintergrundBrush, 0, 0, HintergrundB, HintergrundH)
- 'Zeichnen des Balken
- e.Graphics.FillRectangle(Balkenbrush, 0, 0, BalkenB, BalkenH)
- 'Zeichnen des GlasEffects
- e.Graphics.FillRectangle(glass, 0, 0, BalkenB, CInt(BalkenH / 3))
- End Sub
- End Class
- End Class
in das benutzersteuerelement rein setzte, wird das control im testcontainer auch nicht dargestelllt -
-
-
-
-
-
-
-
-
Ähnliche Themen