1
Inicie Microsoft Visual Basic .
2 Haga clic en "Nuevo proyecto" justo debajo de la pestaña "Archivo " situado en la barra de herramientas .
Página 3 Resalte
"Aplicación de Windows Forms " en el " Nuevo Proyecto" cuadro de pop -up .
4
Cambie el nombre del proyecto a " teclado en pantalla" o algo similar para facilitar identificar su proyecto.
5
Haga clic en " OK" en la esquina inferior derecha de la " Nuevo Proyecto " cuadro de pop -up . Un formulario en blanco llamado " Form1 " debe aparecer en pocos segundos
6
Haga clic en " Propiedades de cuadro ", ubicado en el lado derecho de la pantalla y seleccionar la casilla " Nombre " ; . Cambiar el nombre de " Form1 " a " frmMain " .
7
Highlight " FormBorderStyle " y cambiar el nombre actual de " FixedToolWindow " .
8
Highlight "Tamaño" y cambiar el tamaño actual de " 390.208 " .
9
Highlight "Texto " y cambie el nombre a " teclado" .
10
Highlight " TopMost " y cambie a "True" .
11
Expandir (+ ) sus "Controles comunes" en la "Caja de herramientas " en la parte izquierda de la pantalla y seleccionar los componentes " ComboBox " .
12
Draw un ComboBox en el cuadro "Form" , que debe ser etiquetado como "Teclado" .
13
Haga clic en el cuadro combinado y luego volver a la " caja de Propiedades " que se encuentra en el lado derecho de la pantalla . Marque la opción " Nombre " en el " cuadro de propiedades " y cambie el nombre a " cboWindows " .
14
Highlight " DropDownStyle " y cambie el nombre a " DropDownList " y haga clic en "Form" en " Explorador de soluciones " y seleccione " Ver código"
15
Escriba los siguientes métodos de la API y declaraciones por debajo de la " frmMain Public Class ": .
"Métodos API
< p> Public Function Declarar 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
' Declaraciones
RowOne Private As String () = { " ` "," 1 "," 2 "," 3 "," 4 "," 5 "," 6 "," 7 "," 8 "," 9 "," 0 "," - "," = "}
RowTwo Private As String () = {" q "," w "," e "," r "," t " , " y ", " u " , " i " , " o ", " p "," [" , "] "}
RowThree Private As String () = { " a ", " s "," d "," f "," g " , " h "," j "," k " , " l " , ", " , ", " ", "# "}
privado RowFour As String () = {" \\", " z" , "x" , " c", " v ", " b" , "n" , "m" , "," , "." , "/" }
CapsLock privado como nuevo CheckBox
clave privada, especial como secuencia
de Windows privadas como New ArrayList
ventana Private Como
IntPtr
16
Introduzca los métodos de la API y declaraciones por debajo de los " controladores de eventos ": controladores de eventos
'
Private Sub Key_Special ( remitente de ByVal como Button, _ ByVal
e como System.EventArgs )
Si Especial = "" Then
Especial = Sender.Tag
demás
Especial = ""
< p> End If
Sub
Private Sub Key_Click ( remitente de ByVal como Button, _
ByVal e como System.EventArgs )
Tecla End = remitente . Etiqueta
Si = clave "{ eSPACIO }" Entonces clave = " " ' Convert { eSPACIO } al espacio