Sie können eine Bildschirmtastatur mit der Microsoft Visual Basic -Programm, das von der Microsoft- Website kostenlos heruntergeladen werden kann erstellen. Visual Basic ist eine ziemlich verständliche Programm für die meisten Menschen . Das Programm wurde für den Aufbau sicher und objektorientierte Anwendungen. Dieses Programm gibt Entwicklern die Möglichkeit, die Web , mobile Geräte und Windows- zielen. Die Bildschirmtastatur von Visual Basic erstellt können Sie in verschiedenen Anwendungen auf Ihrem Computer eingeben. Anleitung
1
Starten Sie Microsoft Visual Basic.
2
Klicken Sie auf "Neues Projekt" rechts unter der Registerkarte "Datei" auf der Symbolleiste.
Seite 3
Highlight " Windows Form -Anwendung" in der "New Project " Pop- up-Fenster .
4
ändern Sie den Namen des Projekts " Bildschirmtastatur " oder etwas ähnliches zu erleichtern Ihr Projekt identifizieren .
5
Klicken Sie auf " OK" auf der rechten unteren Ecke des "New Project " Pop- up-Fenster . Ein Formular mit der Aufschrift " Form1 " sollte innerhalb von wenigen Sekunden erscheinen
6
Klicken Sie auf die Schaltfläche "Eigenschaften Box" auf der rechten Seite des Bildschirms befindet , und markieren Sie das Feld "Name" ; . Den Namen ändern von " Form1 " auf " frmMain " .
7
Highlight " FormBorderStyle " und ändern Sie den aktuellen Namen zu " FixedToolWindow " .
8
Highlight " Größe " und ändern Sie die aktuelle Größe auf " 390208 " .
9
Highlight "Text" und ändern Sie den Namen in " Keyboard" .
10
Highlight " TopMost " und ändern Sie auf "True" .
11
Erweitern (+) Ihr " Common Controls " auf der " Toolbox " auf der linken Seite des Bildschirms und wählen Sie " ComboBox "-Komponente .
12
Draw eine ComboBox in der "Form" -Box, die als "Keyboard" bezeichnet werden sollte.
13
Klicken Sie auf das ComboBox und dann zurück auf die "Properties Box" auf der rechten Seite des Bildschirms . Markieren Sie "Name" in der "Properties Box " und ändern Sie den Namen in " cboWindows " .
14
Highlight " DropDownStyle " und ändern Sie den Namen in " DropDownList " und der rechten Maustaste auf "Form" in " Explorer " und wählen Sie " Code anzeigen "
15
Typ in den folgenden API-Methoden und Erklärungen unter dem " Public Class frmMain ": .
' API-Methoden
< p > Public Declare Function IsWindowVisible Lib " user32.dll " _
Alias " IsWindowVisible " (ByVal hwnd As Integer ) As Boolean
Öffentliche Declare Function GetWindow Lib " user32.dll " _
Alias " GetWindow " (ByVal hwnd As Integer , _ ByVal
wcmd As Integer ) As Integer Declare
Public Function GetWindowLong Lib " user32.dll " _
< p > Alias " GetWindowLongA " (ByVal hwnd As Integer , _ nIndex
ByVal As Integer ) As Integer
Öffentliche Declare Function GetParent Lib " user32.dll " _
Alias " GetParent " (ByVal hwnd As Integer ) As Integer
Public Function SetForegroundWindow Lib Declare " user32.dll "_
Alias" SetForegroundWindow " (ByVal hwnd As Integer ) As Integer
< p > ' Erklärungen
Privat RowOne As String () = {" ` "," 1 "," 2 "," 3 "," 4 "," 5 "," 6 "," 7 "," 8 "," 9 "," 0 "," - "," = "}
Privat RowTwo As String () = {" q "," w "," e "," r "," t " ," y " , " u "," i "," o " , " p "," [ "," ] "}
Privat RowThree As String () = {" a "," s "," d "," f "," g "," h "," j "," k "," l "," ; "," " ", " # "}
Privat RowFour As String () = {" \\ ", " z ", " x ", " c ", " v" , "b" , "n" , "m" , "," , "." , "/" }
Privat CapsLock As New CheckBox
privaten Schlüssel , besondere As String
privaten Windows- As New ArrayList
Privat Fenster IntPtr
< br > 16
Geben Sie die API-Methoden und Erklärungen unter den "Event -Handler ":
' Event-Handler
private Sub Key_Special (ByVal sender As Knopf , _ ByVal
e As System.EventArgs )
Wenn Spezial = "" Then
Spezial = Sender.Tag
Else
Spezial = " "
< p> End If End Sub
private Sub Key_Click (ByVal sender As Knopf , _
ByVal e As System.EventArgs )
Key = Sender . Tag
Wenn Key = " { SPACE }" Dann Key = "" ' Convert { SPACE } to Space
Wenn Fenster < > 0 Then
SetForegroundWindow ( Fenster)
SendKeys.SendWait (Special & IIf ( Capslock.Checked _
und nicht speziell <> "^ ", _
UCase ( Key ) , Key ) )
SetForegroundWindow ( Fenster)
End If End Sub
17
Geben Sie dies unter den "Private Methods" :
'Private Methoden
private Function IsActiveWindow (ByVal hWnd As Integer ) As Boolean Dim
IsOwned As Boolean
Dim Stil As Integer
IsOwned = GetWindow (hWnd , 4) <> 0
Style = GetWindowLong (hWnd , -20 )
If Not IsWindowVisible (hWnd ) Then Return False ' Not Visible
< p > Wenn GetParent ( hWnd) < > 0 Then Return False ' Hat Elternteil
(Style And & H80 ) <> 0 And Not IsOwned dann wieder False' Ist Tooltip
(Style And & H40000 ) = 0 und dann wieder IsOwned False ' Hat Besitzer
Wenn Process.GetCurrentProcess.MainWindowHandle = hWnd dann wieder Falsch
Return True' Fenster Valid
End Funktion
private Sub KeyboardButton (ByVal Breite As Integer , ByVal Höhe As Integer , _ ByVal
Top As Integer , ByVal As Integer Linke , _ Optional ByVal
Text As String = " ", _ Optional ByVal
Tag As String = " ", _ Optional ByVal
Besondere As Boolean = False)
Dim Schaltfläche As New Button
