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-
