Farbwechel
- VB.NET
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 10 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.
-
-
-
-
-
-
-
Georg.kremer schrieb:
Sorry das ich so unvollständig schreibe, bin nur gestresst in der letzen zeit.
However: Möglich ist es mit WPF, ob es für dich möglich ist, da bin ich mir nicht sicher, gerade wenn du zur Zeit so "gestresst" bist. -
Das ganze geht auch ranzig mit Win-Forms:
VB.NET-Quellcode
- private void timer1_Tick(object sender, EventArgs e)
- {
- Intervall ist 100
- int r = this.BackColor.R;
- int g = this.BackColor.G;
- int b = this.BackColor.B;
- int r1 = rnd.Next(1, 10);
- int r2 = rnd.Next(1, 10);
- int r3 = rnd.Next(1, 10);
- if (rnd.Next(0, 2) > 0) { if (!(r + r1 > 255)) { r += r1; } } else { if (!(r - r1 < 0)) { r -= r1; } }
- if (rnd.Next(0, 2) > 0) { if (!(g + r2 > 255)) { g += r2; } } else { if (!(g - r2 < 0)) { g -= r2; } }
- if (rnd.Next(0, 2) > 0) { if (!(b + r3 > 255)) { b += r3; } } else { if (!(b - r3 < 0)) { b -= r3; } }
- this.BackColor = Color.FromArgb(255,r,g,b);
- }
Sieht dann zwar nicht wirklich toll aus, aber das sei dir überlassen. -
Sowas geht mit WinForms aber auch (sofern ich das richtig verstanden habe)
VB.NET-Quellcode
- Public Class SpezialPanel
- Inherits Panel
- Private _ColorA As Color = Color.Red
- Private _ColorB As Color = Color.Blue
- Public Property ColorA As Color
- Get
- Return _ColorA
- End Get
- Set(ByVal value As Color)
- _ColorA = value
- Me.Invalidate()
- End Set
- End Property
- Public Property ColorB As Color
- Get
- Return _ColorB
- End Get
- Set(ByVal value As Color)
- _ColorB = value
- Me.Invalidate()
- End Set
- End Property
- Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
- Dim brs As New Drawing2D.LinearGradientBrush(New Point(0, 0), New Point(Me.Width, Me.Height), ColorA, ColorB)
- e.Graphics.FillRectangle(brs, 0, 0, Width, Height)
- End Sub
- End Class
Einfügen, Programm einmal ausführen und schon ist der SpezialPanel in der Toolbox zu finden. -
-
@Georg.kremer:: Gugst Du hier.Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch
Ein guter .NET-Snippetkonverter (der ist verfügbar).
Programmierfragen über PN / Konversation werden ignoriert!
-
7 Benutzer haben hier geschrieben
- Gast (5)
- RodFromGermany (1)
- nafets (1)
- Myrax (1)
- Gather (1)
- FunnySunny (1)
- BradApfel (1)