|  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Hur man gör ett skärmtangentbord i Visual Basic

    Du kan skapa ett skärmtangentbord med Microsoft Visual Basic-program som kan laddas ner från Microsofts hemsida gratis . Visual Basic är ett ganska förståeligt program för de flesta människor . Programmet har utformats för att bygga säkra och objektorienterade program . Detta program ger utvecklare en chans att rikta webben, mobila enheter och Windows . Tangentbordet på skärmen skapas av Visual Basic låter dig skriva in olika program på datorn . Instruktioner
    1

    Starta Microsoft Visual Basic .
    2

    Klicka på " New Project " precis under "File " fliken på verktygsfältet .
    Sida 3

    Markera " Windows Form Application " i " New Project " pop - up ruta .
    4

    Ändra namnet på projektet till " tangentbordet på skärmen " eller något liknande för att lättare identifiera ditt projekt .
    5

    Klicka på " OK " längst till höger nedre hörnet av " New Project " pop - up ruta . Ett tomt formulär märkt " Form1 " ska visas inom några sekunder
    6

    Klicka på " Properties Box " ligger på höger sida av skärmen och markera " Name " rutan , . Ändra namnet från " Form1 " till " frmMain " .
    7

    Highlight " FormBorderStyle " och ändra det aktuella namnet till " FixedToolWindow " .
    8

    Highlight " Size " och ändra nuvarande storlek till " 390.208 " .
    9

    Highlight " Text " och ändra namnet till " Keyboard " .
    10

    Highlight " översta " och ändra till " Sant " .
    11

    Expandera ( + ) din " Common Controls " på " Toolbox " på vänster sida av skärmen och välj " ComboBox " komponent .
    12

    Draw en ComboBox i " Form " rutan , vilket bör märkas som " Tangentbord " .
    13

    Klicka på ComboBox och sedan gå tillbaka till " Properties Box " ligger på höger sida av skärmen . Markera " Name " i " Properties Box " och ändra namnet till " cboWindows " .
    14

    Highlight " DropDownStyle " och ändra namnet till " DropDownList " och högerklicka på " Form " i " Solution Explorer " och välj " Visa kod "
    15

    Skriv in följande API metoder och förklaringar under " public class frmMain " : .

    API Metoder
    < p > Public Declare Function IsWindowVisible Lib " user32.dll " _

    Alias ​​" IsWindowVisible " ( ByVal HWND As Integer ) As Boolean

    Public Declare Function GetWindow Lib " user32.dll " _

    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 ) As Integer
    < p > ' Deklarationer

    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 " , " jag " , " 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 Som ny CheckBox

    privat nyckel , speciellt som

    String
    Privata Windows As New ArrayList

    Privat Fönster Som IntPtr

    16

    Ange API metoder och förklaringar nedanför " händelsehanterare " :

    " händelsehanterare

    Private Sub Key_Special ( ByVal avsändaren som Button , _

    ByVal e Som System.EventArgs ) katalog p Om Special = " " Då

    Special = Sender.Tag

    Else

    Special = " "
    < p > End If

    End Sub

    Private Sub Key_Click ( ByVal avsändaren som Button , _

    ByVal e Som System.EventArgs ) katalog

    Key = Sender . Tag
    p Om Nyckel = " { SPACE } " Då Key = " " ' Convert { SPACE } till Space
    p Om Window < > 0 Then

    SetForegroundWindow ( fönster ) katalog

    SendKeys.SendWait ( Special & Oom ( Capslock.Checked _

    och inte speciellt < > " ^ " , _

    UCase ( Key ) , Key ) ) katalog

    SetForegroundWindow ( Fönster ) katalog

    End If

    End Sub
    17

    Ange detta under " Privata Methods " :

    " Privata metoder

    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 ) katalog p Om inte IsWindowVisible ( hWnd ) sedan tillbaka False " Inte synlig
    < p > Om GetParent ( hWnd ) < > 0 Then return false " Har Förälder
    p Om ( Style And & H80 ) < > 0 och Inte IsOwned sedan tillbaka False ' Är Tooltip
    p Om ( Stil och & H40000 ) = 0 och IsOwned sedan återvända False "har Ägarens
    p Om Process.GetCurrentProcess.MainWindowHandle = hWnd sedan tillbaka False

    Return Sant ' Window Valid End

    funktion

    Private Sub KeyboardButton ( ByVal Bredd As Integer , ByVal Höjd As Integer , _

    ByVal Top As Integer , Vänster ByVal As Integer , _

    Valfritt ByVal Text As String = " " , _

    Valfritt ByVal Tag As String = " " , _

    Valfritt ByVal Special As Boolean = False ) katalog

    Ljusknapp Som ny knapp
    < p > Button.Size = Ny storlek (bredd , höjd ) katalog

    Button.Location = New Point ( Left , Top ) katalog

    Button.Text = Text

    Button.Tag = Tag
    p Om Special Sedan

    AddHandler Button.Click , AddressOf Key_Special

    Else

    AddHandler Button.Click , AddressOf Key_Click

    End If

    Controls.Add ( Button ) katalog

    End Sub
    18

    tillbaka till designvyn genom att välja " Design "-fliken eller högerklicka på " Visa Designer " alternativ som ligger i " Solution Explorer " för frmMain . Inom Form visas dubbelklickar du på formen ( frmMain )
    19

    Skriv in följande i " frmMain_Load ( ) " sub : .

    Dim Col As Integer

    ' Row En

    För Col = 0 till 12

    KeyboardButton 25 ( , 25 , 40 , Col * 25 + 4 , _

    RowOne ( Col ) , RowOne ( Col ) ) katalog

    Nästa

    KeyboardButton ( 50 , 25 , 40 , Col * 25 + 4 , " BkSp " , "{ BACKSPACE }" ) katalog

    ' Row två

    KeyboardButton ( 36 , 25 , 66 , 4 , " Tab " , " { TAB } " ) katalog

    För Col = 0 till 11

    KeyboardButton 25 ( , 25 , 66 , Col * 25 + 40 , _

    UCase ( RowTwo ( Col ) ) , RowTwo ( Col ) ) katalog

    Nästa

    KeyboardButton 39 ( , 25 , 66 , 36 + Col * 25 + 4 , " ↵ ", " {ENTER }" ) katalog

    ' Rad Tre

    CapsLock.Appearance = Appearance.Button

    CapsLock.Size = Ny storlek ( 48 , 25 ) katalog

    CapsLock.Location = New Point ( 4 , 92 ) katalog

    CapsLock.Text = " Caps "

    Controls.Add ( CapsLock )

    För Col = 0 till 11

    KeyboardButton 25 ( , 25 , 92 , Col * 25 + 52 , _

    UCase ( RowThree ( Col ) ) , RowThree ( Col ) ) katalog

    Nästa

    KeyboardButton 27 ( , 25 , 92 , 48 + Col * 25 + 4 , "", " {ENTER }" ) katalog

    ' Row Fyra

    KeyboardButton ( 38 , 25 , 118 , 4 , " Shift " , " + " , Sant ) katalog

    För Col = 0 till 10

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur man gör VBS skript
    ·Vad är UBound i VB
    ·Klasser och funktioner i VB.Net
    ·Hur man använder en DLL i VB.NET
    ·Hur behärska VBA för Microsoft Office 2007
    ·Komma åt Textruta trunkera data
    ·Hur skapar jag en länk till en extern kalkylblad Via V…
    ·Hur man gör en Weekly Lön på Visual Basic
    ·JPEG File Recovery
    ·Hur man använder Crystal Report kontroll i Visual Basi…
    Utvalda artiklarna
    ·Hur man skapar en AVD Path i Android
    ·Hur du använder Modulus Med Double
    ·Hur man tar bort en nolla från decimaltal i PHP
    ·Hur du anpassar grammatikkontroll Använda Office XP
    ·XML Tool Tips Tutorial
    ·Inaktivera en Trusted Handler
    ·Hur man sätter i en Grid View
    ·Hur att fånga och lagra bilder från en webbkamera i J…
    ·Hur man skapar en Func_Train i GtkRadiant
    ·Hur vill kolla om en Array Index Finns i PHP
    Copyright © Dator Kunskap http://www.dator.xyz