Sabtu, 06 Juni 2009

Tombol Enter pada TextBox

Diposting oleh Dirman di 19.48 . Sabtu, 06 Juni 2009
Label:

Private Sub TNama_KeyPress(KeyAscii As Integer)
enterin KeyAscii
End Sub

Public Function enterin(Q1 As Integer)
If Q1 = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If
End Function

0 komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)