Menampilkan Karakter dalam Warna Berbeda

Displaying Characters in Different Colors

Dlm aplikasi ® Visual Basic, qta memiliki beberapa metode yang tersedia untuk menampilkan teks dicetak untuk pengguna Anda. Sebagai contoh, Anda dapat menggunakan properti Text dari kotak teks. Namun, teks yang ditampilkan dalam kotak teks terbatas pada warna tertentu. Artikel ini menunjukkan bagaimana teks dapat ditampilkan dengan sejumlah kombinasi warna.

Oleh karena itu, dengan menggunakan metode garis untuk menggambar teks pada bentuk, yang pada gilirannya menyebabkan warna menjadi pemicu, Anda dapat menampilkan teks dalam warna apapun yang Anda inginkan.

Metode Line digunakan untuk menggambar garis, kotak, dan mengisi kotak pada printer, Kotak Gambar, dan bentuk kontrol. Untuk menggambar garis, Anda menentukan posisi awal, posisi akhir, dan warna opsional untuk digunakan. The CurrentX dan CurrentY sifat dapat digunakan untuk mengatur atau mengambil posisi cetak saat ini dalam kontrol di mana pencetakan berlangsung.

Ketika menggambar teks ke kontrol, Anda harus terlebih dahulu menghitung ruang yang dibutuhkan untuk menggambar karakter. Anda melakukan ini dengan menggunakan TextWidth dan TextHeight metode. Setelah Anda telah menarik karakter pada kontrol dengan metode Line, maka Anda dapat menggunakan properti ForeColor untuk mengubah warna karakter ditarik.

Program contoh
Mengikuti program Visual Basic menampilkan huruf A-Z dalam warna yang berbeda pada bentuk program.

Code:

Sub Form_Paint()
Dim I As Integer, X As Integer, Y As Integer
Dim C As String
Cls
For I = 65 To 91
X = CurrentX
Y = CurrentY
C = Chr(I)
Line -(X + TextWidth(C), Y = TextHeight(C)), QBColor(Rnd * 16), BF
CurrentX = X
CurrentY = Y
ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
Print C;
Next
End Sub