Cita-Cita Ane Gan....

Ane ingin mengalahkan perusahaan yang didirikan oleh Mr. Steve Job dan Perusahaan yang didirikan oleh Mr. Bill Gates.

Ane Bersama K.H Abdul Muntholib dan Seluruh Teman Pilihan Seperjuangan

Kegiatan yang sangat berkesan dalam masa tawadhu'.

Teman Seperjuangan 2007-Sekarang

Persahabatan kita tak akan lenggang oleh waktu brow.....

Seluruh Mahasiswa ESQ Business School Beserta Founder, CEO, dan Dosen

Maaf, foto masih proses request pada pihak berwenang.

Mbak Ollie Halimatussadiah Sebagai Dosen Tamu

Kunjungan Mbak Ollie sangat membangkitkan mood ngoding nih. Terima Kasih banyak ya.....

Thursday 1 December 2011

Dtpicker agar bisa ditekan Enter

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

0 comments:

Post a Comment

Tolong diisi se-objektif mungkin ya....
Terima kasih...