Ich habe den ganzen Thread geändert.
Also ich will das die Label1.Forecolor mit der Backgroundcolor von Form1 abgeglichen wird. Daher lese ich die Label1.ARGB und die Form1.ARBG werte aus.
Ich habe das ganze in eine While schleife gesetzt und will den effekt ausführen lassen. Jedoch gleicht er nach jedem Farbwechsel die farbe nicht ab sondern arbeitet alles durch und gibt dann die farbe weiter... Also werden die RGB (Rot Grün Blau) Anteile nicht nach und anch sondern ->Voll -> Nicht verändert. Was ist der Fehler ? Hoffe ich könnt mir helfen
Alles ist in einem Module in einer Public Function geschrieben daher seht ihr die Deklariation der einzelnen Farbanzeile (RGB) nicht. Da ich sie schon bei starten der Function von der Form1 übergebe.
Vielen Dank im voraus
Mfg Eragon
Also ich will das die Label1.Forecolor mit der Backgroundcolor von Form1 abgeglichen wird. Daher lese ich die Label1.ARGB und die Form1.ARBG werte aus.
Ich habe das ganze in eine While schleife gesetzt und will den effekt ausführen lassen. Jedoch gleicht er nach jedem Farbwechsel die farbe nicht ab sondern arbeitet alles durch und gibt dann die farbe weiter... Also werden die RGB (Rot Grün Blau) Anteile nicht nach und anch sondern ->Voll -> Nicht verändert. Was ist der Fehler ? Hoffe ich könnt mir helfen
Alles ist in einem Module in einer Public Function geschrieben daher seht ihr die Deklariation der einzelnen Farbanzeile (RGB) nicht. Da ich sie schon bei starten der Function von der Form1 übergebe.
VB.NET-Quellcode
- Dim ok As Integer = 0
- While ok = 0
- 'Hier werden die Farben abgeglichen wenn zuhoch dann - Wenn du niedrig dann + sonst Nichts
- If r > rr Then
- rr += i
- ElseIf r < rr Then
- rr -= i
- End If
- If g > gg Then
- gg += i
- ElseIf g < gg Then
- gg -= i
- End If
- If b > bb Then
- bb += i
- ElseIf b < bb Then
- bb -= i
- End If
- 'Hier bekommt das Label die Farbe
- Form1.Label1.ForeColor = Color.FromArgb(0, r, g, b)
- 'Wenn die Label & Form1backgroundcolor übereinstimmen unterbrich die While-schleife
- If gg = g Then
- If rr = r Then
- If bb = b Then
- ok = 1
- End If
- End If
- End If
- 'Mach eine kleine pause das mit der Effekt besser wirkt
- Threading.Thread.Sleep(10)
- End While
Vielen Dank im voraus
Mfg Eragon
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „eragon276“ ()