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
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
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 bantuannyaSincerely 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.
