Fungsi QBColor

Penting: Artikel ini diterjemahkan oleh mesin, lihatlah notis penafian. Sila dapatkan versi Bahasa Inggeris artikel ini di sini sebagai rujukan anda

Mengembalikan panjang yang mewakili kod warna RGB yang sepadan dengan nombor warna yang ditentukan.

Sintaks

QBColor ( color )

Diperlukan warnaargumen merupakan nombor bulat dalam julat 0-15.

Seting

Argumen warna mempunyai seting ini:

Nombor

Warna

Nombor

Warna

0

Hitam

8

Kelabu

1

Biru

9

Biru

2

Hijau

10

Ringan hijau

3

Cyan

11

Cyan ringan

4

Merah

12

Merah muda

5

Magenta

13

Magenta ringan

6

Kuning

14

Kuning

7

Putih

15

Putih cerah


Catatan

Argumen warna mewakili nilai warna yang digunakan oleh versi terdahulu asas (seperti Microsoft Visual Basic untuk MS-DOS dan pengkompil asas). Bermula dengan yang paling penting, nilai yang dikembalikan menentukan merah, hijau, biru nilai dan digunakan untuk mengesetkan warna yang sesuai dalam sistem RGB yang digunakan oleh Visual Basic for Applications.

Contoh

Nota: Contoh berikut menunjukkan penggunaan fungsi ini dalam Visual Basic for Applications (VBA) modul. Untuk maklumat lanjut tentang bekerja dengan VBA, pilih Rujukan pembangun dalam senarai juntai bawah di sebelah Cari dan memasukkan satu atau lebih istilah dalam kotak carian.

Contoh ini menggunakan fungsi QBColor untuk mengubah sifat Warnalatar borang yang dihantar sebagai MyForm kepada warna yang ditunjukkan oleh ColorCode. QBColor menerima integer nilai antara 0 dan 15.

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

Nota: Notis Penafian Penterjemahan Mesin: Artikel ini telah diterjemah oleh sistem komputer tanpa campur tangan manusia. Microsoft menawarkan penterjemahan mesin ini untuk membantu pengguna-pengguna yang tidak bertutur dalam Bahasa Inggeris supaya dapat menikmati kandungan mengenai produk, perkhidmatan dan teknologi Microsoft. Artikel ini mungkin mengandungi ralat perbendaharaan kata, sintaks atau tatabahasa kerana ia diterjemahkan oleh mesin.

Kembangkan kemahiran anda
Jelajahi latihan
Dapatkan ciri baru terlebih dahulu
Sertai Office Insiders

Adakah maklumat ini membantu?

Terima kasih atas maklum balas anda!

Terima kasih atas maklum balas anda! Nampaknya ia mungkin akan membantu untuk menyambungkan anda kepada salah seorang daripada ejen sokongan Office kami.

×