PROGRAM 2 DATA MAHASISWA MENGGUNAKAN ENTER


PROGRAM 2
Private Sub Cmdbatal_Click()
Txtnpm = ""
txtnama = ""
txtalamat = ""
Txtnpm.SetFocus 
End Sub

Private Sub Cmdlagi_Click()
Txtnpm = ""
txtnama = ""
txtalamat = ""
txtnama.SetFocus
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
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

Postingan populer dari blog ini

Tutorial

Teknologi Yang Akan Menjadi Tren Di Tahun 2017

STMIK PRINGSEWU GELAR UPACARA HARI SUMPAH PEMUDA YANG KE 89 BERSAMA MENWA, BEM SERTA MAHASISWA