Control BinärUhr

Cypress · 24. Juni 2014, 09:56

So ich habe es endlich geschaft mir nen Image zu erstellen

VB.NET-Quellcode

Protected Sub CreateColorImage(ByVal _g As Graphics, ByVal _Rect As Rectangle, ByVal _CenterColor As Color, ByVal _SurroundColor As Color())
Dim m_GraphicsPath As New GraphicsPath
m_GraphicsPath.AddEllipse(_Rect)
Dim m_PGB As PathGradientBrush = New PathGradientBrush(m_GraphicsPath)
m_PGB.CenterColor = _CenterColor
m_PGB.SurroundColors = _SurroundColor
m_PGB.CenterPoint = New Point(CInt(_Rect.Width / 2), CInt((_Rect.Height / 100) * 10))
_g.FillEllipse(m_PGB, _Rect)
End Sub

ErfinderDesRades · 24. Juni 2014, 10:09

sieht sehr interessant aus - kannst du das einbauen, und vlt. im ersten Post nochmal uppen?
Und hoffentlich kann man das groß ziehen, weil das gibt einen sehr interessanten Farbverlauf, oder?
Guck, ich hab mal mit Farbverläufen experimentiert, aber nur den LinearGradientBrush

Cypress · 24. Juni 2014, 11:13

