Você pode criar um teclado na tela com o programa Microsoft Visual Basic , que pode ser baixado do site da Microsoft gratuitamente. Visual Basic é um programa bastante compreensível para a maioria das pessoas. O programa foi concebido para a construção de aplicações seguras e orientadas a objetos . Este programa oferece aos desenvolvedores a oportunidade de direcionar a Web , dispositivos móveis e do Windows. O teclado na tela criado pelo Visual Basic permite que você digite em diferentes aplicações em seu computador. Instruções
1
Inicie o Microsoft Visual Basic.
2
Clique em " New Project" logo abaixo da guia "Arquivo ", localizado na barra de ferramentas .
3
Destaque " aplicativo do Windows Form" na caixa de pop-up " New Project" .
4
Altere o nome do projeto para "Teclado na tela " ou algo semelhante a mais fácil identificar o seu projeto.
5
Clique em " OK" no canto inferior direita da caixa de pop-up " New Project" . Um formulário em branco rotulado " Form1 " deve aparecer dentro de alguns segundos
6
Clique no botão " Propriedades Box" localizado no lado direito da tela e selecione o caixa "Nome" ; . Mudar o nome de " Form1 " para " frmMain " .
7
Destaque " FormBorderStyle " e mude o nome atual de " FixedToolWindow " .
8
Destaque " Size" e mude o tamanho atual para " 390208 " .
9
Destaque " Texto" e mudar o nome para "Teclado" .
10
Destaque " TopMost " e mude para "true" .
11
Expandir (+) seus " controles comuns " sobre a " caixa de ferramentas ", no lado esquerdo da tela e selecione o componente " ComboBox " .
12
Desenhe uma caixa de combinação na caixa de "Forma" , que deve ser rotulado como "Teclado" .
13
Clique na caixa de combinação e , em seguida, voltar para a "Propriedades box" localizado no lado direito da tela .
14
Destaque " DropDownStyle " Destaque "Nome" no "Propriedades Box" e mudar o nome para " cboWindows " . E mudar o nome para " DropDownList " e botão direito do mouse em " Form" em . " Solution Explorer " e escolha " View Code"
15
Digite os seguintes Métodos de API e declarações abaixo da " Public Class frmMain " :
' Métodos de API
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
nÍndice 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
' Declarações
RowOne privada As String () = { "` " ," 1 " ," 2 " ," 3 " , " 4 " , " 5 " , " 6 " , " 7 "," 8 " , " 9 " , " 0 " , " - " , " = " }
privada RowTwo como a corda ( ) = { " q " , " w " , " e ", " r " , " t " ," y " , " u " , " i ", " o " , " p " , " [ "," ] "}
RowThree privada As String () = {" a "," s " ," d " , " f " , " g " , " h " , " j "," k " , " l " ,"; "," ' "," # " }
privada RowFour As String () = {" \\ ", " z" , "x" , "c" , "v" , "b" , "n ", " m" , "," , "." , "/" }
CapsLock privada As New CheckBox
chave Privada , Especial As String
privada do Windows As New ArrayList
Janela privado como IntPtr
< br > 16
Entre os Métodos de API e declarações abaixo dos " manipuladores de eventos " :
' manipuladores de eventos
Private Sub Key_Special (sender Button, _ ByVal
e As System.EventArgs )
Se especial = "" Then
especial = Sender.Tag
Else
especial = ""
End If End Sub
Private Sub Key_Click (sender Button, _
ByVal e As System.EventArgs )
chave = Sender . Tag
Se key = " { space} " Então chave = "" 'Converter { } para eSPAÇO espaço
Se janela < > 0 Then
SetForegroundWindow ( Janela )
SendKeys.SendWait (Special & IIf ( Capslock.Checked _
e não especial <> " ^ ", _
UCase (Chave ) , Chave ) )
SetForegroundWindow (Janela )
End If End Sub
17
Digite este abaixo os " métodos privados " :
Métodos privados
'em
privada IsActiveWindow Função ( hWnd ByVal As Integer) As Boolean Dim
IsOwned As Boolean Dim
Estilo As Integer
IsOwned = GetWindow (hWnd , 4) <> 0
Style = GetWindowLong (hWnd , -20 )
If Not IsWindowVisible (hWnd ) em seguida, retornar False ' não visível
Se GetParent (hWnd ) < > 0 Then Retorno False ' Tem pai
Se (Style e & H80 ) <> 0 And Not IsOwned depois retornar False' é Dica
Se ( Estilo e & H40000 ) = 0 e IsOwned depois retornar False ' Tem proprietário
Se Process.GetCurrentProcess.MainWindowHandle = hWnd em seguida, retornar Falso
Retornar True' Janela Valid
Fim Função
Private Sub KeyboardButton (ByVal Largura As Integer , ByVal Altura As Integer , _ ByVal
Top As Integer , ByVal Esquerda As Integer , _
Optional ByVal Texto As String = " ", _
Optional ByVal Tag As String = " ", _
Optional ByVal especial As Boolean = False )
Botão Dim As New Button
Button.Size = New Size ( Largura, Altura )
Button.Location = New Point (esquerda , em cima)
Button.Text = Texto
Button.Tag = Tag
Se especial Então
AddHandler Button.Click , AddressOf Key_Special
Else
AddHandler Button.Click , AddressOf Key_Click
End If
Controls.Add ( Button)
End Sub
18
Voltar para a vista de estrutura , selecionando a guia " design" ou clicar com o botão direito do mouse no opção "View Designer ", localizado no " Solution Explorer" para frmMain . No formulário exibido , clique duas vezes sobre a forma ( frmMain )
19 Tipo
na seguinte em " frmMain_Load ()" sub: .
Dim Col As Integer
' Row Uma
Para Col = 0 To 12
KeyboardButton (25, 25, 40, Col * 25 + 4 , _
RowOne ( Col) , RowOne ( Col) )
Próxima
KeyboardButton (50, 25, 40, Col * 25 + 4, " BkSp ", " { BACKSPACE }")
' Row dois
KeyboardButton (36 , 25, 66, 4, " Tab ", " { TAB }")
Para Col = 0 To 11
KeyboardButton ( 25, 25 , 66, Col * 25 + 40, _
UCase ( RowTwo ( Col) ) , RowTwo ( Col) )
Próxima
KeyboardButton (39 , 25, 66, 36 + Col * 25 + 4, " ↵ ", " { ENTER }")
' Row Três
CapsLock.Appearance = Appearance.Button
CapsLock.Size = New Size ( 48, 25)
CapsLock.Location = New Point (4 , 92)
CapsLock.Text = " Caps "
Controls.Add ( CapsLock )
Para Col = 0 To 11
KeyboardButton ( 25, 25 , 92, Col * 25 + 52 , _
UCase ( RowThree ( Col) ) , RowThree ( Col ) )
Próxima
KeyboardButton (27, 25 , 92, 48 + Col * 25 + 4, " ", " { ENTER }")
' Row Quatro
KeyboardButton (38 , 25, 118, 4, " Shift" , "+" , True)
Para Col = 0 a 10
KeyboardButton (25 , 25, 118 , Col * 25 + 42, _
UCase ( RowFour ( Col) ) , RowFour ( Col) )
Próxima
KeyboardButton (62 , 25, 118, Col * 25 + 42, "Shift" , "+" , True)
' Row Cinco
KeyboardButton ( 50, 25 , 144, 4, " Ctrl ", " ^ ", True )
KeyboardButton ( 50, 25 , 144, 54, "Alt" , "% ", True )
KeyboardButton (154 , 25, 144, 104, "Espaço", " { space} " )
KeyboardButton (44, 25 , 144, 258, "Home ", " {HOME }")
KeyboardButton (44 , 25, 144 , 302, "End ", " {END } ")
KeyboardButton (33 , 25, 144, 346 , " Del "," { DEL } "
20
Regresso ao " Code View " clicando duas vezes sobre o formulário. The Sub " frmMain_Load " da etapa anterior deve aparecer. deve haver duas caixas suspensas no Código View.
21
Selecione " cboWindows " da primeira gota " frmMain Event" . caixa -down e selecione " DropDown " do " Declarações " caixa drop-down
22
Digite o seguinte no " cboWindows_DropDown ( ... ) " Sub :
do Windows . Clear ()
cboWindows.Items.Clear ()
Para cada item como Processo Em Process.GetProcesses
Se IsActiveWindow ( Item.MainWindowHandle ) _
E Item.MainWindowTitle < > "" Se
Próxima
Em seguida, selecione " cboWindows " a partir da primeira caixa drop-down novamente localizado no Code View .
Escolha " SelectedIndexChanged " e digite o seguinte no " cboWindows_SelectedIndexedChange "Sub :
Se cboWindows.SelectedItem < > Nada Então
Window = Windows.Item ( cboWindows.SelectedIndex )
End If
23
Salve seu projeto , porque você está acabado.
24
Clique em " Iniciar" e seu teclado na tela deve aparecer.
25
Clique no vermelho "X "localizado no lado superior direito da caixa para fechar o aplicativo quando você está feito.
