Πώς να κάνει μια πληκτρολογίου οθόνης σε Visual Basic

Μπορείτε να δημιουργήσετε ένα πληκτρολόγιο στην οθόνη με το πρόγραμμα της Visual Basic της Microsoft , το οποίο μπορείτε να κατεβάσετε από την ιστοσελίδα της Microsoft για δωρεάν . Visual Basic είναι μια αρκετά κατανοητό πρόγραμμα για τους περισσότερους ανθρώπους . Το πρόγραμμα έχει σχεδιαστεί για τη δημιουργία ασφαλών και object-oriented εφαρμογές . Το πρόγραμμα αυτό δίνει στους προγραμματιστές την ευκαιρία να στοχεύουν τα Web , κινητές συσκευές και τα Windows . Το πληκτρολόγιο στην οθόνη που δημιουργήθηκε από τη Visual Basic σας επιτρέπει να πληκτρολογήσετε σε διαφορετικές εφαρμογές στον υπολογιστή σας . Οδηγίες
Η 1

Ξεκινήστε το Microsoft Visual Basic . 2

Κάντε κλικ στο " New Project" ακριβώς κάτω από την καρτέλα "Αρχείο " που βρίσκεται στη γραμμή εργαλείων .
Η Φτηνές 3

Highlight " των Windows Έντυπο Αίτησης " στο "New Project " pop - up παράθυρο .
Η

4 Αλλάξτε το όνομα του έργου " πληκτρολογίου οθόνης " ή κάτι παρόμοιο στην ευκολότερη ταυτοποίηση του έργου σας .
5

Κάντε κλικ στο " OK" στη δεξιά κάτω γωνία του "New Project " pop - up παράθυρο . Μια κενή φόρμα με την ένδειξη " Form1 " θα πρέπει να εμφανίζεται μέσα σε λίγα δευτερόλεπτα
Η

6 Κάντε κλικ στο "Ιδιότητες Box" που βρίσκεται στη δεξιά πλευρά της οθόνης και να επισημάνετε το " Name" ? . Αλλάξετε το όνομα από το " Φόρμα1 " στο " frmMain " .
Η 7

Highlight " FormBorderStyle " και να αλλάξετε το τρέχον όνομα σε " FixedToolWindow " .
8

Highlight "Size" και να αλλάξετε το τρέχον μέγεθος με το " 390208 " .
Η 9

Highlight " Κείμενο " και αλλάξτε το όνομα σε " Keyboard " .
Η 10

Highlight " κορυφαίο " και να αλλάξετε το " True " .
Η 11

Ανάπτυξη ( + ) " κοινά στοιχεία ελέγχου " σας στο " Toolbox" στην αριστερή πλευρά της οθόνης και επιλέξτε " σύνθετο πλαίσιο " συνιστώσα.
Η 12

Ισοπαλία ένα σύνθετο πλαίσιο σε "Form" κουτί, το οποίο θα πρέπει να φέρουν την ένδειξη " Keyboard " .
Η 13

Κάντε κλικ στο σύνθετο πλαίσιο και στη συνέχεια να επιστρέψετε στο "Ιδιότητες Box" που βρίσκεται στη δεξιά πλευρά της οθόνης . Highlight " Όνομα " στο "Ιδιότητες Box" και να αλλάξετε το όνομα σε " cboWindows " .
Η 14

Highlight " DropDownStyle " και αλλάξτε το όνομα σε " DropDownList " και κάντε δεξί κλικ στο " Form" στο ". Solution Explorer " και επιλέξτε " Προβολή κώδικα "
Η 15

Πληκτρολογήστε τις ακόλουθες μεθόδους API και τις δηλώσεις κάτω από τη "Δημόσια Τάξη frmMain " :

«Μέθοδοι API

Λειτουργία Public Declare IsWindowVisible Lib " user32.dll " _

Alias ​​" IsWindowVisible " ( ByVal hwnd As Integer ) Όπως Boolean

Λειτουργία Public Declare GetWindow Lib " user32.dll " _

Alias ​​" GetWindow " ( ByVal hwnd As Integer , _

ByVal wCmd As Integer ) As Integer

Λειτουργία Public Declare GetWindowLong Lib " user32.dll " _

Alias ​​" GetWindowLongA " ( ByVal hwnd As Integer , _

ByVal nIndex As Integer ) As Integer

Λειτουργία Public Declare GetParent Lib " user32.dll " _

Alias ​​" GetParent " ( ByVal hwnd As Integer ) As Integer

Λειτουργία Public Declare SetForegroundWindow Lib " user32.dll " _

