tugas visual basic 2

Screenshot_3

Private Sub Command1_Click()
txtnpm.SetFocus
txtnpm = “”
txtnama = “”
txtalamat = “”
txtagama = “”
txtjenis = “”
txtayah = “”
txtibu = “”
txtpekerjaan = “”
End Sub

Private Sub Command2_Click()
txtnpm.SetFocus
txtnpm = “”
txtnama = “”
txtalamat = “”
txtagama = “”
txtjenis = “”
txtayah = “”
txtibu = “”
txtpekerjaan = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub txtagama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjenis.SetFocus
End If
End Sub

Private Sub txtalamat_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtagama.SetFocus
End If
End Sub

Private Sub txtayah_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtibu.SetFocus
End If
End Sub

Private Sub txtibu_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpekerjaan.SetFocus
End If
End Sub

Private Sub txtjenis_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtayah.SetFocus
End If
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

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s