Farbverlauf     Zurück

Dieses Miniprogramm zeigt einen Bildschirm mit Farbverlauf einer Farbe. Es sind Farbverläufe verschiedener Farben möglich. Sie eignen sich schön für den Hintergrund eigener Programme und werden bereits beim Start geladen.

Die Programmierung erfolgt beim Laden der Form . Es können verschiedene Farben eingestellt werden.

• Blau RGB(0, 0, i)

• Rot RGB(i, 0, 0)

• Grün RGB(0, i, 0)

• Gelb RGB(i, i, 0)

• Lila RGB(i, 0, i)

• Türkis RGB(0, i, i)

• Grau RGB(i, i, i)

Sie brauchen eine DrawingArea auf Ihrer Form, um das Programm in Gang zu bringen .

Programmcode:

PUBLIC SUB Form_Open()

r AS Integer

g AS Integer

b AS Integer

h AS Integer

he AS Integer

sHex AS String

r = 0

g = 0

FOR b = 0 TO 255

sHEX = Hex$(r,2) & Hex$(g,2) & Hex$(b,2)

sHEX = "&H" & sHEX & "&"

Draw.begin(DrawingArea1)

Draw.Forecolor= Val(sHEX)

Draw.LineWidth=5

he = DrawingArea1.Height

h = he * b \ 255

Draw.Line(0, h, DrawingArea1.Width, h)

Draw.End

NEXT

END

So geht es

Markieren sie den obigen roten Code mit der Maus. Kopieren Sie ihn in den Zwischenspeicher mit Strg C. Starten Sie ihr Gambas. Starten Sie ein neues Projekt und holen Sie sich eine neue Form . Klicken Sie in die Form . Kopieren Sie den Code mit Strg V in das Unterprogramm der Form und starten Sie das Programm mit F 5.

Sie brauchen eine DrawingArea auf Ihrer Form, um das Programm in Gang zu bringen

Verbesserung mit Resize

Wenn Sie Ihrem Code noch folgendes Unterprogramm hinzufügen , dann passt sich die DrawingArea1 immer der Größe der Form an.

Wenn sie die Border Eigenschaft der Form noch auf Resizeable einstellen, wird das ganze perfekt.

PUBLIC SUB Form_Resize()

DrawingArea1.Move(0, 0, ME.ClientWidth, ME.ClientHeight)

END