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

Sun, 28 May 2006 22:48:26 -0700

Mungkin ini bisa membantu
tinggal ganti nama textbox sesuaikan dengan yg anda punya 
 
Private Sub txtkdBrg_KeyPress(KeyAscii As Integer)
     txtkdBrg.SelLength = 1
End Sub
 
Salam,
Padu Arsana IW


"gunartha.nyoman" <[EMAIL PROTECTED]> wrote:

Mas Ade
 
Setelah saya coba belum mau juga seperti yg dimaksud
Apa ada yg kurang yach ?
 
tks b4
 
Nyoman
----- Original Message -----
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 -----
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!

Blab-away for as little as 1¢/min. Make PC-to-Phone Calls using Yahoo! Messenger with Voice.

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