nggak ada yang kayak gitu di VB... solusinya ya bikin coding di tiap form...
Regards, -biMp- 2010/6/18 Budi M <[email protected]> > > > > 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 <[email protected]> > *To:* [email protected] > *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 <[email protected]> > >> >> >> 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-
