Returnerer en Langt heltal, der repræsenterer den RGB-farvekode, der svarer til det angivne farvetal.
Syntaks
QBColor(farve)
Det påkrævede farveargumenter et helt tal i området 0-15.
Indstillinger
Farveargumentet har disse indstillinger:
| Tal | Farve | Tal | Farve |
|---|---|---|---|
| 0 | [Sort] | 8 | Grå |
| 1 | Blå | 9 | Lyseblå |
| 2 | Grøn | 10 | Lysegrøn |
| 3 | Cyan | 11 | Lys cyan |
| 4 | Rød | 12 | Lys rød |
| 5 | Magenta | 13 | Lys magenta |
| 6 | Gul | 14 | Lysegul |
| 7 | Hvid | 15 | Lyst hvidt |
Bemærkninger
Argumentet farve repræsenterer farveværdier, der bruges i tidligere versioner af Basic (f.eks. Microsoft Visual Basic for MS-DOS og Basic Compiler). Fra og med den mindst betydningsfulde byte angiver den returnerede værdi de røde, grønne og blå værdier, der bruges til at angive den relevante farve i RGB-systemet, der bruges af Visual Basic for Applications.
Eksempel
Bemærk
Følgende eksempler demonstrerer brugen af denne funktion i et VBA-modul (Visual Basic for Applications). Hvis du vil have mere at vide om at arbejde med VBA, skal du vælge Udviklerreference på rullelisten ud for Søg og skrive ét eller flere ord i søgefeltet.
I dette eksempel bruges funktionen QBColor til at ændre egenskaben Baggrundsfarve for den formular, der overføres til den farve, der MyForm er angivet af ColorCode.
QBColor accepterer heltalsværdier mellem 0 og 15.
Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub