PROGRAM 2 DATA MAHASISWA STMIK PRINGSEWU MENGGUNAKAN ENTER


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

PROGRAM 3.8 BP1

PROGRAM 2.6 BP1

PROGRAM 3.6 BP1