Funktionen QBColor

Vigtigt: Denne artikel er maskinoversat. Se ansvarsfraskrivelsen. Du kan finde den engelske version af denne artikel her til din orientering.

Returnerer en langt heltal, der repræsenterer den RGB-farvekode, der svarer til det angivne farve tal.

Syntaks

QBColor ( color )

Det obligatoriske argumentfarve er et heltal i området 0-15.

Indstillinger

Argumentet farve har følgende indstillinger:

Nummer

Farve

Nummer

Farve

0

Sort

8

Grå

1

Blå

9

Lyseblå

2

Grøn

10

Pastelgrøn

3

Cyan

11

Lys cyan

4

Rød

12

Lyserød

5

Magenta

13

Rosa

6

Gul

14

Lysegul

7

Hvid

15

Højhvid


Bemærkninger

Argumentet farve repræsenterer farveværdier, der benyttes i tidligere versioner af Basic (f.eks. Microsoft Visual Basic for MS-DOS og Basic Compiler). Startende med den mindst vigtige byte angiver den returnerede værdi de røde, grønne og blå værdier, der bruges til at fastsætte den ønskede farve i det RGB-system, 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 en formular, der er givet som MyForm, til den farve, som er angivet med ColorCode. QBColor accepterer heltalsværdier mellem 0 og 15.

Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub

Bemærk: Ansvarsfraskrivelse for maskinoversættelse: Denne artikel er blevet oversat af et computersystem uden menneskelig indgriben. Microsoft tilbyder disse maskinoversættelse for at hjælpe ikke-engelsktalende brugere til at kunne nyde indhold om Microsofts produkter, tjenester og teknologier. Da artiklen er maskinoversat, kan den indeholde forkerte ord eller syntaks- eller grammatikfejl.

Del Facebook Facebook Twitter Twitter Mail Mail

Var disse oplysninger nyttige?

Fantastisk! Har du mere feedback?

Hvordan kan vi forbedre det?

Tak for din feedback!

×