So hier mal mit Einbindung von meinem DrawCode

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Option Explicit On
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Drawing.Drawing2D
Imports System.ComponentModel
Public Class BinaryClock
Inherits Control
#Region " Instance variables "
Protected m_BorderRadius As Single = 3
Protected m_BorderColor As Color = SystemColors.ControlDarkDark
Protected m_ColorTop As Color = SystemColors.ControlDark
Protected m_ColorBottom As Color = SystemColors.ControlLight
Protected m_Activated As Boolean = False
Protected m_AllowDesignTimeAction As Boolean = False
Protected m_TrueCenterColor As Color = Color.White
Protected m_TrueSurroundColor As Color() = {Color.Green}
Protected m_FalseCenterColor As Color = Color.White
Protected m_FalseSurroundColor As Color() = {Color.Red}
Public WithEvents m_Timer As New Timers.Timer With {.Interval = 1000}
#End Region
#Region " Initializing "
Public Sub New()
MyBase.New()
MyBase.SetStyle(ControlStyles.CacheText Or ControlStyles.DoubleBuffer Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or ControlStyles.SupportsTransparentBackColor, True)
MyBase.UpdateStyles()
With Me
.Size = New Size(151, 75)
.MinimumSize = New Size(.Width, .Height)
.MaximumSize = New Size(.Width, .Height)
End With
End Sub
#End Region
#Region " Properties "
<Category("BinaryClock")>
<Description("Startet oder stoppt die Animation.")>
Public Property Activated As Boolean
Get
Return m_Activated
End Get
Set(ByVal value As Boolean)
m_Activated = value
If m_Activated AndAlso ((Me.DesignMode AndAlso Me.AllowDesignTimeAction) OrElse Not Me.DesignMode) Then
m_Timer.Start()
Else
m_Timer.Stop()
End If
Me.Invalidate()
End Set
End Property
<Category("BinaryClock")>
<Description("Gibt an, ob die Animation auch zur Designzeit aktiviert ist.")>
Public Property AllowDesignTimeAction As Boolean
Get
Return m_AllowDesignTimeAction
End Get
Set(ByVal value As Boolean)
m_AllowDesignTimeAction = value
Me.Activated = Me.Activated
End Set
End Property
<Category("BinaryClock")>
<Description("Anfangsfarbe des Hintergrundfarbverlaufs.")>
Public Property ColorTop As Color
Get
Return m_ColorTop
End Get
Set(ByVal value As Color)
m_ColorTop = value
Me.Invalidate()
End Set
End Property
<Category("BinaryClock")>
<Description("Endfarbe des Hintergrundfarbverlaufs.")>
Public Property ColorBottom As Color
Get
Return m_ColorBottom
End Get
Set(ByVal value As Color)
m_ColorBottom = value
Me.Invalidate()
End Set
End Property
<Category("BinaryClock")>
<Description("Farbe des Rahmens.")>
Public Property BorderColor As Color
Get
Return m_BorderColor
End Get
Set(ByVal value As Color)
m_BorderColor = value
Me.Invalidate()
End Set
End Property
<Category("BinaryClock")>
<Description("Centerfarbe vom True Image")>
Public Property TrueCenterColor As Color
Get
Return m_TrueCenterColor
End Get
Set(ByVal value As Color)
m_TrueCenterColor = value
Me.Invalidate()
End Set
End Property
<Category("BinaryClock")>
<Description("Surroundfarbe vom True Image")>
Public Property TrueSurroundColor As Color()
Get
Return m_TrueSurroundColor
End Get
Set(ByVal value As Color())
m_TrueSurroundColor = value
Me.Invalidate()
End Set
End Property
<Category("BinaryClock")>
<Description("Centerfarbe vom False Image")>
Public Property FalseCenterColor As Color
Get
Return m_FalseCenterColor
End Get
Set(ByVal value As Color)
m_FalseCenterColor = value
Me.Invalidate()
End Set
End Property
<Category("BinaryClock")>
<Description("Surroundfarbe vom False Image")>
Public Property FalseSurroundColor As Color()
Get
Return m_FalseSurroundColor
End Get
Set(ByVal value As Color())
m_FalseSurroundColor = value
Me.Invalidate()
End Set
End Property
<Category("BinaryClock")>
<Description("Radius der Abrundung des Rahmens in Pixel.")>
Public Property BorderRadius As Single
Get
Return m_BorderRadius
End Get
Set(ByVal value As Single)
m_BorderRadius = value
Me.Invalidate()
End Set
End Property
#End Region
#Region " Eventhandler "
Protected Overrides Sub OnResize(ByVal e As EventArgs)
' Größenänderung ignorieren
' MyBase.OnResize(e)
End Sub
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
MyBase.OnPaint(e)
With e.Graphics
.SmoothingMode = SmoothingMode.HighQuality
End With
Dim m_r As Rectangle
With e.ClipRectangle
m_r = New Rectangle(0, 0, .Width - 1, .Height - 1)
End With
If m_r.Width = 0 OrElse m_r.Height = 0 Then
Return
End If
Dim m_BoolList = GetBinaryValues(Now.Hour, Now.Minute, Now.Second)
DrawFillRoundedRectangle(e.Graphics, m_r, Me.BorderRadius, Me.BorderColor, New LinearGradientBrush(m_r, Me.ColorTop, Me.ColorBottom, LinearGradientMode.Vertical))
Dim m_temp As Integer = 0
For i As Integer = 0 To 2 Step 1
For j As Integer = 0 To 5 Step 1
Select Case m_BoolList(m_temp)
Case True
CreateColorImage(e.Graphics, New Rectangle(New Point(5 + ((j * 24) + (j * 1)), 5 + ((i * 24) + (i * 1))), _
New Size(10, 10)), Me.TrueCenterColor, Me.TrueSurroundColor)
Case False
CreateColorImage(e.Graphics, New Rectangle(New Point(5 + ((j * 24) + (j * 1)), 5 + ((i * 24) + (i * 1))), _
New Size(10, 10)), Me.FalseCenterColor, Me.FalseSurroundColor)
End Select
m_temp += 1
Next
Next
End Sub
Protected Sub m_Timer_Elapsed(ByVal sender As Object, ByVal e As EventArgs) Handles m_Timer.Elapsed
Me.Invalidate()
End Sub
#End Region
#Region " Supporting methods "
Protected Sub DrawFillRoundedRectangle(ByVal _g As Graphics, ByVal _r As Rectangle, ByVal _radius As Single, ByVal _borderColor As Color, ByVal _fillBrush As Brush)
Using m_path As GraphicsPath = FillRoundedRectanglePath(_r, _radius)
With _g
.FillPath(_fillBrush, m_path)
.DrawPath(New Pen(_borderColor), m_path)
End With
End Using
End Sub
Protected Function FillRoundedRectanglePath(ByVal _Rect As RectangleF, ByVal _Radius As Single) As GraphicsPath
Dim m_GraphicsPath As New GraphicsPath
Dim m_DiaMeter As Single = 2 * _Radius
With m_GraphicsPath
If _Radius < 1 Then
.AddRectangle(_Rect)
Else
.AddLine(_Rect.X + _Radius, _Rect.Y, _Rect.X + _Rect.Width - m_DiaMeter, _Rect.Y)
.AddArc(_Rect.X + _Rect.Width - m_DiaMeter, _Rect.Y, m_DiaMeter, m_DiaMeter, 270, 90)
.AddLine(_Rect.X + _Rect.Width, _Rect.Y + _Radius, _Rect.X + _Rect.Width, _Rect.Y + _Rect.Height - m_DiaMeter)
.AddArc(_Rect.X + _Rect.Width - m_DiaMeter, _Rect.Y + _Rect.Height - m_DiaMeter, m_DiaMeter, m_DiaMeter, 0, 90)
.AddLine(_Rect.X + _Rect.Width - m_DiaMeter, _Rect.Y + _Rect.Height, _Rect.X + _Radius, _Rect.Y + _Rect.Height)
.AddArc(_Rect.X, _Rect.Y + _Rect.Height - m_DiaMeter, m_DiaMeter, m_DiaMeter, 90, 90)
.AddLine(_Rect.X, _Rect.Y + _Rect.Height - m_DiaMeter, _Rect.X, _Rect.Y + _Radius)
.AddArc(_Rect.X, _Rect.Y, m_DiaMeter, m_DiaMeter, 180, 90)
End If
.CloseFigure()
End With
Return m_GraphicsPath
End Function
Protected Function GetBinaryValues(ByVal _Hours As Integer, ByVal _Minutes As Integer, ByVal _Seconds As Integer) As List(Of Boolean)
Dim m_Value As New List(Of Boolean)
If _Hours < 12 And _Hours > 0 Then
m_Value.Add(True)
Else
m_Value.Add(False)
End If
For i As Int32 = 0 To 2
Dim m_temp As String = String.Empty
Select Case i
Case 0
m_temp = Convert.ToString(_Hours, 2)
For j As Integer = (4 - m_temp.Length) To 0 Step -1
m_Value.Add(False)
Next
For j As Integer = 0 To m_temp.Length - 1 Step 1
m_Value.Add(m_temp.Substring(j, 1) = "1")
Next
Case 1
m_temp = Convert.ToString(_Minutes, 2)
For j As Integer = (5 - m_temp.Length) To 0 Step -1
m_Value.Add(False)
Next
For j As Integer = 0 To m_temp.Length - 1 Step 1
m_Value.Add(m_temp.Substring(j, 1) = "1")
Next
Case 2
m_temp = Convert.ToString(_Seconds, 2)
For j As Integer = (5 - m_temp.Length) To 0 Step -1
m_Value.Add(False)
Next
For j As Integer = 0 To m_temp.Length - 1 Step 1
m_Value.Add(m_temp.Substring(j, 1) = "1")
Next
End Select
Next
Return m_Value
End Function
Protected Sub CreateColorImage(ByVal _G As Graphics, ByVal _Rect As Rectangle, ByVal _CenterColor As Color, ByVal _SurroundColor As Color())
Dim m_GraphicsPath As New GraphicsPath
m_GraphicsPath.AddEllipse(_Rect)
Dim m_PGB As PathGradientBrush = New PathGradientBrush(m_GraphicsPath)
m_PGB.CenterColor = _CenterColor
m_PGB.SurroundColors = _SurroundColor
m_PGB.CenterPoint = New Point(_Rect.X + CInt(_Rect.Width / 2), _Rect.Y + CInt(_Rect.Height / 3))
_G.FillEllipse(m_PGB, _Rect)
m_GraphicsPath.Dispose()
End Sub
#End Region
End Class

Jetzt fehlt mir nurnoch die Resize Methode, sprich
-True/False Bilder werden Größer,Kleiner...
-True/False Bilder verschieben sich gleichmäßig...

Na das kann ja noch was werden

RodFromGermany · 24. Juni 2014, 11:21

In AllowDesignTimeAction()

Cypress schrieb:

VB.NET-Quellcode

Me.Activated = Me.Activated

Soll das Me.Invalidate() heißen?

WhitePage · 24. Juni 2014, 11:26

@RodFromGermany
Vielleicht will er einfach den Setter auslösen, um Invalidate aufzurufen?

Cypress · 24. Juni 2014, 11:26

?

Also das Me.Activated = Me.Activated soll einfach nur ein Verweis auf die Property Activated sein.
Wenn du AllowDesignTimeAction auf True setzt dann tickt das ding auch im Designer.

RodFromGermany · 24. Juni 2014, 11:48

Cypress schrieb:

ein Verweis auf die Property

Dann würde ich da genau solch Kommentar reinschreiben, damit unsereiner in einem halben Jahr nicht den Grübelzwang kriegt.

us4711 · 24. Juni 2014, 12:24

@Cypress
Sehr hübsch geworden.
Und ja, da muss einiges in Protected Overrides OnResize(...) geschehen. Ich würde dort die Abmessungen bestimmen, die Du dann in den Zeilen 199 ff von Post#23 brauchst.

