Ξεκινήστε το Microsoft Visual Basic Express . Κάντε κλικ στο " New Project ... " στο αριστερό τμήμα της οθόνης σας , στη συνέχεια, επιλέξτε " Windows Forms Application ". Κάντε κλικ στο " OK". 2
διπλό κλικ στο " Χρονόμετρο " στο " Toolbox" παράθυρο για να προσθέσετε ένα νέο στοιχείο ελέγχου χρονοδιακόπτη . Κάντε δεξί κλικ στο " Timer1 , " και στη συνέχεια επιλέξτε " Ιδιότητες". Δίπλα στο " Enabled ", επιλέξτε το " True ". . Κάντε διπλό κλικ στο " Timer1 " για να ανοίξετε το παράθυρο " Form1.vb "
εικόνων 3
Πληκτρολογήστε τον ακόλουθο κώδικα παραπάνω " Timer1_Tick " για να κηρύξει την " GetAsyncKeystate " λειτουργία :
Λειτουργία Public Declare GetAsyncKeyState Lib " user32.dll " ( ByVal vKey Όπως Int32 ) Όπως UShort
Η
4 Πληκτρολογήστε τον ακόλουθο κώδικα στο " Timer1_Tick " για να συλλάβει τα κλειδιά δακτυλογραφημένες , ενώ η εφαρμογή εκτελείται :
Dim keyResult As Integer
Dim chrKey Όπως String
Dim i As Integer
Για i = 2 Για 90
keyResult = 0
keyResult = GetAsyncKeystate ( i )
Αν keyResult = -32767 τότε
chrKey = Chr ( i )
MsgBox ( chrKey )
Έξοδος για
End If
Επόμενη i
5
Πατήστε " F5 " για να εκτελέσετε το πρόγραμμα , στη συνέχεια, πατήστε το κουμπί " B " στο πληκτρολόγιο και θα δείτε ένα πλαίσιο μηνύματος που εμφανίζεται με το γράμμα " Β "
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα