Come fare una tastiera su schermo in Visual Basic

È possibile creare una tastiera su schermo con il programma di Microsoft Visual Basic , che può essere scaricato dal sito Web di Microsoft per libero . Visual Basic è un programma abbastanza comprensibile per la maggior parte delle persone . Il programma è stato progettato per la creazione di applicazioni sicure e orientato agli oggetti . Questo programma offre agli sviluppatori la possibilità di indirizzare il web, i dispositivi mobili e Windows. La tastiera su schermo creato da Visual Basic consente di digitare in diverse applicazioni sul computer. Istruzioni
1

Avviare Microsoft Visual Basic.
2

Cliccare su "Nuovo Progetto" proprio sotto la scheda " File " che si trova sulla barra degli strumenti .

3

Highlight "Applicazione Windows Form " nel " New Project" di dialogo pop - up .
4

Cambiare il nome del progetto di "Tastiera su schermo " o qualcosa di simile alla più facile identificare il progetto.
5

Fare clic su " OK" nella parte destra in basso della "New Project" finestra di pop - up . Un modulo vuoto etichettato " Form1 " dovrebbe apparire nel giro di pochi secondi
6

Clicca su " Proprietà casella " posta sul lato destro dello schermo e selezionare la casella "Nome" , . Cambiare il nome da " Form1 " a " frmMain " .
7

Highlight " FormBorderStyle " e cambiare il nome attuale di " FixedToolWindow " .
8

Highlight " Dimensione " e modificare il dimensione attuale di
9

evidenziare "SMS "
10

Highlight " TopMost " " 390.208 " . e cambiare il nome in " tastiera" . cambiare e su "True" .
11

espansione (+ ) i vostri " Common Controls " in " Strumenti " nella parte sinistra dello schermo e selezionare componente " ComboBox " .
12

Draw una ComboBox nella casella " Form" , che dovrebbe essere etichettato come "Tastiera" .
13

Cliccare sulla casella combinata e quindi tornare alla " Proprietà casella " posta sul lato destro dello schermo . Evidenziare "Nome" nel " dialogo Proprietà " e modificare il nome in " cboWindows " .
14

Highlight " DropDownStyle " e cambiare il nome in " DropDownList " e fare clic destro su " Form" in " Solution Explorer " e selezionare " Visualizza codice "
15

Digitare i seguenti metodi API e le dichiarazioni di seguito la "Classe frmMain pubblica" : .

' API Metodi

Public Declare Function IsWindowVisible Lib " user32.dll " _

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

Public Declare 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 " user32.dll " _

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

Public Declare Function SetForegroundWindow Lib " user32.dll "_

Alias ​​" SetForegroundWindow " ( ByVal hwnd As Integer) Come
Integer

' Dichiarazioni

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

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

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

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

BlocMaiusc privato As New CheckBox

chiave privata , speciale As String

di Windows privata As New ArrayList

finestra privato Come
IntPtr
16

Inserisci i metodi dell'API e delle dichiarazioni di seguito i " gestori di eventi ":

' gestori di eventi

private Sub Key_Special ( ByVal sender As Button , _ ByVal

e come System.EventArgs ) per

speciale = " " Allora

speciale = Sender.Tag

Else

speciale = " "

End If End Sub

private Sub Key_Click ( ByVal sender As Button , _

ByVal e As System.EventArgs ) per

chiave = mittente . Tag

chiave = " { SPACE } ", quindi il tasto = " " ' Convert { SPACE } a Spazio

finestra < > 0 Then

SetForegroundWindow ( window ) per

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

e non è speciale < > " ^ " , _

UCase (chiave) , Chiave ) ) per

SetForegroundWindow (Finestra ) per

End If End Sub

17

Inserisci questo di seguito i " metodi privati ​​" :

' metodi privati ​​

private Function IsActiveWindow ( ByVal hWnd As Integer) As Boolean Dim

isowned come booleano

Dim Style As Integer

isowned = GetWindow ( hWnd , 4) < > 0

Style = GetWindowLong ( hWnd , -20 ) per

Se Non IsWindowVisible ( hWnd ) per poi tornare False '
non visibile

Se GetParent ( hWnd ) < > 0 Then return false 'ha Parent

( Style And & H80 ) < > 0 And Not isowned poi tornare False ' è Tooltip

( stile e & H40000 ) = 0 e isowned poi tornare False ' Ha un proprietario

Process.GetCurrentProcess.MainWindowHandle = hWnd poi tornare False

Return True' finestra Valid

End funzione

private Sub KeyboardButton ( ByVal Larghezza As Integer , ByVal Altezza As Integer , _ ByVal

Top As Integer , ByVal Sinistra As Integer , _ ByVal

Testo opzionale As String = " " , _

opzionale Tag ByVal As String = " " , _ Optional ByVal

speciale As Boolean = false ) per

Dim pulsante As New Button

• Come utilizzare i controlli Inet VB6 
• Come convertire una stringa di numeri interi in VB.NET