us4711 · 24. Juni 2014, 13:45

Das könnte eine mögliche Lösung sein:

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Option Explicit On
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Drawing.Drawing2D
Imports System.ComponentModel
Public Class BinaryClockControl
Inherits Control
#Region " Instance variables "
Protected m_BorderRadius As Single = 3
Protected m_BorderColor As Color = SystemColors.ControlDarkDark
Protected m_ColorTop As Color = SystemColors.ControlDark
Protected m_ColorBottom As Color = SystemColors.ControlLight
Protected m_Activated As Boolean = False
Protected m_AllowDesignTimeAction As Boolean = False
Protected m_TrueCenterColor As Color = Color.White
Protected m_TrueSurroundColor As Color() = {Color.Green}
Protected m_FalseCenterColor As Color = Color.White
Protected m_FalseSurroundColor As Color() = {Color.Red}
Public WithEvents m_Timer As New Timers.Timer With {.Interval = 1000}
Protected m_OriginalWidth As Int32 = 151
Protected m_OriginalHeight As Int32 = 75
Protected m_Padding As Padding = New Padding(7)
Protected m_FactorX As Single = 1.0
Protected m_FactorY As Single = 1.0
#End Region
#Region " Initializing "
Public Sub New()
MyBase.New()
MyBase.SetStyle(ControlStyles.CacheText Or ControlStyles.DoubleBuffer Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or ControlStyles.SupportsTransparentBackColor, True)
MyBase.UpdateStyles()
With Me
.Size = New Size(m_OriginalWidth, m_OriginalHeight)
.MinimumSize = .Size
'.MaximumSize = New Size(.Width, .Height)
End With
End Sub
#End Region
#Region " Properties "
<Category("BinaryClock")>
<Description("Setzt den Linken und oberen Abstand der Zeitzeichen.")>
Public Overloads Property Padding As Padding
Get
Return m_Padding
End Get
Set(value As Padding)
m_Padding = value
Me.Invalidate()
End Set
End Property
<Category("BinaryClock")>
<Description("Startet oder stoppt die Animation.")>
Public Property Activated As Boolean
Get
Return m_Activated
End Get
Set(ByVal value As Boolean)
m_Activated = value
If m_Activated AndAlso ((Me.DesignMode AndAlso Me.AllowDesignTimeAction) OrElse Not Me.DesignMode) Then
m_Timer.Start()
Else
m_Timer.Stop()
End If
Me.Invalidate()
End Set
End Property
<Category("BinaryClock")>
<Description("Gibt an, ob die Animation auch zur Designzeit aktiviert ist.")>
Public Property AllowDesignTimeAction As Boolean
Get
Return m_AllowDesignTimeAction
End Get
Set(ByVal value As Boolean)
m_AllowDesignTimeAction = value
Me.Activated = Me.Activated
End Set
End Property
<Category("BinaryClock")>
<Description("Anfangsfarbe des Hintergrundfarbverlaufs.")>
Public Property ColorTop As Color
Get
Return m_ColorTop
End Get
Set(ByVal value As Color)
m_ColorTop = value
Me.Invalidate()
End Set
End Property
<Category("BinaryClock")>
<Description("Endfarbe des Hintergrundfarbverlaufs.")>
Public Property ColorBottom As Color
Get
Return m_ColorBottom
End Get
Set(ByVal value As Color)
m_ColorBottom = value
Me.Invalidate()
End Set
End Property
<Category("BinaryClock")>
<Description("Farbe des Rahmens.")>
Public Property BorderColor As Color
Get
Return m_BorderColor
End Get
Set(ByVal value As Color)
m_BorderColor = value
Me.Invalidate()
End Set
End Property
<Category("BinaryClock")>
<Description("Centerfarbe vom True Image")>
Public Property TrueCenterColor As Color
Get
Return m_TrueCenterColor
End Get
Set(ByVal value As Color)
m_TrueCenterColor = value
Me.Invalidate()
End Set
End Property
<Category("BinaryClock")>
<Description("Surroundfarbe vom True Image")>
Public Property TrueSurroundColor As Color()
Get
Return m_TrueSurroundColor
End Get
Set(ByVal value As Color())
m_TrueSurroundColor = value
Me.Invalidate()
End Set
End Property
<Category("BinaryClock")>
<Description("Centerfarbe vom False Image")>
Public Property FalseCenterColor As Color
Get
Return m_FalseCenterColor
End Get
Set(ByVal value As Color)
m_FalseCenterColor = value
Me.Invalidate()
End Set
End Property
<Category("BinaryClock")>
<Description("Surroundfarbe vom False Image")>
Public Property FalseSurroundColor As Color()
Get
Return m_FalseSurroundColor
End Get
Set(ByVal value As Color())
m_FalseSurroundColor = value
Me.Invalidate()
End Set
End Property
<Category("BinaryClock")>
<Description("Radius der Abrundung des Rahmens in Pixel.")>
Public Property BorderRadius As Single
Get
Return m_BorderRadius
End Get
Set(ByVal value As Single)
m_BorderRadius = value
Me.Invalidate()
End Set
End Property
#End Region
#Region " Eventhandler "
Protected Overrides Sub OnResize(ByVal e As EventArgs)
' Größenänderung ignorieren
MyBase.OnResize(e)
Me.m_FactorX = CSng(Me.Width / m_OriginalWidth)
Me.m_FactorY = CSng(Me.Height / m_OriginalHeight)
End Sub
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
MyBase.OnPaint(e)
With e.Graphics
.SmoothingMode = SmoothingMode.HighQuality
End With
Dim m_r As Rectangle
With e.ClipRectangle
m_r = New Rectangle(0, 0, .Width - 1, .Height - 1)
End With
If m_r.Width = 0 OrElse m_r.Height = 0 Then
Return
End If
Dim m_BoolList = GetBinaryValues(Now.Hour, Now.Minute, Now.Second)
DrawFillRoundedRectangle(e.Graphics, m_r, Me.BorderRadius, Me.BorderColor, New LinearGradientBrush(m_r, Me.ColorTop, Me.ColorBottom, LinearGradientMode.Vertical))
Dim m_temp As Integer = 0
Dim m_CenterColor As Color = Nothing
Dim m_SurroundColors() As Color = Nothing
For Zeile As Integer = 0 To 2 Step 1
For Spalte As Integer = 0 To 5 Step 1
Select Case m_BoolList(m_temp)
Case True
m_CenterColor = Me.TrueCenterColor
m_SurroundColors = Me.TrueSurroundColor
Case False
m_CenterColor = Me.FalseCenterColor
m_SurroundColors = Me.FalseSurroundColor
End Select
CreateColorImage(e.Graphics, New Rectangle(New Point(CInt(Me.Padding.Left * m_FactorX + Spalte * 24 * m_FactorX + Spalte * m_FactorX),
CInt(Me.Padding.Top * m_FactorY + Zeile * 24 * m_FactorY + Zeile * m_FactorY)), New Size(CInt(10 * m_FactorX), CInt(10 * m_FactorY))), m_CenterColor, m_SurroundColors)
m_temp += 1
Next
Next
End Sub
Protected Sub m_Timer_Elapsed(ByVal sender As Object, ByVal e As EventArgs) Handles m_Timer.Elapsed
Me.Invalidate()
End Sub
#End Region
#Region " Supporting methods "
Protected Sub DrawFillRoundedRectangle(ByVal _g As Graphics, ByVal _r As Rectangle, ByVal _radius As Single, ByVal _borderColor As Color, ByVal _fillBrush As Brush)
Using m_path As GraphicsPath = FillRoundedRectanglePath(_r, _radius)
With _g
.FillPath(_fillBrush, m_path)
.DrawPath(New Pen(_borderColor), m_path)
End With
End Using
End Sub
Protected Function FillRoundedRectanglePath(ByVal _Rect As RectangleF, ByVal _Radius As Single) As GraphicsPath
Dim m_GraphicsPath As New GraphicsPath
Dim m_DiaMeter As Single = 2 * _Radius
With m_GraphicsPath
If _Radius < 1 Then
.AddRectangle(_Rect)
Else
.AddLine(_Rect.X + _Radius, _Rect.Y, _Rect.X + _Rect.Width - m_DiaMeter, _Rect.Y)
.AddArc(_Rect.X + _Rect.Width - m_DiaMeter, _Rect.Y, m_DiaMeter, m_DiaMeter, 270, 90)
.AddLine(_Rect.X + _Rect.Width, _Rect.Y + _Radius, _Rect.X + _Rect.Width, _Rect.Y + _Rect.Height - m_DiaMeter)
.AddArc(_Rect.X + _Rect.Width - m_DiaMeter, _Rect.Y + _Rect.Height - m_DiaMeter, m_DiaMeter, m_DiaMeter, 0, 90)
.AddLine(_Rect.X + _Rect.Width - m_DiaMeter, _Rect.Y + _Rect.Height, _Rect.X + _Radius, _Rect.Y + _Rect.Height)
.AddArc(_Rect.X, _Rect.Y + _Rect.Height - m_DiaMeter, m_DiaMeter, m_DiaMeter, 90, 90)
.AddLine(_Rect.X, _Rect.Y + _Rect.Height - m_DiaMeter, _Rect.X, _Rect.Y + _Radius)
.AddArc(_Rect.X, _Rect.Y, m_DiaMeter, m_DiaMeter, 180, 90)
End If
.CloseFigure()
End With
Return m_GraphicsPath
End Function
Protected Function GetBinaryValues(ByVal _Hours As Integer, ByVal _Minutes As Integer, ByVal _Seconds As Integer) As List(Of Boolean)
Dim m_Value As New List(Of Boolean)
If _Hours < 12 And _Hours > 0 Then
m_Value.Add(True)
Else
m_Value.Add(False)
End If
For i As Int32 = 0 To 2
Dim m_temp As String = String.Empty
Select Case i
Case 0
m_temp = Convert.ToString(_Hours, 2)
For j As Integer = (4 - m_temp.Length) To 0 Step -1
m_Value.Add(False)
Next
For j As Integer = 0 To m_temp.Length - 1 Step 1
m_Value.Add(m_temp.Substring(j, 1) = "1")
Next
Case 1
m_temp = Convert.ToString(_Minutes, 2)
For j As Integer = (5 - m_temp.Length) To 0 Step -1
m_Value.Add(False)
Next
For j As Integer = 0 To m_temp.Length - 1 Step 1
m_Value.Add(m_temp.Substring(j, 1) = "1")
Next
Case 2
m_temp = Convert.ToString(_Seconds, 2)
For j As Integer = (5 - m_temp.Length) To 0 Step -1
m_Value.Add(False)
Next
For j As Integer = 0 To m_temp.Length - 1 Step 1
m_Value.Add(m_temp.Substring(j, 1) = "1")
Next
End Select
Next
Return m_Value
End Function
Protected Sub CreateColorImage(ByVal _G As Graphics, ByVal _Rect As Rectangle, ByVal _CenterColor As Color, ByVal _SurroundColor As Color())
Dim m_GraphicsPath As New GraphicsPath
m_GraphicsPath.AddEllipse(_Rect)
Dim m_PGB As PathGradientBrush = New PathGradientBrush(m_GraphicsPath)
m_PGB.CenterColor = _CenterColor
m_PGB.SurroundColors = _SurroundColor
m_PGB.CenterPoint = New Point(_Rect.X + CInt(_Rect.Width / 2), _Rect.Y + CInt(_Rect.Height / 3))
_G.FillEllipse(m_PGB, _Rect)
m_GraphicsPath.Dispose()
End Sub
#End Region
End Class

Cypress · 24. Juni 2014, 13:53

Eine möglich Lösung ist gut, ich finde, es ist so eigentlich die perfekte Lösung....
Einfach nur geil

//EDIT: Post #1 wurde mit Code und Datein Aktualisiert

00yoshi · 14. August 2014, 03:37

Ich sehe, dass die Kreise vom Roten ins Weiße übergehen, du könntest statt weiß einfach Transparent nehmen und dann das mit graphics.drawimage auf n hintergrund klatschen.

Cypress · 15. August 2014, 08:45

Ne die farbüberläufe sind ja einstellbar, du kannst jede Farbe einstellen. Ob von Grün ins weiß oder du kannst auch pink und lila nehmen

im ersten Post wurde des komplette Programm nochmal neu geladen

Control BinärUhr

VB.NET-Quellcode

VB.NET-Quellcode

Cypress schrieb:

VB.NET-Quellcode

Cypress schrieb:

VB.NET-Quellcode

Benutzer online 1

Ähnliche Themen

10 Benutzer haben hier geschrieben