Kleuren: voorbeeldproject

We gaan dit formulier een willekeurige kleur geven, en tonen welke kleur dat is.
Plaats op een formulier twee knoppen: cmdQB (Willekeurige QBColor) en cmdRGB (Willekeurige RGB).
Achter cmdQB zetten we de volgende code:
Dim kl As Integer
kl = Int(Rnd * 16)
Form1.BackColor = QBColor(kl)
Form1.Caption = "QB " & kl
Achter cmdRGB plaatsen we de code:
Dim rood As Integer
Dim groen As Integer
Dim blauw As Integer
rood = Int(Rnd * 256)
groen = Int(Rnd * 256)
blauw = Int(Rnd * 256)
Form1.BackColor = RGB(rood, groen, blauw)
Form1.Caption = "rood: " & rood & " groen: " & groen & " blauw: " & blauw
Je kan dit project downloaden.