Tugas 2 Data Mahasiswa Menggunakan Keypress

Tugas 2 Data Mahasiswa Menggunakan Keypress

 

Berikut Source Codenya:

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 txtnpm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnama.SetFocus

End If

End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtalamat.SetFocus

End If

End Sub