PENGENALAN WARNA DAN TULISAN PADA VISUAL BASIC

Tampilannya sebagai berikut :

 

Ketentuan Soal :

1.       1. Pada saat form  di jalankan tampilan background berwarna biru kemudian textbox dengan pengaturan warna &HFFFF80

2.       2. Pada saat dipilih option warna, tulisannya akan mengikuti optionnya.

3.        3. Pada saat tombol hapus diklik maka akan  di textboxnya akan dihapus, optionnya akan kembali normal

4.       4. Klik tombol keluar maka akan keluar dari form

Listing codenya adalah :

Private Sub biru_Click()

Txthasil.ForeColor = vbBlue

kuning.Value = False

merah.Value = False

End Sub

  

Private Sub bold_Click()

Txthasil.FontBold = True

Txthasil.FontUnderline = False

Txthasil.FontItalic = False

End Sub

Private Sub Cmdhapus_Click()

Txthasil.Text = ""

kuning.Value = False

merah.Value = False

biru.Value = False

bold.Value = False

italic.Value = False

underline = False

Txthasil.SetFocus

End Sub

Private Sub Cmdkeluar_Click()

b = MsgBox("yakin nih mau keluar?", vbquetion + vbYesNo, "komfirmasi")

If b = vbYes Then

End

Else

MsgBox "gak jd y!!!"

End If

End Sub

Private Sub Form_Activate()

Form2.BackColor = vbBlue

Txthasil.BackColor = &HFFFF80

End Sub

Private Sub italic_Click()

Txthasil.FontBold = False

Txthasil.FontUnderline = False

Txthasil.FontItalic = True

End Sub

Private Sub kuning_Click()

Txthasil.ForeColor = vbYellow

biru.Value = False

merah.Value = False

End Sub

Private Sub merah_Click()

Txthasil.ForeColor = vbRed

kuning.Value = False

biru.Value = False

End Sub

Private Sub underline_Click()

Txthasil.FontBold = False

Txthasil.FontUnderline = True

Txthasil.FontItalic = False

End Sub

Program lainnya :
Program kalkulator sederhana pada vb 
program data nilai sederhana 

Posted in: contoh program