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

[Ade Aan Wirama]

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 IfEnd Sub  dan ini di textboxnya :     Private Sub Text1_GotFocus()    SelectTextUI Text1End 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 GunarthaWahana 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






    


  
  
    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.