itu kurang perintah End Sub
Private Sub dtp1_CallbackKeyDown ( )
dtrawat.Value = Date
End Sub '<----Perintah ini yang kurang
Private Sub dtp1_keypress ( )
if keyascii=13 then
txt1.setfocus
end if
End Sub '<----Perintah ini yang kurang
iwan gunawan wrote:
> 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 <http://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_ <http://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.
>
>
>
>
>
>
