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 ...
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 ...
Tidak ada komentar:
Posting Komentar