Connaissances Informatiques >> programmation >> Visual Basics programmation >> Content
  Derniers articles
  • Comment puis-je écrire Updategrams …
  • Comment créer un navigateur Web à …
  • Comment faire pour envoyer des comma…
  • . Comment utiliser Dll en VBS 
  • Comment désactiver les touches dire…
  • Comment faire un script de connexion…
  • Comment utiliser les références po…
  • Comment faire pour envoyer des comma…
  • Comment utiliser les zones de liste …
  • Comment exporter des données GridVi…
  •   Visual Basics programmation
  • C /C + + Programming

  • Computer Programming Languages

  • Delphi Programming

  • Programmation Java

  • Programmation JavaScript

  • PHP /MySQL Programmation

  • programmation Perl

  • Programmation Python

  • Ruby Programming

  • Visual Basics programmation
  •  
    Visual Basics programmation

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

    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

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

     
    Article précédent:
    Article suivant:
    Articles recommandés
  • Comment utiliser le curseur pour afficher les valeurs en VB 
  • Comment écrire une macro pour imprimer sur un clic de bouton dans Access 2007 
  • ListBox de Visual Basic Tutorial 
  • Tutoriel Visual Basic sur la méthode eval 
  • Comment appeler un package Oracle partir de Visual Basic 
  • Comment désactiver sur Supprimer dans une feuille de calcul dans VBA 
  • Comment augmenter la taille de la pile en Visual Basic 
  • Comment fermer UserForm 
  • Que sont les fichiers de symboles DNN 
  • Comment sortie guillemets dans VBS 
  • Connaissances Informatiques © http://www.ordinateur.cc