Funkcija QBColor

Svarīgi! :  Šis raksts ir mašīntulkots, skatiet atrunu. Lūdzu, skatiet šī raksta versiju angļu valodā šeit jūsu informācijai.

Atgriež ilgi, kas pārstāv RGB krāsu kodu, kas atbilst norādītā krāsu skaita.

Sintakse

QBColor ( color )

Nepieciešamo krāsuarguments ir vesels skaitlis diapazonā no 0-15.

Iestatījumi

Krāsu arguments ir šos iestatījumus:

Skaits

Krāsa

Skaits

Krāsa

0

Melns

8

Pelēks

1

Zila

9

Gaiši zilā krāsā

2.

Zaļa

10

Gaiši zaļš

3

Ciāna

11

Light Cyan

4

Simbola ievietošana

12

Gaiši sarkana

5

Fuksīna

13

Gaiši fuksīna

6

Dzeltena

14

Gaiši dzeltens

7

Balts

15

Spilgti balta


Piezīmes

Argumenta krāsa apzīmē krāsu vērtības, ko izmanto vecākas versijas pamata (piemēram, Microsoft Visual Basic for MS-DOS un pamata kompilatora). Sākot ar vismaz nozīmīgais baits, atgriezto vērtību norāda sarkanu, zaļu un zilu vērtības tiek izmantota, lai iestatītu atbilstošu krāsu RGB sistēmā, ko izmanto Visual Basic for Applications.

Piemērs.

Piezīme : Turpmākajos piemēros redzama šīs funkcijas izmantošana Visual Basic for Applications (VBA) modulī. Lai iegūtu papildinformāciju par darbu ar VBA, nolaižamajā sarakstā atlasiet Uzziņas materiāli izstrādātājiem blakus meklēšanas lodziņam un ievadiet šajā lodziņā vienu vai vairākus vārdus.

Šajā piemērā izmantota funkcija QBColor jāmaina rekvizīts BackColor veidlapas nodot programmā kā MyForm norāda ColorCodekrāsu. QBColor akceptē vērtības vesels skaitlis diapazonā no 0 līdz 15.

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

Piezīme : Mašīntulkošanas atruna. Šo rakstu ir tulkojusi datorsistēma bez cilvēka iejaukšanās. Microsoft piedāvā šos mašīntulkojumus, lai palīdzētu angliski nerunājošajiem lietotājiem izmanot saturu par Microsoft produktiem, pakalpojumiem un tehnoloģijām. Tā kā šis raksts ir mašīntulkots, tajā var būt leksikas, sintakses un gramatikas kļūdas.

Paplašiniet savas prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Office Insider programmai

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!

Paldies par atsauksmēm! Šķiet, ka varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta aģentiem.

×