Start Microsoft Visual Basic .

Klik 2 op " New Project " rechts onder het tabblad " File " op de werkbalk .

Highlight " Windows Form Application " 3 in de " New project " pop - up box .
4

Verander de naam van het project om " schermtoetsenbord " of iets dergelijks om gemakkelijker identificeren uw project .
5

Klik op " OK " aan de rechter benedenhoek van de " New project " pop - up box . Een blanco formulier label " Form1 " moet verschijnen binnen enkele seconden
6

Klik op de "Eigenschappen Box" zich aan de rechterkant van het scherm en markeer het vak "Naam" ; . Verander de naam van " Form1 " naar " frmMain " .

Highlight 7 " FormBorderStyle " en wijzig de huidige naam aan " FixedToolWindow " .

Highlight " Size " 8 en verander de huidige grootte om " 390208 " .

Highlight 9 " tekst " en verander de naam in "Toetsenbord " .

Highlight 10 " TopMost " en veranderen in " True " .
11

Expand ( + ) uw " Common Controls " op de " Toolbox " aan de linkerkant van het scherm en selecteer " ComboBox " component.

Draw 12 een ComboBox in het vak " Vorm " , die moeten worden geëtiketteerd als "Toetsenbord" .
13

Klik op de ComboBox en dan terug te gaan naar de "Eigenschappen box" zich aan de rechterkant van het scherm . Markeer " Naam " in de " Box Eigenschappen" en verander de naam in " cboWindows " .

Highlight " DropDownStyle " 14 en verander de naam in " DropDownList " en klik met de rechtermuisknop op " Form" in " Solution Explorer " en kies "View Code "

Typ 15 in de volgende API- methoden en verklaringen onder de "Public Class frmMain " : .

' API Methoden

Public Declare Function IsWindowVisible Lib " user32.dll " _

Alias ​​
" IsWindowVisible " ( ByVal hwnd As Integer ) als Boolean

Public
Declare Function GetWindow Lib " user32.dll " _ < br

Alias ​​> " GetWindow " ( ByVal hwnd As Integer , _

ByVal WCMD als Geheel ) als Geheel

Public
Declare Function GetWindowLong Lib " user32.dll " _

Alias ​​" GetWindowLongA " ( ByVal hwnd As Integer , _ ByVal

nIndex als Geheel ) als Geheel

Public
Declare Function GetParent Lib " user32.dll " _

Alias ​​
" GetParent " ( ByVal hwnd As Integer ) als Geheel

Public
Declare Function SetForeGroundWindow Lib " user32.dll " _

Alias ​​
" SetForeGroundWindow " ( ByVal hwnd As Integer ) als Geheel

' verklaringen

Private RowOne As String ( ) = { " ' " , " 1 " , " 2 " , " 3 " , " 4 " , " 5 " , " 6 " , " 7 " , " 8 " , " 9 " , " 0 " , " - " , " = " }

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

Prive RowThree
As String ( ) = { " a " , " s " , " d " , " f " , " g " , " h " , " j " , " k " , " l " , ", " , " " " , " # " }

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

Prive CapsLock
Als Nieuw CheckBox

Private Key , speciaal als Koord

Prive Windows Zoals New ArrayList

Prive Venster
Zoals IntPtr
< br > 16

Vul de API Methoden en verklaringen onder de " Event Handlers " :

'Event Handlers

Private Sub Key_Special ( ByVal afzender als Button , _ ByVal

e als System.EventArgs ) op Twitter

Als = " " dan

Special = Sender.Tag

Else

Special = " "
Special

End If

End of Sub

Private Sub Key_Click ( ByVal afzender als Button , _

ByVal e als System.EventArgs )

Key
= Afzender . Tag

Als Key = " { SPACE } " dan Key = " " ' Convert { SPACE } naar Space

Als Venster < > 0 Then

SetForeGroundWindow
( venster ) op

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

And Not Special < > " ^ " , _

UCase
(Key ) , Key ) )

SetForeGroundWindow
(Venster )

End
Als

End Sub
17

Vul dit onder de " Private Methods " :

'Private Methoden

Private Function IsActiveWindow ( ByVal hWnd As Integer ) op Twitter Zoals Boolean

