Fungsi QBColor

Penting: Artikel ini adalah terjemahan mesin, lihat penafian. Temukan versi bahasa Inggris artikel di sini sebagai rujukan Anda.

Mengembalikan lama yang mewakili kode warna RGB yang terkait dengan angka tertentu warna.

Sintaks

QBColor ( color )

Diperlukan warnaargumen adalah bilangan bulat dalam rentang 0-15.

Pengaturan

Argumen warna memiliki pengaturan ini:

Angka

Warna

Angka

Warna

0

[Hitam]

8

Abu-abu

1

Biru

9

Biru muda

2

Hijau

10

Berwarna hijau

3

Sian

11

Warna biru muda

4

Merah

12

Warna merah muda

5

Magenta

13

Magenta ringan

6

Kuning

14

Ringan kuning

7

Putih

15

Putih cerah


Keterangan

Argumen warna menyatakan nilai warna yang digunakan oleh versi yang lebih lama dasar (seperti Microsoft Visual Basic untuk MS-DOS dan kompilator dasar). Memulai dengan byte signifikan terkecil, nilai yang dikembalikan menentukan merah, hijau, biru nilai dan digunakan untuk menentukan warna sesuai dalam sistem RGB yang digunakan oleh Visual Basic for Applications.

Contoh

Catatan: Contoh yang mengikuti demonstrasi penggunaan fungsi ini dalam modul Visual Basic for Applications (VBA). Untuk informasi selengkapnya tentang bekerja dengan VBA, pilih Referensi Pengembang di daftar turun bawah di samping Cari dan masukkan satu istilah atau lebih di kotak pencarian.

Contoh ini menggunakan fungsi QBColor untuk mengubah properti formulir yang diberikan di sebagai MyForm ke warna yang ditunjukkan dengan ColorCodeWarnabelakang . QBColor menerima nilai bilangan bulat antara 0 dan 15.

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

Catatan: Penafian Terjemahan Mesin: Artikel ini telah diterjemahan oleh sistem komputer tanpa campur tangan manusia. Microsoft menawarkan terjemahan mesin ini untuk membantu pengguna yang bukan penutur bahasa Inggris agar dapat menikmati konten tentang produk, layanan, dan teknologi Microsoft. Karena artikel ini diterjemahkan oleh mesin, mungkin akan terdapat kesalahan kosa kata, sintaksis, atau tata bahasa.

Kembangkan keterampilan Anda
Jelajahi pelatihan
Dapatkan fitur baru terlebih dahulu
Gabung ke Office Insiders

Apakah informasi ini bermanfaat?

Terima kasih atas umpan balik Anda!

Terima kasih atas umpan balik Anda! Sepertinya menghubungkan Anda ke salah satu agen dukungan Office kami akan sangat membantu.

×