Ikut numpang lewat..
coba pake kaya gini aja:
Private Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
Text1.SetFocus
End If
End Sub
Pada tanggal 24/07/08, [EMAIL PROTECTED] <
[EMAIL PROTECTED]> menulis:
>
>
> 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]>*
> Sent by: [email protected]
>
> 2008/07/24 15:29 Please respond to
> [email protected]
>
> To
> [email protected] cc
> Subject
> Re: [Programmer-VB] setfocus
>
>
>
>
> Dear arlenda, sy coba tapi koq run time error, ada saran lain?
>
>
> ----- Original Message ----
> From: "[EMAIL PROTECTED]" <[EMAIL PROTECTED]>
> To: [email protected]
> 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* <http://co.id/>" <[EMAIL PROTECTED]
> 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.
>
>
>
>
>
>
