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: [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-
