Re: Balasan: [Programmer-VB] menimpa data saat ketik

Sun, 28 May 2006 22:18:56 -0700


Yth Mas Pian,
 
Setelah dicoba muncul run time error 5 : invalid procedure call
Kenapa ya? apa ada yg salah yg keliru ys
 
tks
Nyoman
 
----- Original Message -----
From: vbPian
Sent: Monday, May 29, 2006 2:00 PM
Subject: RE: Balasan: [Programmer-VB] menimpa data saat ketik

Saat GotFocus, gunakan Sendkeys "{INS}"
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED]On Behalf Of gunartha.nyoman
Sent: Monday, May 29, 2006 11:35 AM
To: [email protected]
Subject: Re: Balasan: [Programmer-VB] menimpa data saat ketik

Dear Mas Ade, Mas Oskar, mas Among
 
Terima kasih atas tanggapannya
Saya sudah coba, dari semua code yg ada yg saya coba semua menghasilkan pada saat got focus datanya di select semuanya dan ketika kita ketik data lama langsung ditindih semua.
 
Ada gak kira-kira cara agar data yg ditindih satu demi satu dari depan ke belakang ( seperti menimpa hurup kalau kita aktifkan tombol insert di ms word )
 
Sekali lagi terima kasih
 
Regards
Nyoman Gunartha
----- Original Message -----
Sent: Monday, May 29, 2006 1:19 PM
Subject: Balasan: [Programmer-VB] menimpa data saat ketik

Letakkan ini di prosedur global bli nyoman:
 
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 
Public Const EM_SETSEL = &HB1
 
Bikin public sub:
 
Public Sub SelectTextUI(TextBox As TextBox)
    If GetKeyState(vbKeyTab) < 0 Then
        SendMessage TextBox.hWnd, EM_SETSEL, 0, -1
    End If
End Sub
dan ini di textboxnya :
 
Private Sub Text1_GotFocus()
    SelectTextUI Text1
End Sub
 
semoga membantu
Ade Aan

"gunartha.nyoman" <[EMAIL PROTECTED]> menulis:
Dear All,
 
Langsung aja yach...
Kira-kira gimana caranya klo kita pakai text box dan pada saat ketik data data yg lama dapat ditimpa langsung ( seperti pemrogram dgn foxpro atau seperti kita ketik di ms word mengaktifkan tombol insert )
 
 
Terima kasih atas bantuannya
 
Sincerely yours,
Nyoman Gunartha


Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer



Apakah Anda Yahoo!?
Kunjungi halaman depan Yahoo! Indonesia yang baru!


Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer



SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke