Betul, tiap form memang harus dibuatkan kodingnya. Namun kita bisa meminimalkan pengulangan koding dengan membuat prosedur utamanya di modul dan memanggilnya setiap kali ada penekanan event KeyPressed, KeyDown atau KeyUp.
Mungkin dengan mengkonfigur property KeyPreview = True pada property Form pemanggilan event tidak perlu dilakukan berulang2 untuk satu form yang sama. CMIIW. On 6/19/10, bimp <bimp.marw...@gmail.com> wrote: > > > > nggak ada yang kayak gitu di VB... > solusinya ya bikin coding di tiap form... > > > > > Regards, > > > > > -biMp- > > 2010/6/18 Budi M <belajarw...@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 <bimp.marw...@gmail.com> >> *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- > > > > > -- Regards, ~fzi~
