Visual Basic ( Check box and Option box Activity )

 

Salam Hangat Sahabat Blogger

Posting x ini masih mengenai Visual Basic Programming,dimana kali ini saya akan memberikan postingan mengenai Chekc Box dan Option Box untuk menentukan sebuah warna sesuai dengan pilihan anda sebagai USER..

Semangat3x..

RezpeC N PeaCE !!!

CODE

Private Sub chkBlue_Click()
lblDisplay.Caption = "Blue"
End Sub

Private Sub chkGreen_Click()
lblDisplay.Caption = "Green"
End Sub

Private Sub chkRed_Click()
lblDisplay.Caption = "Red"
End Sub

Private Sub chkYellow_Click()
lblDisplay.Caption = "Yellow"
End Sub

Private Sub cmdDefault_Click()
lblDisplay.Caption = "Default"
lblDisplay.BackColor = &H0&
lblDisplay.ForeColor = &H8000000F
End Sub

Private Sub cmdExit_Click()
If MsgBox("Close Application?", vbQuestion + vbYesNo, "Confirm") = vbYes Then
    End
End If
End Sub

Private Sub Form_Load()
lblDisplay.Caption = "Default"
lblDisplay.BackColor = &H0&
lblDisplay.ForeColor = &H8000000F
End Sub

Private Sub optBlue_Click()
lblDisplay.BackColor = &HFF0000
End Sub

Private Sub optGreen_Click()
lblDisplay.BackColor = &HC000&
End Sub

Private Sub optRed_Click()
lblDisplay.BackColor = &HFF&
End Sub

Private Sub optYellow_Click()
lblDisplay.BackColor = &HFFFF&
End Sub

Ganti teks ini dengan informasi mengenai permalink atau apapun di sini.
<a href="http://baim-blogs.blogspot.com/2013/09/visual-basic-check-box-and-option-box.html">Visual Basic ( Check box and Option box Activity )</a>