ok terima kasih banyak teman2
berarti saya memang harus bikin 1 per 1 di tiap form
Salam
Budi
----- Original Message -----
From: f...@u2!
To: programmer-vb@yahoogroups.com
Sent: Monday, June 21, 2010 4:55 PM
Subject: Re: [programmer-vb] TextBox dan Tombol Enter
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
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~
