Ako si vyrobiť klávesnice na obrazovke v jazyku Visual Basic

Môžete vytvoriť klávesnica na obrazovke s Microsoft Visual Basic , ktorý si môžete stiahnuť z webových stránok Microsoftu zadarmo . Visual Basic je celkom pochopiteľné , program pre väčšinu ľudí . Program bol navrhnutý pre vytváranie bezpečných a objektovo - orientované aplikácie . Tento program dáva vývojárom možnosť zamerať sa na web , mobilné zariadenia a Windows . Klávesnica na obrazovke vytvorený Visual Basic umožňuje zadať do rôznych aplikácií na vašom počítači . Pokyny dovolená 1

Spustite program Microsoft Visual Basic .
2

Kliknite na " New Project " priamo pod " Súbor " kartu umiestnené na paneli nástrojov .
sims 3

Highlight " Windows Form Aplikácia " v " Nový projekt " pop - up okne .
4

Zmeniť názov projektu " klávesnice na obrazovke " , alebo niečo podobné , aby lepšie identifikovať váš projekt .
5

Kliknite na tlačidlo " OK " v pravom dolnom rohu " Nový projekt " pop - up okne . Prázdny formulár označený " Form1 " by sa mala objaviť v priebehu niekoľkých sekúnd
6

Kliknite na " Vlastnosti Box " , sa nachádza na pravej strane obrazovky a označte " Name " poľa ; . Zmeniť názov z " Form1 " na " frmMain " .
7

Highlight " FormBorderStyle " a zmeniť existujúce názov " FixedToolWindow " .
8

Highlight " Size " a zmeňte aktuálnu veľkosť na " 390208 " .
9

Highlight " Text " a zmeniť názov na " Keyboard " .
10

Zvýraznite " najvyšší" a zmeňte na " true " .
11

Zväčšiť ( + ) svoje " spoločné prvky " na " Toolbox " na ľavej strane obrazovky a vyberte možnosť " ComboBox " zložku .
12

Draw ComboBox vo " forme " box , ktorý by mal byť označený ako " Keyboard " .
13

Kliknite na ComboBox a potom sa vrátiť do " Vlastnosti box " , sa nachádza na pravej strane obrazovky . Zvýraznite " Názov " v " Vlastnosti Box " a zmeniť názov na " cboWindows " .
14

Highlight " dropDownStyle " a zmeniť názov na " DropDownList " a kliknite pravým tlačidlom myši na " Form " v . " Solution Explorer " a vyberte " Zobraziť kód "
15

Typ nasledujúcich metód API a vyhlásenie pod " Public Class frmMain " :

metódy " API

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

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

" Vyhlásenie

Súkromná RowOne As String ( ) = { " ` " , " 1 " , " 2 " , " 3 " , " 4 " , " 5 " , " 6 " , " 7 " , " 8 " , " 9 " , " 0 " , " - " , " = " } celým

Private RowTwo As String ( ) = { " q " , " w " , " e " , " r " , " t " , " y " , " u " , " i " , " o " , " p " , " [ " , " ] " }

Súkromná RowThree As String ( ) = { " a " , " s " , " d " , " f " , " g " , " h " , " j " , " k " , " L " , " , " , " ' " , " # " } celým

Private RowFour As String ( ) = { " \\ " , " z " , " x " , "c " , " v " , " b " , " n" , " m " , " , " , " . " , " /" }

Súkromná CapsLock ako New checkbox

privátnym kľúčom , Špeciálne As String

Súkromné ​​Windows As New ArrayList

Súkromné ​​okno ako IntPtr

16

Zadajte Metódy API a vyhlásenie pod " obsluhy udalostí " :

" obsluhy udalostí

Private Sub Key_Special ( byval odosielateľa Ako Button , _

byval e ako System.EventArgs )

Ak Special = " " Tak

Special = Sender.Tag

Else

Special = " "

End If

End Sub

Private Sub Key_Click ( byval odosielateľa Ako Button , _

Bývalá e As System.EventArgs )

key = odosielateľa . Tag

Key = " { SPACE } " Potom Key = " " ' Konvertovať { SPACE } Space

okná < > 0 Then

SetForegroundWindow ( window )

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

a nie Špeciálne < > " ^ " , _

UCAS ( Key ) , Key ) )

SetForegroundWindow ( Window )

End If

End Sub
17

Zadajte tento pod " Private metódy " :

' súkromné ​​metódy

private function IsActiveWindow ( byVal hWnd As Integer ) As Boolean

Dim IsOwned As Boolean

Dim štýle As Integer

IsOwned = GetWindow ( hWnd , 4 ) < > 0

