Du kan oprette et tastatur på skærmen med Microsoft Visual Basic -program , som kan downloades fra Microsofts hjemmeside gratis. Visual Basic er en temmelig forståelig program for de fleste mennesker . Programmet blev designet til at bygge sikre og objektorienterede applikationer . Dette program giver udviklere mulighed for at målrette web , mobile enheder og Windows . Skærmtastaturet skabt af Visual Basic giver dig mulighed for at skrive i forskellige programmer på din computer. Instruktioner
1
Start Microsoft Visual Basic.
2
Klik på " Nyt projekt " lige under "File " fanen placeret på værktøjslinjen.
3
Highlight "Windows Form Application " i " Nyt projekt " pop- up-boks .
4
Ændre projektets navn til " Skærmtastatur " eller noget lignende til lettere identificere dit projekt.
5.
Klik på " OK" i højre nederste hjørne af " Nyt projekt " pop- up-boks . En tom formular mærket " Form1 " skulle vises inden for et par sekunder
6
Klik på "Egenskaber Box" placeret på højre side af skærmen og fremhæve " Name" feltet; . Ændre navnet fra " Form1 " til " frmMain " .
7
Fremhæv " FormBorderStyle ", og ændre den nuværende navn til " FixedToolWindow " .
8
Highlight "Størrelse" og ændre nuværende størrelse til " 390.208 " .
9
Highlight "Text" og ændre navnet til " Keyboard " .
10
Highlight " øverste " og skifte til "Sandt " .
11
Udvid ( +) din "fælles kontrol" på " Toolbox" på venstre side af skærmen og vælg " Kombinationsboks " komponent.
12
Draw en ComboBox i "Form" boks, som bør mærkes som "Tastatur " .
13
Klik på ComboBox og derefter gå tilbage til " Properties Box" placeret på højre side af skærmen . Fremhæv " Name " i " Egenskaber Box" og ændre navnet til " cboWindows " .
14
Highlight " DropDownStyle " og ændre navnet til " DropDownList ", og højreklik på "Form" i " Solution Explorer " og vælg " Vis kode "
15
Indtast følgende API Metoder og erklæringer under "Public Class frmMain " : .
»API Methods
< p> Public Erklær Funktion IsWindowVisible Lib " user32.dll " _
Alias " IsWindowVisible " ( ByVal hwnd As Integer ) Som Boolean
Public Erklær Funktion GetWindow Lib " user32.dll " _ < br >
Alias " GetWindow " ( ByVal HWND As Integer , _
ByVal wCmd As Integer ) As Integer
Public Erklær Funktion GetWindowLong Lib " user32.dll " _
< p > Alias " GetWindowLongA " ( ByVal HWND As Integer , _
ByVal nIndex As Integer ) As Integer
Public Erklær Funktion GetParent Lib " user32.dll " _
Alias " GetParent "( ByVal hwnd As Integer ) As Integer
Public Erklær Funktion SetForegroundWindow Lib " user32.dll "_
Alias " SetForegroundWindow "( ByVal hwnd As Integer ) As Integer
< p > ' erklæringer
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 " ," jeg " , " o " , " p " , " [" ,"] "}
Private RowThree As String () = {" a "," s ", " d " , " f " , " g " , " h "," j "," k " , " l " , " "," ' "," # "}
Privat RowFour As String () = {" \\ ", " z" , "x" , "c" , "v" , "b" , "n ", " m" , " ", " . ", " /" }
Private CapsLock Som New CheckBox
Private Key, Special As String
Private Windows som New ArrayList
Privat Window Som IntPtr
< br > 16
Indtast API Metoder og erklæringer under "Event Handlers ":
' hændelseshandlere
Private Sub Key_Special ( ByVal afsender Som Button , _
ByVal e Da System.EventArgs )
p Hvis Special = "" Så
Special = Sender.Tag
Else
Special = ""
< p> End If
End Sub
Private Sub Key_Click ( ByVal afsender Som Button , _
ByVal e Som System.EventArgs )
nøgle = Afsender . Tag
p Hvis Key = " { SPACE }" Så Key = "" ' Konverter { SPACE } til Space
p Hvis Vindue < > 0 Then
SetForegroundWindow ( Window )
SendKeys.SendWait ( Special & IIf ( Capslock.Checked _
og Ikke Special < > " ^" , _
UCase (nøgle ) , Key ) )
SetForegroundWindow (Vindue )
End If
End Sub
17
Indtast dette under "Private Methods " : Hej
' Private Metoder
Private Function IsActiveWindow ( ByVal HWND As Integer ) As Boolean
Dim IsOwned Som Boolean
Dim Style As Integer
IsOwned = GetWindow ( hWnd , 4) < > 0
Style = GetWindowLong ( hWnd , -20 )
p Hvis Ikke IsWindowVisible ( hWnd ) derefter vende tilbage False 'Not Visible
< p > Hvis GetParent ( hWnd ) < > 0 Then Return False ' Har Parent
p Hvis ( Style And & H80 ) < > 0 og ikke IsOwned derefter returnere False ' Er Tooltip
p Hvis ( Style And & H40000 ) = 0 og IsOwned derefter returnere False ' Har Owner
p Hvis Process.GetCurrentProcess.MainWindowHandle = hWnd derefter returnere False
Return True' Window Valid
End funktion
Private Sub KeyboardButton ( ByVal Bredde As Integer , ByVal Højde As Integer , _
ByVal Top As Integer , ByVal Venstre As Integer , _
Valgfri ByVal Text As String = "" , _
Valgfri ByVal Tag As String = "" , _
Valgfri ByVal Special Som Boolean = False )
Dim knap som New Button
< p> Button.Size = Ny Størrelse ( bredde, højde )
Button.Location = Nyt punkt (Venstre , Top )
Button.Text = Tekst
Button.Tag = Tag
p Hvis Special Så
AddHandler Button.Click , AddressOf Key_Special
Else
AddHandler Button.Click , AddressOf Key_Click
End If
Controls.Add ( Button )
End Sub
18
Retur til Design View ved at vælge " Design "-fanen eller højreklikke på " Se Designer " valgmulighed placeret i " Solution Explorer " for frmMain . Inden for Formular Vist , skal du dobbeltklikke på formularen ( frmMain )
19
Indtast følgende i " frmMain_Load ()" sub: .
Dim Col As Integer
'Række En
Col = 0 Til 12
KeyboardButton (25, 25, 40 , Col * 25 + 4 , _
RowOne ( Col ) RowOne ( Col ) )
Næste
KeyboardButton ( 50, 25 , 40, Col * 25 + 4, " BKSP ", " { TILBAGE }" )
'Række to
KeyboardButton (36, 25 , 66, 4, " Tab" , "{ TAB }" )
Col = 0 til 11
KeyboardButton (25, 25 , 66, Col * 25 + 40 , _
UCase ( RowTwo ( Col ) ) , RowTwo ( Col ) )
Næste
KeyboardButton (39, 25 , 66, 36 + Col * 25 + 4, " ↵ ", " { ENTER }" )
'Række Tre
CapsLock.Appearance = Appearance.Button
CapsLock.Size = Ny Size (48 , 25)
CapsLock.Location = Nyt punkt (4, 92)
CapsLock.Text = " Caps "
Controls.Add ( CapsLock )
Col = 0 til 11
KeyboardButton (25, 25 , 92, Col * 25 + 52 , _
UCase ( RowThree ( Col ) ) , RowThree ( Col ) )
Næste
KeyboardButton (27 , 25, 92 , 48 + Col * 25 + 4 , "", "{ ENTER }" )
'Række Fire < br >
KeyboardButton (38 , 25, 118 , 4, "Shift ", " +" , sand)
Col = 0 Til 10
KeyboardButton (25 , 25, 118 , Col * 25 + 42 , _
UCase ( RowFour ( Col ) ) , RowFour ( Col ) )
Næste
KeyboardButton (62, 25 , 118, Col * 25 + 42 , "Shift ", " +" , sand)
'Række Five
KeyboardButton (50 , 25, 144 , 4, "Ctrl ", " ^" , sand) < br >
KeyboardButton (50 , 25, 144 , 54, " Alt" , "%" , sand)
KeyboardButton (154 , 25, 144 , 104, "Rummet" , "{ SPACE }" )
KeyboardButton (44 , 25, 144 , 258, "Home" , "{ HOME }" )
KeyboardButton (44, 25 , 144, 302 , "End" , "{ END } " )
KeyboardButton (33, 25 , 144, 346 , " Del "," { DEL } "
20
Retur til " Code View "ved at dobbeltklikke på Form . de " frmMain_Load " Sub fra det foregående trin skal vises. Der skal være to drop- down bokse i koden View.
21
Vælg " cboWindows " fra den første " frmMain event" drop -down boksen og vælg "dropdown " fra " erklæringer " drop- down box
22
Skriv følgende i " cboWindows_DropDown (...)" Sub: .
Windows . Slet ()
cboWindows.Items.Clear ()
hvert element som Process I Process.GetProcesses
p Hvis IsActiveWindow ( Item.MainWindowHandle ) _
< p> Og Item.MainWindowTitle < > "" Hvis
Næste
Vælg derefter " cboWindows " fra den første drop- down feltet igen placeret i Code View.
Vælg " SelectedIndexChanged " og skriv følgende i " cboWindows_SelectedIndexedChange "Sub : Hej p Hvis cboWindows.SelectedItem < > Ingenting Så
Vindue = Windows.Item ( cboWindows.SelectedIndex )
End If
23
Gem dit projekt, fordi du er færdig.
24
Klik på "Start " og dit skærmtastaturet skal vises.
25
Klik på den røde "X " placeret øverst højre side af boksen for at lukke programmet , når du er færdig.