Alias ​​" SetForegroundWindow " ( ByVal hwnd As Integer ) As Integer

' δηλώσεις

Προσωπική RowOne Όπως String ( ) = {" ` " , " 1 " , " 2 "," 3 " , " 4 " , " 5 " , " 6 " , " 7 "," 8 " , " 9 " , " 0 " , " - " , " = " }

Private RowTwo As String ( ) = { " q " , " w " , " e " , " r " , " t " , " y " , " u " , " i " , " o " , " p " , " [ " , "] " }

Ιδιωτική RowThree As String ( ) = { " a " , " s " ," D " ," F " ," G " , " h " , " j " , " k " , " L "," ? " , " '" , " # " }

Προσωπική RowFour Όπως String ( ) = { "\\" , "ζ" , "χ" , "c" , "ν" , "b" , "η" , "m ", " , ", " . ", " /" }

Ιδιωτική CapsLock As New CheckBox

ιδιωτικού κλειδιού , Ειδικές Όπως String

Private παράθυρα, New ArrayList

Ιδιωτική Παράθυρο Όπως IntPtr

16

Εισάγετε τις μεθόδους API και τις δηλώσεις κάτω από τα « χειριστές συμβάντος " :

« Εκδήλωση χειριστές

Private Sub Key_Special ( ByVal αποστολέα Όπως Button , _

ByVal ε. Όπως System.EventArgs )

Εάν Ειδική = " " τότε

Ειδική = Sender.Tag

Else

Ειδική = " "

End If

End Sub

Private Sub Key_Click ( ByVal αποστολέα Όπως Button , _

ByVal e Όπως System.EventArgs )

Key = Sender . Tag

Εάν Key = " { } SPACE " Τότε Key = " " " Μετατροπή { SPACE } στο διάστημα

Αν Παράθυρο <> 0 τότε

SetForegroundWindow ( παράθυρο )

SendKeys.SendWait ( Special & IIf ( Capslock.Checked _

And Not Special <> " ^" , _

UCase ( Key ) , κλειδί ) )

SetForegroundWindow ( Window )

End If

End Sub
Η 17

Πληκτρολογήστε αυτό κάτω από τα "Private Μέθοδοι » :
Ιδιωτικός Μέθοδοι

'

Ιδιωτική IsActiveWindow Λειτουργία ( ByVal hWnd As Integer ) Όπως Boolean

Dim IsOwned Όπως Boolean

Dim Style As Integer

IsOwned = GetWindow ( hWnd , 4 ) <> 0

Style = GetWindowLong ( hWnd , -20 )

If Not IsWindowVisible ( hWnd ) Στη συνέχεια Επιστροφή False « Μη ορατός

Αν GetParent ( hWnd ) <> 0 τότε Επιστροφή False « Έχει Μητρικής

Αν ( στυλ και & H80 ) <> 0 και να μην IsOwned συνέχεια Επιστροφή False « Έχει Tooltip

Αν ( και Style & H40000 ) = 0 και IsOwned συνέχεια Επιστροφή False « Έχει Ιδιοκτήτης

Αν Process.GetCurrentProcess.MainWindowHandle = hWnd συνέχεια Επιστροφή False

Επιστροφή True « Παράθυρο Ισχύει

End
λειτουργία

Private Sub KeyboardButton ( ByVal Πλάτος As Integer , ByVal Ύψος As Integer , _

ByVal Top As Integer , ByVal Αριστερά As Integer , _

Προαιρετικό ByVal Κείμενο As String = " " , _

Προαιρετικό ByVal Tag As String = " " , _

Προαιρετικό ByVal Ειδική Όπως Boolean = False )

Dim Button Όπως New Button

Button.Size = Νέα μέγεθος ( πλάτος, ύψος )

Button.Location = Νέο σημείο ( Left, Top )

Button.Text = Κείμενο

Button.Tag = Tag

Εάν Ειδική τότε

AddHandler Button.Click , AddressOf Key_Special

Else

AddHandler Button.Click , AddressOf Key_Click

End If

Controls.Add ( Button )

Sub End
Τετάρτη 18

Επιστροφή στην Προβολή σχεδίασης επιλέγοντας την καρτέλα " Σχεδίαση " ή δεξί κλικ πάνω της "Προβολή Designer " επιλογή που βρίσκεται στο " Εξερεύνηση των λύσεων » για frmMain . Εντός Φόρμα Εμφανίσεις , κάντε διπλό κλικ στη φόρμα ( frmMain )
Η 19

