Ok, ini potongan kodingnya :
Private Sub dtp1_CallbackKeyDown ( )
dtrawat.Value = Date
Private Sub dtp1_keypress ( )
if keyascii=13 then
txt1.setfocus
end if
Thanks b4.
----- Original Message ----
From: "[EMAIL PROTECTED]" <[EMAIL PROTECTED]>
To: [email protected]
Sent: Thursday, July 24, 2008 3:41:21 PM
Subject: Re: [Programmer-VB] setfocus
Bro Iwan, sya udah coba bisa tuh..
Private Sub DTPicker1_CloseUp( )
Text1.SetFocus
End Sub
Private Sub DTPicker1_DropDown( )
Text1.SetFocus
End Sub
Pakai event closeup bisa atau dropdowntidak
ada masalah.
Kalo boleh tahu listing prog. nya seperti
apa?
Best Regards
Arlenda Fitranto
iwan gunawan <[EMAIL PROTECTED] com>
Sent by: Programmer-VB@ yahoogroups. com
2008/07/24 15:29
Please respond to
Programmer-VB@ yahoogroups. com
To Programmer-VB@ yahoogroups. com
cc
Subject Re: [Programmer- VB] setfocus
Dear arlenda, sy coba tapi koq run time error,
ada saran lain?
----- Original Message ----
From: "arlenda_YPMI@ yamaha-motor. co.id" <arlenda_YPMI@ yamaha-motor. co.id>
To: Programmer-VB@ yahoogroups. com
Sent: Thursday, July 24, 2008 3:16:27 PM
Subject: Re: [Programmer- VB] setfocus
Oh maaf, pakai event DropDown.
Cukup ketik :
txt1.setfocus
Best Regards
Arlenda Fitranto
iwan gunawan
<[EMAIL PROTECTED] com>
Sent by: Programmer-VB@ yahoogroups. com
2008/07/24 15:01
Please respond to
Programmer-VB@ yahoogroups. com
To Programmer-VB@
yahoogroups. com
cc
Subject Re: [Programmer- VB] setfocus
Sy sudah coba pake event clik, tetap ga bs, hrs cek di mn lagi yah?
----- Original Message ----
From: "arlenda_YPMI@ yamaha-motor. co.id"
<arlenda_YPMI@ yamaha-motor. co.id>
To: Programmer-VB@ yahoogroups. com
Sent: Thursday, July 24, 2008 2:44:21 PM
Subject: Re: [Programmer- VB] setfocus
koding tersebut untuk event keypress, ketika tekan enter fokus di txt1.
Kalau ingin setelah memilih tanggal baru txt1 fokus, gunakan event click.
Best Regards
Arlenda Fitranto
iwan gunawan
<[EMAIL PROTECTED] com>
Sent by: Programmer-VB@ yahoogroups. com
24/07/2008 14:01
Please respond to
Programmer-VB@ yahoogroups. com
To indoprog-vb@
yahoogroups. com
cc programmer-VB@ yahoogroups.
com
Subject [Programmer- VB] setfocus
Private Sub dtpicker1_KeyPress( KeyAscii As Integer)
If KeyAscii = 13 Then
txt1.SetFocus
End If
End Sub
koding diatas salah dimana yah, gw pengen pas dtpicker di klik/enter, pilih
tgl trus setfocus ada di txt1, thanks yah b4.
__._,_.__
