Jumat, 11 Januari 2013

pengenalan form

langkah awal membuat form adalah dengan klik FILE->NEW PROJECT
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 
beri nama pada text melalui properties
untuk textbox1 = nik
          textbox2 = nama
          command1 = lihat
          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: