Maaf saya tidak suka dengan reply2 email spt ini, yang bagi saya hanya mempromosikan blog. Kalau mau sharing, silahkan copy paste isi artikel anda disini, boleh ditambahkan sumber blog nya...
maaf mod, Kalau emang pendapat saya salah, saya siap ditegur... Jimbo Mon, Jul 5, 2010 - 10:05:34 Sent from my Bold -----Original Message----- From: Frangky Sumampouw <[email protected]> Sender: [email protected] Date: Sun, 4 Jul 2010 18:39:45 To: <[email protected]> Reply-To: [email protected] Subject: Re: [programmer-vb] TextBox dan Tombol Enter 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-
