Tipp 0096 Multi-Farbverlauf
Autor/Einsender:
Datum:
  Tobias Philipp
04.07.2001
Entwicklungsumgebung:   VB 6
In diesem Muli-Farbverlauf ist es möglich, einen Verlauf über alle 4 Ecken zu realisieren, der sich von den normalen Verläufen von oben nach unten, oder von links nach rechts unterscheidet.
 
Option Explicit

Private Sub cStart_Click()
  Dim rl As Long, gl As Long, bl As Long
  Dim rr As Long, gr As Long, br As Long
  Dim rz As Long, gz As Long, bz As Long
  Dim rk As Long, gk As Long, bk As Long
  Dim m As Long, i As Long, j As Long
  Dim r As Long, g As Long, b As Long

  cStart.Enabled = False

  m = 255

  rl = Abs(Val(tRed(0).Text)) Mod 256
  gl = Abs(Val(tGreen(0).Text)) Mod 256
  bl = Abs(Val(tBlue(0).Text)) Mod 256

  rr = Abs(Val(tRed(1).Text)) Mod 256
  gr = Abs(Val(tGreen(1).Text)) Mod 256
  br = Abs(Val(tBlue(1).Text)) Mod 256

  rz = Abs(Val(tRed(2).Text)) Mod 256
  gz = Abs(Val(tGreen(2).Text)) Mod 256
  bz = Abs(Val(tBlue(2).Text)) Mod 256

  rk = Abs(Val(tRed(3).Text)) Mod 256
  gk = Abs(Val(tGreen(3).Text)) Mod 256
  bk = Abs(Val(tBlue(3).Text)) Mod 256

  For i = 0 To m
    For j = 0 To m
      r = ((rl * (m - i) / m) + (rr * i / m)) * (m - j) / _
          m + ((rz * (m - i) / m) + (rk * i / m)) * j / m
      g = ((gl * (m - i) / m) + (gr * i / m)) * (m - j) / _
          m + ((gz * (m - i) / m) + (gk * i / m)) * j / m
      b = ((bl * (m - i) / m) + (br * i / m)) * (m - j) / _
          m + ((bz * (m - i) / m) + (bk * i / m)) * j / m
      pic.PSet (i, j), RGB(r, g, b)
    Next
    cStart.Caption = Str(i + 1) & "/255 ": cStart.Refresh
  Next

  cStart.Caption = "&Starten"
  cStart.Enabled = True
End Sub
 
Weitere Links zum Thema
Farbverläufe komfortabel erstellen

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (3,4 kB) Downloads bisher: [ 1845 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Freitag, 8. August 2011