melengkapi aja ya... Private Sub txtHrgBeli_KeyPress(KeyAscii As Integer) KeyAscii = CheckNumber(KeyAscii) If KeyAscii = vbKeyReturn Then txtHrgBeli.Text = Format(txtHrgBeli.Text, "#,###,###,##0.00") txtHrgJual.SetFocus End If End Sub
--- In [email protected], dehen adam <[EMAIL PROTECTED]> wrote: > > Kalau mau arahnya seperti TAB. Beri perintah setfocus. Contoh begini, kita berada di TEXT1.TEXT terus mau pindah otomatis ke posisi TEXT4.TEXT, maka beri peintah di event KEYPRESS sbb : TEXT4.SETFOCUS. Maka kursor mengarah ke TEXT4.TEXT pd saat ditekan Enter. > > Budi Mulyono <[EMAIL PROTECTED]> wrote: Teman2, > > bagaimana caranya supaya di TextBox penekanan tombol ENTER bisa seperti TAB > > Selama ini saya pakai seperti ini : > jadi tiap TextBox selalu di beri perintah SendKeys "{Tab}" > bisa tidak, perintah itu di setting 1 kali saja, sehingga kalau tekan enter langsung ke TextBox berikutnya tanpa mengisi semua Text1_KeyPress dengan SendKeys "{Tab}" ? > > Terima kasih > > Budi > > Private Sub Text1_KeyPress(KeyAscii As Integer) > If KeyAscii = 13 Then > SendKeys "{Tab}" > KeyAscii = 0 > End If > End Sub > > > > > Best Regards, > > > Budi Mulyono > [EMAIL PROTECTED] > > > > > > > --------------------------------- > Never miss a thing. Make Yahoo your homepage. > > > > > --------------------------------- > Looking for last minute shopping deals? Find them fast with Yahoo! Search. >
