Kl textbox yang multiline = true ( ini untuk textbox yang di set lebih dari 1 baris, missal untuk nulis keterangan ato alamat yang panjang.
Di procedure : keypress , pasang code ini :
If KeyAscii = 13 Then
SendKeys "{backspace}" è untuk membuang karakter enter
SendKeys "{tab}" è untuk meneruskan ke tabindex
selanjutnya
atau bisa langsung ditulis coding disini
End If
Coding juga bisa dipasang didalam if itu, atau bisa dipasang di losfocus.
Kl textbox nya tidak diset multiline=true , maka code nya hanya :
If KeyAscii = 13 Then
SendKeys "{tab}" è untuk meneruskan ke tabindex
selanjutnya
atau bisa langsung tulis coding disini
End If
Semoga sedikit membantu.
From: [email protected] [mailto:[email protected]]
On Behalf Of sodikin vk
Sent: 17 Nopember 2009 7:08
To: [email protected]
Subject: [Programmer-VB] Scrip code
Selamat pagi semuanya
Saya masih newbie di vb nih. Mau nanya bagaimana scrip codenya kalo setelah
mengisi textbox kemudian enter maka akan menjalankan scrip berikutnya. Kalo
di Access
Private Sub textbox_AfterUpdate()
End Sub
kalo di vb kok ngga bisa.
_____
Get
<http://sg.rd.yahoo.com/aa/mail/domainchoice/mail/signature/*http:/mail.prom
otions.yahoo.com/newdomains/aa/> your preferred Email name!
Now you can @ymail.com and @rocketmail.com.
<<image001.jpg>>
<<image002.jpg>>
