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

[gunartha.nyoman]

 Mas Ade   Setelah saya coba belum mau juga seperti yg dimaksud Apa ada yg kurang yach ?   tks b4   Nyoman ----- Original Message ----- From: Ade Aan Wirama To: Programmer-VB@yahoogroups.com Sent: Monday, May 29, 2006 2:14 PM Subject: Balasan: Re: Balasan: [Programmer-VB] menimpa data saat ketik Oh gitu bli, baru nangkep ini maksudnya   ok, mudah2an yang ini bisa membantu:   General Declaration:   Private bNimpaNih As Boolean Form_Load:   KeyPreview = true bNimpaNih = False   Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer): If KeyCode = vbKeyInsert Then bNimpaNih = Not bNimpaNih   Private Sub Text1_KeyPress(KeyAscii As Integer): If bNimpaih = True Then Text1.SelLength = 1 Ade Aan "gunartha.nyoman" <[EMAIL PROTECTED]> menulis:  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! 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 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.