Tips Enter pada Control DTPicker

Pada saat user menekan tombol disuatu control biasanya kursor mouse berpindah ke control berikutnya sesuai dengan yang diinginkan. Biasanya anda menggunakan event KeyPress dengan penggunaan Karakter Enter (KeyAscii=13). Ternyata hal ini tidak selamanya berfungsi, terlebih jika anda menggunakan Prosedur tersebut pada Sub KeyPress milik control DTPicker dan untuk mengatasi hal tersebut silakan simak artikel dibawah ini:

Langkah Awal:
1. Buat sebuah project standard exe dengan satu form
2. Klik menu Project -> Components... lalu beri centang lalu pada "Microsoft Windows Common Controls-2 6.0 (SP...)"
3. Tambahkan satu control DTPicker ke atas form dengan nama: DTPicker1
4. Tambahkan satu control TextBox ke atas form dengan nama Text1
5. Copy-paste code berikut ke editor form yang bertalian

Berikut ini contoh code tidak berfungsi pada saat dieksekusi.
Private Sub DTPicker1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text1.SetFocus
End If
End Sub

cara mengatasinya, gunakan "KeyDown" dan ketikan code seperti dibawah ini:
Private Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text1.SetFocus
End If
End Sub


Semoga Bermanfa'at ...
Benuarayak

benuarayak wrote:

Pada saat user menekan tombol disuatu control biasanya kursor mouse berpindah ke control berikutnya sesuai dengan yang diinginkan. Biasanya anda menggunakan event KeyPress dengan penggunaan Karakter Enter (KeyAscii=13). Ternyata hal ini tidak selamanya berfungsi, terlebih jika anda menggunakan Prosedur tersebut pada Sub KeyPress milik control DTPicker dan untuk mengatasi hal tersebut silakan simak artikel dibawah ini:

Langkah Awal:
1. Buat sebuah project standard exe dengan satu form
2. Klik menu Project -> Components... lalu beri centang lalu pada "Microsoft Windows Common Controls-2 6.0 (SP...)"
3. Tambahkan satu control DTPicker ke atas form dengan nama: DTPicker1
4. Tambahkan satu control TextBox ke atas form dengan nama Text1
5. Copy-paste code berikut ke editor form yang bertalian

Berikut ini contoh code tidak berfungsi pada saat dieksekusi.
Private Sub DTPicker1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text1.SetFocus
End If
End Sub

cara mengatasinya, gunakan "KeyDown" dan ketikan code seperti dibawah ini:
Private Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text1.SetFocus
End If
End Sub


Semoga Bermanfa'at ...
Benuarayak

makasi infonya ... berguna banget ni ...
Maju terus plankton ...

belajar hacker yg baik gmn???......ada cara untuk mencega para cracker tdk???