Untuk tahap awal saya coba dengan membuat dulu formnya dan saya membuat formnya dengan tampilan seperti ini.
Form ini hanya memiliki 2 Label, 2 text box dan kemudian ditambah dengan 2 command button.
Untuk properties formnya saya sesuaikan seperti ini
Object | Name | Caption |
label1 | label1 | Nama |
label2 | label2 | Alamat |
text1 | Tnama | (kosongkan) |
text2 | Talamat | (Kosongkan) |
command1 | CView | View |
Command2 | Cexit | exit |
Untuk source codenya saya buat seperti berikut
Private Sub Cexit_Click()
pesan = MsgBox("Yakin Keluar Aplikasi??", vbQuestion + vbOKCancel, "Keluar")
If pesan = vbOK Then
End
End If
End Sub
Private Sub Cview_Click()
MsgBox "Nama Anda Adalah :" + Tnama
MsgBox "Alamat Anda Adalah :" + Talamat
End Sub
Jika form dijalankan maka hasilnya akan seperti berikut
Tombol View berfungsi untuk melihat hasil dari tampilan yang di input
Jika tombol keluar di klik maka akan tampil pesan sebagai berikut
Itulah contoh VB 6.0 yang saya bagikan hari ini..
Semoga bermanfaat.
ok makasih,berguna bgt buat tgas nihhh
BalasHapusSama-Sama terima kasih juga sudah berkunjung
BalasHapus