Kode dimana ketika menuliskan pada textbox kemudian kita tekan enter lalu perintah yang diinginkan akan di execute.
berikut list kode nya :
berikut list kode nya :
--------------------------------------------------------------------
Private Sub Text1_KeyPress (KeyAscii As Integer)
If KeyAscii = 13 Then ' The ENTER key.
SendKeys "{tab}" ' Set focus ke control berikutnya
....' Masukkan kode yang diinginkan.
...
End If
End Sub
If KeyAscii = 13 Then ' The ENTER key.
SendKeys "{tab}" ' Set focus ke control berikutnya
....' Masukkan kode yang diinginkan.
...
End If
End Sub
Semoga bermanfaat :)
Tidak ada komentar:
Posting Komentar