Internet Beritaku: Visual Basic
Tampilkan postingan dengan label Visual Basic. Tampilkan semua postingan
Tampilkan postingan dengan label Visual Basic. Tampilkan semua postingan

Senin, 15 Agustus 2011

Selasa, 10 Mei 2011

Membuat pilihan Warna Tulisan dengan OptionButton VB 6



-----------------------------------------------------------------------------------------------
Private Sub Command1_Click()
End
End Sub
-----------------------------------------------------------------------------------------------
Private Sub Option1_Click(Index As Integer)
Label1.ForeColor = vbRed
End Sub
-----------------------------------------------------------------------------------------------
Private Sub Option2_Click()
Label1.ForeColor = vbYellow
End Sub
-----------------------------------------------------------------------------------------------
Private Sub Option3_Click()
Label1.ForeColor = vbGreen
End Sub
-----------------------------------------------------------------------------------------------
Private Sub Option4_Click()
Label1.ForeColor = vbWhite
End Sub
-----------------------------------------------------------------------------------------------
Private Sub Option5_Click()
Label1.ForeColor = vbBlue
End Sub

-----------------------------------------------------------------------------------------------
Private Sub Option6_Click()
Label1.ForeColor = vbBlack
End Sub
----------------------------------------------------------------------------------------------

Senin, 07 Februari 2011

Visual Basic 6.0 ( Aplikasi menampilkan image dengan checkbox )

1. Form

2. Listing

Kunjungi juga channel video youtube saya : KLIK DISINI
atau Klik tombol Subscribe dibawah.
I.A.H Channel on Youtube
I.A.H Channel
Subscribe

Visual Basic 6.0 (Option pilihan warna berbeda)


__________________________________________________________________________________

Private Sub Command1_Click()
End
End Sub
Private Sub Option1_Click(Index As Integer)
Label1.ForeColor = vbRed
End Sub
Private Sub Option2_Click()
Label1.ForeColor = vbYellow
End Sub
Private Sub Option3_Click()
Label1.ForeColor = vbGreen
End Sub
Private Sub Option4_Click()
Label1.ForeColor = vbWhite
End Sub
Private Sub Option5_Click()
Label1.ForeColor = vbBlue
End Sub
Private Sub Option6_Click()
Label1.ForeColor = vbBlack
End Sub