Sistem Komputer: Tutorial Visual Basic (Membuat Teks Berwarna)

Membuat Teks Berwarna

1. Membuat tampilan aplikasi dengan menyusun beberapa Label, TextBox, CommandButton, Frame dan OptionButton seperti gambar di bawah ini:

2. Double klik pada CommandButton “OK” dan masukkan syntax:

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

3. Kemudian double klik pada CommandButton “Hapus” dan masukkan syntax:

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

4. Pada CommandButton “KELUAR” double klik dan masukkan syntax:

Private Sub Command3_Click()
End
End Sub

5. Double klik pada OptionButton “MERAH” dan masukkan syntax:

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

6. Double klik pada OptionButton “HIJAU” dan masukkan syntax:

Private Sub Option2_Click()
Label3.ForeColor = vbGreen
End Sub

7. Double klik pada OptionButton “KUNING” dan masukkan syntax:

Private Sub Option3_Click()
Label3.ForeColor = vbYellow
End Sub

8. Double klik pada OptionButton “BIRU” dan masukkan syntax:

Private Sub Option4_Click()
Label3.ForeColor = vbBlue
End Sub