Buka program VB, kemudian buat project dengan formasi tool dan properties seperti gambar.
Kemudian, masukkan koding berikut dengan cara double-click salah satu Command Button untuk masuk ke jendela kode.
Private Sub Command1_Click()
Label1.ForeColor = &H404040
End Sub
Private Sub Command2_Click()
Label1.ForeColor = &HC00000
End Sub
Private Sub Command3_Click()
Label1.FontItalic = True
End Sub
Private Sub Command4_Click()
Label1.FontItalic = False
End Sub
Private Sub Command5_Click()
Label1.FontBold = True
End Sub
Private Sub Command6_Click()
Label1.FontBold = False
End Sub
Private Sub Command7_Click()
Label1.Visible = True
End Sub
Private Sub Command8_Click()
Label1.Visible = False
End Sub
Setelah itu, aktifkan program dengan menekan tombol "start" di tool bar, sehingga muncul layar dengan tampilan berikut.
Tulisan "MICROSOFT VISUAL BASIC" tersebut telah diedit dengan menekan tombol "Blue", "Italic", dan "Unbold".
Catatan :
Untuk mencari kode warna yang diinginkan, anda bisa copy paste dari property salah satu tool, yaitu Forecolor atau Fillcolor. Tentukan warna, maka akan muncul kode misalnya seperti "&H00000000&" untuk warna hitam.
Perhatikan gambar agar lebih jelas.
Di Forecolor, pilih menu dropdown, kemudian pilih Palette (disamping System), lalu pilih warna |
Misalnya warna merah. Copy code yang di drag tersebut kemudian paste di kode editor |
Jika ada permasalahan, silahkan komentarnya dibawah....
Tidak ada komentar:
Posting Komentar