Membuat Tombol Button

Untuk membuat tombol button yang pertama kita lakukan adalah kita klik pada tolls sebelah pojok kiri dengan nama Commend Button lalu kita geser ke dalam tabel form dan jangan lupa pada caption pada pojok kanan ganti namanya dengan bangun datar sehingga seperti gambar berikut ini :

Apabila kita ingin menglinkkan ke form 2 atau ke form lainnya maka kita klik 2x misalnya pada tombol bangun datar kita link ke form 2 maka kita gunakan perintah sebagai berikut :
Private Sub datar_Click()
Form2.Show
End Sub

Selanjutnya kita buat agar form 1 di klik maka akan lanjut ke form 2 dan form 1 tersebut tidak kelihatan maka kita klik 2x pada form 2 dan ketikkan perintah seperti di bawah ini :
Private Sub Form_Load()
Form1.Visible = False
End Sub

Sedangkan bangun ruang perintahnya sama dengan yang di atas, dan tombol keluar kita klik 2x dan ketikan perintah sebagai berikut :
Private Sub keluar_Click()
exit()
End Sub

0 komentar: