Membuat Visual Basic Sederhana

lankah 1 :

Keterangan:
1. klik label pada icon label.
2. Kemudian klik pada lembar kerja VB.
2. kemudian di properties captionnya dirubah sesuai keinginan.



langkah ke 2:

keterangan:
1. klik text, caranya sama dengan yang langkah pertama.

langkah ke 3:

keterangan:
1. klik frame, captionnya dirubah sesuai keinginan.

langkah yang ke 4:

keterangan:
1. klik option kemudian klik pada lembar VB tepat pada tengah frame.
2. captinnya dirubah juga sesuai kenginan.

cara ke 5:

keterangan:
1. klik command pada icon, kemudian klik pada lembar kerja vb dan captionnya dirubah.

cara ke 6:

keterangn:
1. kik command lagi dan caranya masih tetap sama.
2. name di propertiesnya tidak boleh sama.
Cat:
jangan di copy paste biar codingnya tidak susah.

cara ke 7:

keterangan:
1. kik command lagi dan caranya masih tetap sama.

langkah ke 8:

keterangan:
1. caranya masih sama dengan yang di atas.

langkah ke 9:

keterangan:
1. klik image pada icon kemudian di klik pada lembar kerja VB.
2. jika ingin memunculkan gambar?pada menu properties klik"Picture" kemudian pilih gambar sesuai yang di inginkan.

itu semua cara membuat projectnya,kemudian kita teruskan dengan codingnya.
jika ingin mengkoding klik dua kali pada objectnya

coding:

Private Sub Command1_Click()
Label1.ForeColor = vbGreen
List1.ForeColor = vbGreen
End Sub

Private Sub Command2_Click()
Label1.ForeColor = vbYellow
List1.ForeColor = vbYellow
End Sub

Private Sub Command3_Click()
Label1.Caption = ""
List1.Clear
Option1.Value = False
Image1.Visible = False
End Sub

Private Sub Command4_Click()
Label1.Enabled = 1
List1.Enabled = 1
Frame1.Enabled = 1
Option1.Enabled = 1
Command1.Enabled = 1
Command2.Enabled = 1
Command3.Enabled = 1
Image1.Enabled = 1
End Sub

Private Sub Form_Load()
Label1.Enabled = 0
List1.Enabled = 0
Frame1.Enabled = 0
Option1.Enabled = 0
Command1.Enabled = 0
Command2.Enabled = 0
Command3.Enabled = 0
Image1.Visible = 0
End Sub


Private Sub Option1_Click()
Label1.Caption = "My Profil"
Label1.Alignment = vbCenter
List1.Clear
List1.AddItem "Nama : Sofiatul Kamila"
List1.AddItem "TTL : Bondowoso,11 September 1996"
List1.AddItem "Sekolah : SMKN 1 Bondowoso"
List1.AddItem "Jurusan : Rekayasa Perangkat Lunak"
Image1.Visible = 1
End Sub


SELAMAT MENCOBA

ingin download aplikasinya klik Kamila