Πληκτρολογήστε τα παρακάτω στο " frmMain_Load ( ) " υπο : .

Δημ. Col As Integer

'Row Ένα

Για Col = 0 έως 12

KeyboardButton ( 25 , 25 , 40 , Col * 25 + 4 , _

RowOne ( Col ) , RowOne ( Col ) )

Επόμενο

KeyboardButton ( 50 , 25 , 40 , Col * 25 + 4 , " BkSp " , " { } BACKSPACE " )

'Row δύο

KeyboardButton ( 36 , 25 , 66 , 4 , " Tab " , " { TAB } " )

Για Col = 0 Για 11

KeyboardButton ( 25 , 25 , 66 , Col * 25 + 40 , _

UCase ( RowTwo ( Col ) ) , RowTwo ( Col ) )

Επόμενο

KeyboardButton ( 39 , 25 , 66 , 36 + Col * 25 + 4 , " ↵ " , " { ENTER } " )

'Row Τρεις

CapsLock.Appearance = Appearance.Button

CapsLock.Size = Νέα Μέγεθος ( 48 , 25 )

CapsLock.Location = Νέο σημείο ( 4 , 92 )

CapsLock.Text = " Καπέλα "

Controls.Add ( CapsLock )

Για Col = 0 Για 11

KeyboardButton ( 25 , 25 , 92 , Col * 25 + 52 , _

UCase ( RowThree ( Col ) ) , RowThree ( Col ) )

Επόμενο

KeyboardButton ( 27 , 25 , 92 , 48 + Col * 25 + 4 , " " , " { ENTER } " )

'Row Τέσσερις

KeyboardButton ( 38 , 25 , 118 , 4 , "Shift" , " + " , True )

Για Col = 0 Σε 10

KeyboardButton ( 25 , 25 , 118 , Col * 25 + 42 , _

UCase ( RowFour ( Col ) ) , RowFour ( Col ) )

Επόμενο

KeyboardButton ( 62 , 25 , 118 , Col * 25 + 42 , "Shift " , " + " , True )

'Row Πέντε

KeyboardButton ( 50 , 25 , 144 , 4 , " Ctrl " , " ^ " , True )

KeyboardButton ( 50 , 25 , 144 , 54 , "Alt " , " % " , True )

KeyboardButton ( 154 , 25 , 144 , 104 , "Διάστημα" , " { } SPACE " )

KeyboardButton ( 44 , 25 , 144 , 258 , "Home " , " { HOME} " )

KeyboardButton ( 44 , 25 , 144 , 302 , το "End " , " { END } " )

KeyboardButton ( 33 , 25 , 144 , 346 , " Del " , " { } DEL "
20

Επιστροφή στην " Προβολή κώδικα " με διπλό κλικ στο θα πρέπει να εμφανιστεί το έντυπο . η « frmMain_Load " Sub από το προηγούμενο βήμα . θα πρέπει να υπάρχουν δύο κιβώτια drop-down στην προβολή κώδικα .
Η 21

Επιλέξτε " cboWindows " από το πρώτο " frmMain Event" σταγόνα . προς τα κάτω και επιλέξτε " Αναδυόμενη " από το " δηλώσεις " drop-down box
Η 22

Πληκτρολογήστε τα ακόλουθα στο « cboWindows_DropDown ( ... ) " Sub :

των Windows . Clear ( )

cboWindows.Items.Clear ( )

Για κάθε στοιχείο που Διαδικασία Σε Process.GetProcesses

Εάν IsActiveWindow ( Item.MainWindowHandle ) _

Και Item.MainWindowTitle <> " " Αν

Επόμενο

συνέχεια, επιλέξτε " cboWindows " από το πρώτο αναπτυσσόμενο πλαίσιο και πάλι βρίσκεται στον Κώδικα View .

Επιλέξτε " SelectedIndexChanged " και πληκτρολογήστε τα ακόλουθα στο « cboWindows_SelectedIndexedChange " Sub :

Αν cboWindows.SelectedItem <> Τίποτα τότε

Window = Windows.Item ( cboWindows.SelectedIndex )

End If

23

Αποθηκεύστε το έργο σας , επειδή έχετε τελειώσει .
Η 24

Κάντε κλικ στο " Start" και θα πρέπει να εμφανιστεί στην οθόνη του πληκτρολογίου σας .
Η 25

Κάντε κλικ στο κόκκινο " X "που βρίσκεται στο πάνω δεξιά μέρος του πλαισίου για να κλείσετε την εφαρμογή όταν τελειώσετε .
Η
εικόνων