Cry Ant Crew
Would you like to react to this message? Create an account in a few clicks or log in to continue.


We are Just Computer Freaker
 
IndeksPencarianLatest imagesPendaftaranLogin
Login
Username:
Password:
Login otomatis: 
:: Lupa password?

 

 Menampilkan Karakter dalam Warna Berbeda

Go down 
PengirimMessage
Mhc_Shadow
Neophyte
Neophyte



Jumlah posting : 156
Join date : 10.04.11

Menampilkan Karakter dalam Warna Berbeda Empty
PostSubyek: Menampilkan Karakter dalam Warna Berbeda   Menampilkan Karakter dalam Warna Berbeda EmptySat 8 Feb 2014 - 14:47

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
Kembali Ke Atas Go down
 
Menampilkan Karakter dalam Warna Berbeda
Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» Cara Menampilkan Status Off/Online Yahoo Messenger
» Cara mengubah warna CMD
» Undo di dalam Text Box
» Tandai semua character di dalam textbox
» Kumpulan Lagu Mozart Untuk Bayi Dalam Kandungan

Permissions in this forum:Anda tidak dapat menjawab topik
Cry Ant Crew :: Information Technology :: Programming :: Visual Basic-
Navigasi: