Menulis program intersepsi keyboard menggunakan VB

Kita tahu bahwa di beberapa program, terdapat beberapa shortcut (seperti: tombol Shift untuk memperkecil, tombol ESC untuk keluar, Ctrl+S untuk menyimpan, Alt+x untuk keluar, dll.). Ada beberapa perkenalan di masa lalu yang dapat dilakukan dengan menggunakan API Win32, tetapi ini terlalu rumit. Faktanya, VB sendiri telah memberi kita fungsi ini.

Mari kita buat form baru Form1. Untuk pengoperasian keyboard, kita dapat melihat ada tiga event KeyPress(), KeyDown dan KeyUp.

Peristiwa KeyPress() terjadi ketika pengguna menekan dan melepaskan kunci ANSI (ANSI adalah karakter ASCII yang terlihat 1-127).

tata bahasa

Sub objek Pribadi_KeyPress(［indeks Sebagai Integer,］keyascii Sebagai Integer) Sintaks acara KeyPress berisi bagian-bagian berikut:

deskripsi sebagian

objek adalah ekspresi objek yang nilainya "diterapkan pada" objek dalam daftar.

indeks adalah bilangan bulat yang secara unik mengidentifikasi kontrol dalam array kontrol (hanya tersedia untuk array kontrol).

keyascii adalah bilangan bulat yang mengembalikan kode kunci numerik ANSI standar. Keyascii meneruskan suatu objek dengan referensi, memungkinkan perubahan pada objek tersebut.

Kirim karakter yang berbeda. Mengubah keyascii ke 0 akan membatalkan penekanan tombol sehingga objek tidak menerima karakter.

menjelaskan

Objek dengan fokus menerima peristiwa ini. Formulir bisa menerima kejadian ini hanya jika properti KeyPreview diatur ke True. Peristiwa KeyPress dapat mereferensikan karakter keyboard apa pun yang dapat dicetak, karakter dari alfabet standar, atau salah satu dari beberapa karakter khusus yang dikombinasikan dengan tombol CTRL, dan tombol ENTER atau BACKSPACE. Prosedur kejadian KeyPress() berguna ketika mencegat penekanan tombol yang dimasukkan dalam kontrol TextBox atau ComboBox. Itu dapat langsung menguji validitas penekanan tombol atau memformat karakter saat dimasukkan. Mengubah nilai parameter keyascii akan mengubah karakter yang ditampilkan.

Anda dapat menggunakan ekspresi berikut untuk mengonversi parameter keyascii menjadi karakter:

Chr(KeyAscii) kemudian melakukan manipulasi string dan menerjemahkan kembali karakter tersebut menjadi nomor ANSI yang dapat diinterpretasikan oleh kontrol melalui ekspresi ini: KeyAscii = Asc(char) Fungsionalitas yang tidak dapat ditangani oleh KeyPress() dapat ditangani oleh KeyDown() dan KeyUp () acara yang akan ditangani: Sintaks Private Sub object_KeyDown([index As Integer,] keycode As Integer, shift As Integer) Private Sub object_KeyUp([index As Integer,] keycode Sebagai Integer, geser Sebagai Integer) Peristiwa KeyDown dan KeyUp mencakup bagian-bagian berikut: Bagian Deskripsi objek Ekspresi objek yang nilainya "diterapkan" pada objek dalam daftar. Indeks adalah bilangan bulat, yang digunakan untuk mengidentifikasi secara unik suatu kontrol dalam array kontrol (hanya tersedia untuk array kontrol). keycode adalah kode kunci, seperti vbKeyF1 (kunci F1) atau vbKeyHome (kunci HOME). shift adalah bilangan bulat yang merespons status tombol SHIFT, CTRL, dan ALT ketika peristiwa ini terjadi. Tombol shift, CTRL, dan ALT masing-masing sesuai dengan nilai 1, 2, dan 4 dalam bit ini. Contoh: Jika tombol CTRL dan ALT ditekan bersamaan, nilai shiftnya adalah 6.

menjelaskan

Untuk kedua peristiwa tersebut, objek yang difokuskan menerima semua penekanan tombol. Formulir hanya bisa mendapatkan fokus jika tidak memiliki kontrol yang terlihat dan valid. Meskipun peristiwa KeyDown() dan KeyUp() dapat diterapkan pada sebagian besar tombol, peristiwa tersebut paling sering diterapkan pada: tombol karakter tambahan seperti tombol fungsi, tombol navigasi, tombol pengubah keyboard, dan kombinasi tombol, yang membedakan papan tombol numerik dari tombol angka biasa; ketika Anda perlu merespons penekanan dan pelepasan tombol, Anda dapat menggunakan prosedur acara KeyDown dan KeyUp.

Peristiwa KeyDown dan KeyUp tidak dapat direferensikan dalam situasi berikut: formulir memiliki kontrol CommandButton dan kunci ENTER ketika properti Default diatur ke True. Formulir memiliki kontrol CommandButton, dan ketika properti Batal diatur ke True, kunci ESC, kunci TAB, KeyDown, dan KeyUp menggunakan dua parameter untuk menafsirkan bentuk huruf besar dan kecil dari setiap karakter: kode kunci - menampilkan kunci fisik (ganti A dan a Mengembalikan sebagai kunci yang sama) dan shift-menampilkan status tombol shift+key dan mengembalikan salah satu dari A atau a.

Jika Anda perlu menguji parameter shift, Anda dapat menggunakan konstanta shift yang ditentukan dalam parameter. Konstanta ini memiliki nilai sebagai berikut:

Deskripsi nilai konstan

vbShiftMask 1 bit kunci HIFT

tameng.

VbCtrlMask 2 tombol CTRL

topeng kecil.

VbAltMask 4 bit kunci ALT

tameng.

Konstanta ini bertindak sebagai bit mask, yang dapat digunakan untuk menguji kombinasi tombol apa pun.

Catatan: Jika properti KeyPreview diatur ke True, formulir menerima kejadian ini sebelum kontrol pada formulir. Anda dapat menggunakan properti KeyPreview untuk membuat rutinitas penanganan keyboard global.

Dengan pengetahuan di atas, kita dapat membuat program yang sempurna dengan tombol shortcut. Misalnya, dalam sebuah program kita perlu menggunakan Ctrl+S untuk menyimpan, Shift untuk meminimalkan, Alt+X dan ESC untuk keluar:

Pertama jalankan VB dan pilih file EXE baru, tarik TextBox pada formulir Form1, dan atur properti KeyPreview dari Form1 ke True, klik dua kali Form1, pilih acara KeyPress pada Formulir, dan masukkan kode berikut:

Private Sub Form_KeyPress(KeyAscii as Integer) 'Esc key to exit, VbEscape bisa diganti dengan 27. Jika KeyAscii=VbEscape lalu End End Sub Masukkan kode berikut di event KeyDown Form: Private Sub Form_KeyDown(KeyCode as Integer,Shift as Integer) 'Memproses Ctrl＋X,Shift,Alt＋X Jika Shift=2 Dan KeyCode=VbKeyS Lalu Print#FileNum,Form1.Text1.Text 'Ctrl+S simpan, VbKeyS=83 Jika shift=2 maka Form1.WindowState=1 'Shift perkecil Jika Shift=4 Dan KeyCode=VbKeyX Lalu Akhiri 'Alt+X keluar, VbkeyX=88 Akhiri Sub di Masukkan kode berikut di acara Muat Formulir: Sub Pribadi Form_load() Redupkan FileNum sebagai bilangan bulat FileNum=FreeFile Buka App.Path+"Sample.txt" Untuk Ditambahkan Sebagai#FileNum End Sub