Style = GetWindowLong ( hWnd , -20 )

Ak nie je IsWindowVisible ( hWnd ) potom vráti false " nie je vidieť

Ak GetParent ( hWnd ) < > 0 Then Return False " Má rodič

( Štýl a & H80 ) < > 0 a nie IsOwned potom sa vráti False " Je Tooltip

( Štýl a & H40000 ) = 0 a IsOwned potom sa vráti false " Má Majiteľ klipart

Ak Process.GetCurrentProcess.MainWindowHandle = hWnd potom vráti false

return true ' window Valid

End
funkcie

Private Sub KeyboardButton ( byVal Šírka As Integer , byVal Výška As Integer , _ byVal

Hore As Integer , byVal Left As Integer , _

Voliteľné byVal text As String = " " , _

Voliteľné byVal Tag As String = " " , _

Voliteľné byVal Špeciálne As Boolean = False )

Dim Button As New Button

Button.Size = New Size ( šírka , výška )

Button.Location = New Point ( Left , Top )

Button.Text = Text

Button.Tag = Tag

Ak Špeciálne Potom

AddHandler Button.Click , AddressOf Key_Special

Else

AddHandler Button.Click , AddressOf Key_Click

end If

Controls.Add ( Button )

end Sub
18

Späť na návrhovom zobrazení vyberiete kartu " design " alebo pravým tlačidlom myši na " Zobraziť Designer " voľba sa nachádza v " Solution Explorer " pre frmMain . V zobrazení formulára , dvakrát kliknite na formulári ( frmMain )
19

Zadajte nasledujúce do " frmMain_Load ( ) " sub : .

Dim Col As Integer

' Riadok Jedna mladá

Col = 0 až 12

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

RowOne ( Col ) , RowOne ( Kol. ) )

Ďalšie

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

" Row dve mladé

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

Col = 0 11

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

UCAS ( RowTwo ( Kol. ) ) , RowTwo ( Kol. ) )

Ďalšie

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

" Riadok tri

CapsLock.Appearance = Appearance.Button

CapsLock.Size = New Size ( 48 , 25 )

CapsLock.Location = New Point ( 4 , 92 )

CapsLock.Text = " Caps "

Controls.Add ( CapsLock )

Col = 0 11

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

UCAS ( RowThree ( Kol. ) ) , RowThree ( Col ) )

Ďalšie

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

" Riadok štyri

KeyboardButton ( 38 , 25 , 118 , 4 , " Shift " , " + " , true )

Col = 0 až 10

KeyboardButton ( 25 , 25 , 118 , Col * 25 + 42 , _

UCAS ( RowFour ( Kol. ) ) , RowFour ( Kol. ) )

Ďalšie

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 , " Space " , " { SPACE } " )

KeyboardButton ( 44 , 25 , 144 , 258 , " Home " , " { HOME } " )

KeyboardButton ( 44 , 25 , 144 , 302 , " Koniec " , " { END } " )

KeyboardButton ( 33 , 25 , 144 , 346 , " Del " , " { DEL } "
20

Späť na " zobrazenie kódu " poklepaním na by sa mali objaviť formulár . " frmMain_Load " Sub z predchádzajúceho kroku . Tam by mala byť dve drop - dole boxy v zobrazení kódu.
21

zvoľte " cboWindows " z prvej " frmMain Event " pokles . - down box a zvoľte " rozbaľovacej ponuky " z " deklaráciou " drop - dole baliť do krabice
22

Zadajte nasledujúci príkaz do poľa " cboWindows_DropDown ( ... ) " Sub :

Windows . Clear ( )

cboWindows.Items.Clear ( )

pre každú položku procesu v Process.GetProcesses

Ak IsActiveWindow ( Item.MainWindowHandle ) _

A Item.MainWindowTitle < > " " Ak

Ďalšie

Potom vyberte " cboWindows " z prvého rozbaľovacieho zoznamu opäť umiestnený v zobrazení kódu.

Zvoľte " SelectedIndexChanged " a zadajte nasledujúci príkaz do " cboWindows_SelectedIndexedChange " Sub :

Ak cboWindows.SelectedItem < > Nic Potom

Window = Windows.It ( cboWindows.SelectedIndex )

End If
23

Uložte projekt , pretože budete hotoví .
24

Kliknite na tlačidlo " Štart " a malo by byť vaša klávesnica na obrazovke .
25.

Kliknite na červené " X " sa nachádza v pravej hornej časti okna zatvorte aplikácie , keď ste hotoví .

• Predchádzajúca strana: Ako používať VB6 Inet Controls 
• Ďalšia strana: Ako previesť reťazec na celé čísla vo VB.NET