Balasan: [Programmer-VB] menimpa data saat ketik

Sun, 28 May 2006 21:19:47 -0700

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