Kalau belum Mengerti Silahkan Kunjungi Link Berikut http://www.mpampam.tk/2015/04/vb-60-pengenalan-pemprograman-visual.html atau Download eBooknya Disini
Component yang kita Gunakan Adalah :
- Textbox
- Label
- Command Button
- Option Button
- ListBox
- Combobox
- CheckBox
- Frame
Langkah-Langkah :
- Buka Vb 6.0
- Pilih Standar.Exe
- Lalu masukkan Component yang Akan Di gunakan Seperti tampilan Berikut :
- Selanjutnya Silahkan ubah Objectnya Pada Properties Seperti Gambar Di Bawah
- Sekarang Proses Memasukkan Fungsi Pada Oject ..Masukkan Source Code berikut Pada Jendela Source Code ..
SourceCode
==========================================================
Private Sub Check1_Click()
If Check1.Value = vbChecked Then
Text3.FontBold = True
Else
Text3.FontBold = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = vbChecked Then
Text3.FontItalic = True
Else
Text3.FontItalic = False
End If
End Sub
Private Sub Combo1_Click()
If Combo1.Text = "8" Then
Text3.FontSize = 8
ElseIf Combo1.Text = "16" Then
Text3.FontSize = 16
ElseIf Combo1.Text = "20" Then
Text3.FontSize = 20
End If
End Sub
Private Sub Command1_Click()
Text3.Text = Text1.Text
End Sub
Private Sub Command2_Click()
Text3.Text = ""
Text1.Text = ""
End Sub
Private Sub Form_Load()
'isi pada combobox
Combo1.AddItem "8"
Combo1.AddItem "16"
Combo1.AddItem "20"
'isi pada list1
List1.AddItem "Arial"
List1.AddItem "MS Serif"
List1.AddItem "Parchment"
End Sub
Private Sub List1_Click()
If List1.Text = "Arial" Then
Text3.Font = "Arial"
ElseIf List1.Text = "MS Serif" Then
Text3.Font = "MS Serif"
ElseIf List1.Text = "Parchment" Then
Text3.Font = "Parchment"
End If
End Sub
Private Sub Option1_Click()
If Option1.Value = True Then
Text3.ForeColor = vbRed
End If
End Sub
Private Sub Option2_Click()
If Option2.Value = True Then
Text3.ForeColor = vbBlue
End If
End Sub
==========================================================
Hasil seperti Gambar Berikut :
6. Lalu Run Dan hasilnya sebagai Berikut :
Silahkan Download Projectnya :
Type : Rar
Size : 5kb
Post a Comment