Cara Merubah Warna Tulisan dan Bold Italic Underline

Pengembangan dari artikel sebelumnya tentang Menampilkan Tulisan di Label kali ini merubah tulisan itu dengan Bold Italic dan Underline. Tulisan itu juga bisa dirubah warna sesuai keinginan kita. Program ini juga bisa digunakan untuk dasar membuat sebuah Notepad pada Visual Basic. Berikut tampilannya

 

Dari form diatas sama seperti artikel sebelumnya, hanya ada tambahan pada pilihan property seperti warna dan miring tebal. Pilihan properti itu juga bisa ditambahkan sesuai apa yang kita buat. Dasar Membuat Notepad. Untuk menambahkan tampilan "Pilihan Property" menggunakan menu frame pada Visual Basic. Untuk Sourcode nya bisa di kopy disini.

==================================================

Private Sub Check1_Click()
Label2.FontItalic = Check1.Value
End Sub

Private Sub Check2_Click()
Label2.FontBold = Check2.Value
End Sub

Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub

Private Sub Command2_Click()
Label2.Caption = ""
Text1.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Option1_Click()
Label2.ForeColor = vbRed
End Sub

Private Sub Option2_Click()
Label2.ForeColor = vbBlue
End Sub

==================================================

Penjelasan Program :

Private Sub Check1_Click() // Perintah untuk sub check1 "Italic"
Label2.FontItalic = Check1.Value // Tulisan pada label2 berubah mode Italic
End Sub // End

Private Sub Check2_Click() // Perintah sub check2 "Bold"
Label2.FontBold = Check2.Value // Tulisan pada label2 berubah mode Bold
End Sub // End

Private Sub Command1_Click() // Perintah untuk command1 "Ok"
Label2.Caption = Text1.Text // Data yang di input pada text1 = ditampilkan pada label2
End Sub // End

Private Sub Command2_Click() // Perintah untuk command2 "Clear"
Label2.Caption = "" // Label2 menampilkan kosong
Text1.Text = "" // Text1 menampilkan kosong
End Sub // End

Private Sub Command3_Click() // Perintah untuk command3 "keluar"
End // Berhenti Program
End Sub // End

Private Sub Option1_Click() // Perintah untuk option1 "Merah"
Label2.ForeColor = vbRed // Tulisan Label2 berwarna Merah
End Sub // End

Private Sub Option2_Click() // Perintah untuk option "Biru"
Label2.ForeColor = vbBlue // Tulisan label2 berubah warna biru
End Sub // End

 

Program tersebut bisa ditambah dengan option Underline dengan menuliskan perintah :

Label2.FontUnderline = Check3.Value

Dan juga bisa ditambahkan menu pilihan warna. Note : jangan lupa menulis program dengan menambahkan tampilan di VB nya.

Contoh Hasil :

Sekian artikel sederhana tentang Merubah Warna Tulisan dan Mode Tulisan by Ajifahreza.com Semoga bisa dikembangkan. meskipun sederhana hal yang penting bisa berbagi ilmu.

• Merubah Warna Tulisan
• Merubah Mode Tulisan
• Membuat Tulisan Bold Underline Italic
• Dasar Membuat Notepad