Mampir di : http://kumpulan1000.blogspot.com Frangky
________________________________ From: bimp <[email protected]> To: [email protected] Sent: Sat, June 19, 2010 7:45:08 PM Subject: Re: [programmer-vb] TextBox dan Tombol Enter nggak ada yang kayak gitu di VB... solusinya ya bikin coding di tiap form... Regards, -biMp- 2010/6/18 Budi M <belajarwave@ yahoo.co. id> > >terima kasih teman2, >cuma yang saya maksud bukan seperti itu, >kalau seperti itu berarti tiap form mesti di tambah kode tersebut. >yang saya maksud cukup di definisikan 1 kali saja >dan di semua form otomatis akan akan memakai perintah tersebut bisa F2 di >tekan. >kira2 ada nggak ya caranya ? > >Terima kasih, >Budi > >----- Original Message ----- >>From: bimp >>To: programmer-vb@ yahoogroups. com >>Sent: Friday, June 18, 2010 11:41 AM >>Subject: Re: [programmer- vb] TextBox dan Tombol Enter >> >>biar gak ngulang2 bikin kodenya, textboxnya dijadiin array aja dah gitu >>kan >>tinggal bikin 1 kode untuk semua textbox... >> >> >> >>Private Sub TextBox_KeyDown( Index As Integer, KeyCode As Integer, Shift >>As >>Integer) >>dim vLoop as Integer >> >> >> For vLoop = 0 to TextBox.Count -1 >> TextBox(vLoop) .Text = "" >> Next >> >> >> If KeyCode = vbKeyF2 Then >> TextBox(Index) .Text = "Anda menekan tombol F2 disini..." >> Else >> TextBox(Index) .Text = "Bukan tombol F2" >> End If >>End Sub >> >> >>2010/6/18 nur Firman <nurfirm...@yahoo. co.id> >> >> >>>Bukannya yang dimaksud itu event KeyDown >>>nanti >>> >>>if keycode = vbkeyF2 then >>>.... >>>else >>>... >>>end if >>> >>> >>>On 18/06/2010 10:21 AM, Budi M wrote: >>> >>>> >>>>Halo teman2, >>>> >>>>tolong tanya bagaimana caranya supaya semua TextBox kalau di tekan >>>>F2 >>>>menjalankan prosedur atau function tertentu ? >>>> >>>>kalau pemrogramman di clipper dulu biasa pakai >>>>SET KEY K_F2 TO ScrollAccount >>>>Use ... >>>>Use... >>>>Return >>>> >>>>PROCEDURE ScrollAccount( cProc, nLine, cVar ) >>>>// tiap di tekan Enter prosedur ini di jalankan >>>>Return >>>> >>>>Terima kasih >>>> >>>>Budi >> >> >> >>-- >>Regards, >> >> >>-biMp- >> >> -- Regards, -biMp-
