Comment faire un clavier à l'écran dans Visual Basic

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

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 " _

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

« 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é.