Vous pouvez créer un clavier à l'écran avec le programme Microsoft Visual Basic , qui peut être téléchargé à partir du site Web de Microsoft gratuitement. Visual Basic est un programme assez compréhensible pour la plupart des gens . Le programme a été conçu pour développer des applications sûres et orientée objet. Ce programme donne aux développeurs la possibilité de cibler le Web, les appareils mobiles et Windows. Le clavier virtuel créé par Visual Basic vous permet de taper dans différentes applications sur votre ordinateur. Instructions
1
Démarrez Microsoft Visual Basic.
2
Cliquez sur "Nouveau projet" juste en dessous de l'onglet "Fichier" situé sur la barre d'outils .
Hôtels 3 Highlight
" application Windows Form " dans le " New Project " boîte pop-up .
4
Changer le nom du projet de « clavier à l'écran " ou quelque chose de semblable à faciliter identifier votre projet.
5
Cliquez sur "OK" dans le coin en bas à droite de la " New Project " boîte pop-up . Un formulaire vierge intitulé " Form1 " devrait apparaître en quelques secondes
6
Cliquez sur le " Box Propriétés" situé sur le côté droit de l'écran et sélectionnez le champ "Nom " ; . Changer le nom de « Form1 » à « frmMain " .
7
Highlight " FormBorderStyle " et changer le nom actuel de « FixedToolWindow " .
8
Highlight " Taille " et changer le taille actuelle de " 390 208 " .
9
Highlight " texte " et changer le nom de «Clavier» .
10
Highlight " TopMost " et changez la valeur "True " .
11
Développer (+) vos " contrôles communs " sur la " boîte à outils " sur le côté gauche de l'écran et sélectionnez composante « ComboBox ».
12
tirage une zone de liste déroulante dans la boîte "Form" , qui doit être étiqueté comme «Clavier» .
13
Cliquez sur la zone de liste déroulante et ensuite revenir à la "Boîte Propriétés" situé sur le côté droit de l'écran . Mettez en surbrillance "Nom" dans la case " Propriétés" et changer le nom de « cboWindows " .
14
Highlight " DropDownStyle " et changer le nom de " DropDownList " et clic-droit sur "Form" dans "Solution Explorer" et choisissez " Afficher le code "
15 Type
dans les méthodes de l'API et déclarations ci- dessous de la "Classe frmMain publique ": .
' API Méthodes
< p > Public Declare Function Lib IsWindowVisible " user32.dll " _
Alias " IsWindowVisible " ( ByVal hwnd As Integer ) comme déclarez Boolean
public 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 _
Alias " user32.dll " " GetParent " ( ByVal hwnd As Integer ) As Integer
public Declare Function SetForegroundWindow Lib" user32.dll "_
Alias" SetForegroundWindow " ( ByVal hwnd As Integer ) As Integer
< p > « Déclarations
RowOne privé As String ( ) = { " `" , "1" , "2" , "3" , "4" , "5" , "6 ", " 7 ", " 8 "," 9 "," 0 "," - "," = " }
de RowTwo privé As String ( ) = {" q "," w "," e "," r "," t " ," y " , " u " ," i " , " o " , " p "," [ "," ] "}
RowThree privé As String ( ) = {" a "," s "," d "," f "," g " , " h " ," j " , " k " ," l " , ", " , " " ", " #" }
privé RowFour comme corde ( ) = {" \\", " z ", " x " , "c" , "v" , "b", "n" , "m" , "," , " . ", " /" }
CapsLock privé en tant que nouvelle case à cocher
clé privée , spécial comme corde
de Windows privés As New ArrayList
privée Fenêtre Comme IntPtr
< br > 16
Entrez les méthodes de l'API et déclarations ci-dessous les « gestionnaires d'événements »: gestionnaires d'événements
'
Private Sub Key_Special ( sender Comme Button, _ ByVal
e As System.EventArgs )
spéciale = "" Then
spécial = Sender.Tag
Else
spéciale = ""
< p> End If End Sub
Private Sub Key_Click ( sender Comme Button, _
ByVal e As System.EventArgs )
Key = Sender . Tag
touche = "{ SPACE }" puis sur la touche = "" ' Convert { SPACE } pour l'espace
Si la fenêtre < > 0 Then
SetForegroundWindow ( fenêtre )
SendKeys.SendWait (Special & IIf ( Capslock.Checked _
Non spécial <> "^", _
UCase (Key) , Key ) )
SetForegroundWindow (Fenêtre )
End If End Sub
17
Entrez ci-dessous présente les « méthodes privées " :
« méthodes privées
Private Function IsActiveWindow ( ByVal hWnd As Integer ) As Boolean
Dim IsOwned As Boolean
Dim style As Integer
IsOwned = GetWindow ( hWnd , 4) <> 0
style = GetWindowLong ( hWnd , -20 )
If Not IsWindowVisible ( hWnd ) puis retour False '
Non Visible
Si GetParent ( hWnd ) < > 0 Then return false " A Parent
(style And & H80 ) <> 0 And Not IsOwned Puis return false " est Tooltip
(style And & H40000 ) = 0 et IsOwned Puis return false " A propriétaire
Si Process.GetCurrentProcess.MainWindowHandle = hWnd Puis return false
Return True ' fenêtre valide
Fin fonction:
Private Sub KeyboardButton (Largeur ByVal As Integer , ByVal hauteur As Integer , _ ByVal
Haut As Integer , ByVal Gauche As Integer , _
option texte ByVal As String = "", _
option Tag ByVal As String = "", _
option ByVal Special As Boolean = False )
Bouton Bouton As New
< p> Button.Size = New Dimension (largeur , hauteur)
Button.Location = new Point ( gauche, Haut )
Button.Text = texte Clip
Button.Tag = Tag
spécial a ensuite
AddHandler Button.Click , AddressOf Key_Special
Else
AddHandler Button.Click , AddressOf Key_Click
End If
Controls.Add (Button)
End Sub
18
Retourner à la vue de conception en sélectionnant l'onglet " design" ou un clic droit sur l' "Voir designer option" situé dans le " Solution Explorer " pour frmMain . Dans le formulaire affiché , double- cliquez sur le formulaire ( frmMain )
19
Tapez la commande suivante dans " frmMain_Load ( )" sous : .
Col As Integer
' Row One of
Col = 0 To 12
KeyboardButton (25, 25 , 40, Col * 25 + 4, _
RowOne (Col ) , Row RowOne (Col ) )
Suivant
KeyboardButton (50, 25, 40, Col * 25 + 4, « BkSp ", " { BACKSPACE }")
' deux
KeyboardButton (36 , 25, 66 , 4, " Tab ", " { TAB }")
Col = 0 To 11
KeyboardButton (25, 25 , 66, Col * 25 + 40, _
UCase ( RowTwo (Col ) ) , RowTwo (Col ) )
Suivant
KeyboardButton (39, 25 , 66, 36 + Col * 25 + 4, "↵ ", " { } ENTRER " )
' Row Trois
CapsLock.Appearance = Appearance.Button
CapsLock.Size = Nouveau Taille (48, 25)
CapsLock.Location = new Point (4, 92)
CapsLock.Text = " Caps"
Controls.Add ( verrouillage des majuscules ) Photos
Col = 0 To 11
KeyboardButton (25, 25 , 92, Col * 25 + 52, _
UCase ( RowThree (Col ) ) , RowThree (Col ) )
Suivant
KeyboardButton (27, 25 , 92, 48 + Col * 25 + 4, "", " { } ENTRER " )
' Row quatre
KeyboardButton (38, 25 , 118, 4, "Shift" , "+" , True)
Col = 0 To 10
KeyboardButton (25, 25 , 118 , Col * 25 + 42, _
UCase ( RowFour (Col ) ) , RowFour (Col ) )
Suivant
KeyboardButton (62, 25 , 118, Col * 25 + 42, "Shift" , "+" , True)
' Row Five
KeyboardButton ( 50, 25, 144 , 4, " Ctrl ", " ^ ", true)
KeyboardButton ( 50, 25, 144 , 54, "Alt" , "%" , True)
KeyboardButton (154, 25 , 144, 104, "Espace", "{ SPACE }" )
KeyboardButton (44 , 25, 144 , 258, "Home ", " {HOME }")
KeyboardButton (44 , 25, 144 , 302, "End ", " {END } ")
KeyboardButton (33, 25 , 144, 346 , " Del "," {DEL } "
20
retour au« Code View " en double- cliquant sur le formulaire . The Sub " de frmMain_Load " de l'étape précédente devrait apparaître . Il devrait y avoir deux listes déroulantes dans le Code View.
21
Sélectionnez " cboWindows " dans le premier menu " Event frmMain " déroulante et sélectionnez " déroulant" dans les "Déclarations " boîte déroulante
22
Tapez le suivant dans la " cboWindows_DropDown (...) " Sub : .
de Windows . clear ()
cboWindows.Items.Clear ()
pour chaque élément en tant que processus Dans Process.GetProcesses
Si IsActiveWindow ( Item.MainWindowHandle ) _
< p> Et Item.MainWindowTitle <> "" Si
Suivant
puis sélectionnez " cboWindows " à partir de la première liste déroulante située dans le nouveau code View.
Choisissez " SelectedIndexChanged " et tapez la commande suivante dans " cboWindows_SelectedIndexedChange "Sub :
Si cboWindows.SelectedItem <> Rien Puis
Window = Windows.Item ( cboWindows.SelectedIndex )
End If
23
Enregistrez votre projet , parce que vous avez terminé.
24
Cliquez sur "Démarrer" et votre clavier à l'écran devrait apparaître.
25
Cliquez sur le bouton rouge " X " situé sur le côté supérieur droit de la case pour fermer l'application lorsque vous avez terminé.
