Funkcija QBColor

Piezīme.: Mēs vēlamies sniegt jums visjaunāko palīdzības saturu jūsu valodā, cik vien ātri to varam. Šī lapa ir tulkota automatizēti, un tajā var būt gramatiskas kļūdas un neprecizitātes. Mūsu nolūks ir šo saturu padarīt jums noderīgu. Vai lapas lejasdaļā varat mums pavēstīt, vai informācija jums noderēja? Ērtai atsaucei šeit ir šis raksts angļu valodā.

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

Sintakse

QBColor ( krāsu )

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

Iestatījumi

Krāsu arguments ir šos iestatījumus:

Skaitlis

Krāsa

Skaitlis

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
Paplašiniet savas Office 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.

×