FW:[Programmer-VB] menimpa data saat ketik

[vbPian]

Maaf...maaf... setelah dicoba memang ada error, intinya tombol Insert tidak ngaruh untuk TextBox, tapi saya ada solusi lain..   di event Text1_KeyPress tambahkan ini:     Text1.SelLength = 1   Pasti berhasil :p    -----Original Message----- From: Programmer-VB@yahoogroups.com [mailto:[EMAIL PROTECTED]On Behalf Of gunartha.nyoman Sent: Monday, May 29, 2006 12:18 PM To: Programmer-VB@yahoogroups.com Subject: Re: Balasan: [Programmer-VB] menimpa data saat ketik 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 To: Programmer-VB@yahoogroups.com 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: Programmer-VB@yahoogroups.com [mailto:[EMAIL PROTECTED]On Behalf Of gunartha.nyoman Sent: Monday, May 29, 2006 11:35 AM To: Programmer-VB@yahoogroups.com 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 ----- From: Ade Aan Wirama To: Programmer-VB@yahoogroups.com 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  Visit your group "Programmer-VB" on the web.    To unsubscribe from this group, send an email to:  [EMAIL PROTECTED]    Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.