È possibile creare una tastiera su schermo con il programma di Microsoft Visual Basic , che può essere scaricato dal sito Web di Microsoft per libero . Visual Basic è un programma abbastanza comprensibile per la maggior parte delle persone . Il programma è stato progettato per la creazione di applicazioni sicure e orientato agli oggetti . Questo programma offre agli sviluppatori la possibilità di indirizzare il web, i dispositivi mobili e Windows. La tastiera su schermo creato da Visual Basic consente di digitare in diverse applicazioni sul computer. Istruzioni
1
Avviare Microsoft Visual Basic.
2
Cliccare su "Nuovo Progetto" proprio sotto la scheda " File " che si trova sulla barra degli strumenti .
3
Highlight "Applicazione Windows Form " nel " New Project" di dialogo pop - up .
4
Cambiare il nome del progetto di "Tastiera su schermo " o qualcosa di simile alla più facile identificare il progetto.
5
Fare clic su " OK" nella parte destra in basso della "New Project" finestra di pop - up . Un modulo vuoto etichettato " Form1 " dovrebbe apparire nel giro di pochi secondi
6
Clicca su " Proprietà casella " posta sul lato destro dello schermo e selezionare la casella "Nome" , . Cambiare il nome da " Form1 " a " frmMain " .
7
Highlight " FormBorderStyle " e cambiare il nome attuale di " FixedToolWindow " .
8
Highlight " Dimensione " e modificare il dimensione attuale di
9
evidenziare "SMS "
10
Highlight " TopMost " " 390.208 " . e cambiare il nome in " tastiera" . cambiare e su "True" .
11
espansione (+ ) i vostri " Common Controls " in " Strumenti " nella parte sinistra dello schermo e selezionare componente " ComboBox " .
12
Draw una ComboBox nella casella " Form" , che dovrebbe essere etichettato come "Tastiera" .
13
Cliccare sulla casella combinata e quindi tornare alla " Proprietà casella " posta sul lato destro dello schermo . Evidenziare "Nome" nel " dialogo Proprietà " e modificare il nome in " cboWindows " .
14
Highlight " DropDownStyle " e cambiare il nome in " DropDownList " e fare clic destro su " Form" in " Solution Explorer " e selezionare " Visualizza codice "
15
Digitare i seguenti metodi API e le dichiarazioni di seguito la "Classe frmMain pubblica" : .
' API Metodi
< p > Public Declare Function IsWindowVisible Lib " user32.dll " _
Alias " IsWindowVisible " ( ByVal hwnd As Integer) As Boolean
Public Declare Function GetWindow Lib " user32.dll " _ < br
Alias > " GetWindow " ( ByVal hwnd As Integer , _ ByVal
wCmd As Integer) As Integer
Public Declare Function GetWindowLong Lib " user32.dll " _
< p > Alias " GetWindowLongA " ( ByVal hwnd As Integer , _ ByVal
nIndex As Integer) As Integer
Public Declare Function GetParent Lib " user32.dll " _
Alias " GetParent " ( ByVal hwnd As Integer ) As Integer
Public Declare Function SetForegroundWindow Lib " user32.dll "_
Alias " SetForegroundWindow " ( ByVal hwnd As Integer) Come
Integer < p > ' Dichiarazioni
RowOne privato As String ( ) = { "` " ," 1 " ," 2 " ," 3 "," 4 "," 5 " ," 6 "," 7 "," 8 " , " 9 " , " 0 " , " - " , " = " }
RowTwo privato As String ( ) = { " q " , " w " , " e ", " r " , " t " , " y " , " u " , " i " , " o ", " p " , " [ " , " ] "}
RowThree privato As String ( ) = { " a " , " s " , " d " , " f " , " g " , " h " , " j " , " k " , " l " , " , " , " ' " , " # "}
privato RowFour As String ( ) = { " \\ " , " z" , " x " , "c" , " v" , "b" , " n" , " m " , " , ", " . ", " /" }
BlocMaiusc privato As New CheckBox
chiave privata , speciale As String
di Windows privata As New ArrayList
finestra privato Come
IntPtr < br > 16
Inserisci i metodi dell'API e delle dichiarazioni di seguito i " gestori di eventi ":
' gestori di eventi
private Sub Key_Special ( ByVal sender As Button , _ ByVal
e come System.EventArgs ) per
speciale = " " Allora
speciale = Sender.Tag
Else
speciale = " "
< p > End If End Sub
private Sub Key_Click ( ByVal sender As Button , _
ByVal e As System.EventArgs ) per
chiave = mittente . Tag
chiave = " { SPACE } ", quindi il tasto = " " ' Convert { SPACE } a Spazio
finestra < > 0 Then
SetForegroundWindow ( window ) per
SendKeys.SendWait ( Special & IIf ( Capslock.Checked _
e non è speciale < > " ^ " , _
UCase (chiave) , Chiave ) ) per
SetForegroundWindow (Finestra ) per
End If End Sub
17
Inserisci questo di seguito i " metodi privati " :
' metodi privati
private Function IsActiveWindow ( ByVal hWnd As Integer) As Boolean Dim
isowned come booleano
Dim Style As Integer
isowned = GetWindow ( hWnd , 4) < > 0
Style = GetWindowLong ( hWnd , -20 ) per
Se Non IsWindowVisible ( hWnd ) per poi tornare False '
non visibile < p > Se GetParent ( hWnd ) < > 0 Then return false 'ha Parent
( Style And & H80 ) < > 0 And Not isowned poi tornare False ' è Tooltip
( stile e & H40000 ) = 0 e isowned poi tornare False ' Ha un proprietario
Process.GetCurrentProcess.MainWindowHandle = hWnd poi tornare False
Return True' finestra Valid
End funzione
private Sub KeyboardButton ( ByVal Larghezza As Integer , ByVal Altezza As Integer , _ ByVal
Top As Integer , ByVal Sinistra As Integer , _ ByVal
Testo opzionale As String = " " , _
opzionale Tag ByVal As String = " " , _ Optional ByVal
speciale As Boolean = false ) per
Dim pulsante As New Button
