sebenernya cara yg dikasi tau oom f...@u2 itu sangat efektif, jadi tinggal
bikin coding di modul,trus tinggal panggil deh di setiap event keypress..
berikut contoh modul nya :
Public Sub Enter(X)
If X = 13 Then
SendKeys "{tab}"
End If
End Sub
nah di setiap textbox pada event keypress,tinggal di call procedure nya
dengan : enter(keyascii)
note : semua text, property tab index nya harus berurutan..
semoga membantu
terima kasih
--- On Tue, 6/22/10, Budi M <[email protected]> wrote:
From: Budi M <[email protected]>
Subject: Re: [programmer-vb] TextBox dan Tombol Enter
To: [email protected]
Date: Tuesday, June 22, 2010, 7:59 PM
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.marwana@ gmail.com>
wrote:
nggak ada yang kayak gitu di VB...
solusinya ya bikin coding di tiap form...
Regards,
-biMp-
2010/6/18 Budi M <belajarwave@ 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~
