Private Sub DTPicker2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = Asc(Chr(13)) Then
MaskEdBox1.SetFocus
End If
End Sub
----- Original Message -----
From: iwan gunawan
To: [email protected]
Sent: Thursday, July 24, 2008 3:29 PM
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" <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.
No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.138 / Virus Database: 270.5.5/1569 - Release Date: 23/07/08 1:31 PM