Dim isowned zoals Van Boole

Dim Stijl
als Geheel

isowned = GetWindow ( hWnd , 4 ) < > 0

Style
= GetWindowLong ( hWnd , -20 ) op Twitter

Als Niet IsWindowVisible ( hWnd ) dan Return False ' niet zichtbaar

Als GetParent ( hWnd ) < > 0 Then Return False ' Heeft Parent

Als ( Style And & H80 ) < > 0 en Niet isowned dan Return False ' Is Tooltip

Als ( Stijl en & H40000 ) = 0 en isowned dan Return False ' Heeft Eigenaar

Als Process.GetCurrentProcess.MainWindowHandle = hWnd Terug dan False

Return
True ' Window Valid

End
functie

Private Sub KeyboardButton ( ByVal Breedte
As Integer , ByVal Hoogte As Integer , _ ByVal

Top of als Geheel , ByVal Left As Integer , _

Facultatieve ByVal tekst
als Koord = " " , _

Facultatieve ByVal Tag
As String = " " , _

Facultatieve ByVal Speciale zoals Van Boole =

Dimmer False ) op als nieuwe Button

Button.Size = New grootte ( breedte, hoogte )

Button.Location
= New Point ( Left , Top )

Button.Text = tekst

Button.Tag
= Tag

Als Special dan

AddHandler Button.Click , AddressOf Key_Special

Else

AddHandler Button.Click
, AddressOf Key_Click

end If

Controls.Add ( Button ) op

end Sub
18

Terug naar de Ontwerpweergave door het tabblad " Ontwerp" of rechts te klikken op de " Bekijk Ontwerper " optie in de " Solution Explorer " voor frmMain . Binnen het formulier weergegeven , dubbelklikt u op het formulier ( frmMain )
19

Typ het volgende in " frmMain_Load ( ) " sub : .

Dim Col
als Geheel

' Rij Een

Col = 0 To 12

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

RowOne
( Col ) , RowOne ( Col ) )

Volgende

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

' Rij twee

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

Col = 0 To 11

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

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

Volgende

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

' Rij Drie

CapsLock.Appearance
= Appearance.Button

CapsLock.Size
= Nieuw Maat ( 48 , 25 )

CapsLock.Location
= New Point ( 4 , 92 )

CapsLock.Text = "Caps "

Controls.Add
( CapsLock )

Col = 0 To 11

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

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

Volgende

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

' Rij Vier < br

KeyboardButton ( 38 , 25 , 118 , 4 , "Shift " , " + " , True ) op Twitter

Col = 0 To 10

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

UCase
( RowFour ( Col ) ) , RowFour ( Col ) )

Volgende

KeyboardButton ( 62 , 25 , 118 , Col
* 25 + 42 , "Shift " , " + " , True ) op Twitter

' Rij Vijf

KeyboardButton
( 50 , 25 , 144 , 4 , " Ctrl " , " ^ " , True ) < br

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 , "End " , " { END } " )

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

Terug naar de " code View " door dubbel te klikken op het formulier . de " frmMain_Load " Sub uit de vorige stap moet verschijnen . Er moeten twee drop- down boxen in de codeweergave .
21

Selecteer " cboWindows " van de eerste " frmMain Event " drop - down box en selecteer " dropDown " van de " verklaringen " drop - down box

Type 22 het volgende in het " cboWindows_DropDown ( ... ) " Sub : .

Windows
. wissen ( )

cboWindows.Items.Clear ( ) op

Voor elk item als proces In Process.GetProcesses

Als IsActiveWindow ( Item.MainWindowHandle ) _

En Item.MainWindowTitle < > " " Als

Volgende

Selecteer vervolgens " cboWindows " van de eerste drop-down box weer in de codeweergave .

Kies " SelectedIndexChanged " en typ het volgende in " cboWindows_SelectedIndexedChange " Sub :

Als cboWindows.SelectedItem < > Niets

Window dan
= Windows.Item ( cboWindows.SelectedIndex )

Eind
Als
23

Sla uw project , omdat je klaar bent .
24

Klik op "Start" en uw schermtoetsenbord moeten verschijnen .
25

Klik op de rode " X " gelegen op de top rechts van het vak om de toepassing te sluiten als u klaar bent .