TUGAS 2 PROGRAM 2 BP1

-

Private Sub cmdbatal_Click()
txtnpm = ""
txtnama = ""
txtalamat = ""
txtnpm.SetFocus
End Sub


Private Sub cmdkeluar_Click()
Unload Me

End Sub

Private Sub cmdlagi_Click()
txtnpm = ""
txtnama = ""
txtalamat = ""
txtnpm.SetFocus
End Sub
Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtalamat.SetFocus
End If
End Sub

Private Sub txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnama.SetFocus
End If

End Sub

Komentar

Posting Komentar

Semoga bermanfaat

Postingan populer dari blog ini

STMIK PRINGSEWU GELAR PERLOMBAAN HUT RI KE-72

-
Gambar
Written by  admin   |   August 21, 2017   |   0 STMIK PRINGSEWU   – Dalam rangka memperingati HUT ke-72 Negara Kesatuan Republik Indonesia, Badan Eksekutif Mahasiswa Program Studi Sistem Informasi dan Manajemen Informatika STMIK Pringsewu melaksanakan kemeriahan Hut Kemerdekaan Ke 72 RI di Kampus STMIK Pringsewu, mahasiswa merayakan HUT Kemerdekaan ke 72 RI dengan cara menggelar bermacam lomba yang diikuti oleh mahasiswa STMIK Pringsewu dari prodi Sistem Informasi dan Manajemen Informatika, Senin (21/8) Perlombaan yang digelar di halaman kampus, merupakan tahap dari serangkaian kegiatan yang sudah direncanakan oleh Badan Eksekutif Mahasiswa, kegiatan perlombaan ini diharapakan dapat menjadi ajang silahturahmi antar mahasiswa. Perlombaan yang digelar di halaman kampus, merupakan tahap dari serangkaian kegiatan yang sudah direncanakan oleh Badan Eksekutif Mahasiswa, kegiatan perlombaan ini diharapakan dapat menjadi ajang silahturahmi antar mahasiswa. Acara berlangsung penu
Baca selengkapnya