kemudian pilih STANDARD EXE
Maka akan muncul form1.isi dengan menggunakan label,textbox dan command button
kemudian rancang form nya seperti berikut atau terserah anda
untuk textbox1 = nik
textbox2 = nama
command2 = close
kemudian double klik pada command lihat buat listing code seperti berikut
Private Sub lihat_Click()
MsgBox "nik saya " + nik.Text
MsgBox "nama saya" + nama.Text
End Sub
msgbox disini akan memunculkan kotak dialog dengan isi dialog yang berada didalam tanda petik di ikuti dengan text yang dituliskan di textbox nik begitu juga dengan textbox nama
untuk button close isi dengan listing berikut
Private Sub close_Click()
p = MsgBox("apakah anda yakin ingin keluar...?", vbQuestion, "informasi")
If p = vbOK Then
Unload Me
End If
End Sub
jika kita klik close maka akan muncul message box dan selalu diingat setiap penggunaan if harus diakhiri dengan end if
Tidak ada komentar:
Posting Komentar