Fazendo um teclado virtual no visual basic?

Oi
Eu quero fazer um virtual teclado virtual no visual basic para meu tablet windows 8.
Todos os tutoriais no YouTube mostram teclados que tipo em uma caixa de texto na janela de formulário do windows.
Eu queria saber se eu posso fazer isso para que os tipos de teclado diretamente para programas como word ou bloco de notas.
Obrigado,
BTW: eu sei o windows 8 foi construído em um teclado de tela mas quero torná-lo personalizado.

Resposta

você pode, na verdade eu não iria em vb mas escolha pessoal isso é realmente nada de errado com vb.net eu apenas prefiro c# alguma forma bk para o tópico

Eu presumme vc tem algum conhecimento de vb.net já assim não entrarei em detalhe enorme

você vai precisar tirar proveito da função SendKey e também usar um gancho de janela de windows api para obter foco janela ou usar um lil cleave substituir no código-fonte ur classe formulário il colar

Sistema de importações

Imports System. ComponentModel

Imports System. Drawing

Imports System.Windows.Forms

Namespace testapp

Pública classe Form1

Herda de forma

Componentes particulares como IContainer = Nothing

Private button1 como botão

Private button3 como botão

Private button2 como botão

Private button4 como botão

Protegido substituir ReadOnly Propriedade CreateParams() como CreateParams ' deve ter isso

Obter

Dim param como CreateParams = MyBase.CreateParams

param.ExStyle = param.ExStyle ou 134217728

Param de retorno

End Get

End Property

Protegido substituir Sub Dispose(disposing As Boolean)

End If

MyBase.Dispose(disposing)

End Sub

Private Sub InitializeComponent)

Me.Button1 = novo ofuscantes

Me.button3 = novo ofuscantes

Me.Button2 = novo ofuscantes

Me.Button4 = novo ofuscantes

MyBase.SuspendLayout()

Me.Button1.Location = novo ponto (22, 133)

Me.Button1.Name = "button1"

Me.Button1.Size = New Size (54, 39)

Me.Button1.TabIndex = 0

Me.Button1.Text = "a"

Me.Button1.UseVisualStyleBackColor = True

Novo EventHandler(Me.button1_Click) + = de me.Button1.Click

Me.Button3.Location = novo ponto (142, 133)

Me.Button3.Name = "button3"

Me.Button3.Size = New Size (54, 39)

Me.Button3.TabIndex = 2

Me.Button3.Text = "d"

Me.Button3.UseVisualStyleBackColor = True

Novo EventHandler(Me.button3_Click) + = de me.Button3.Click

Me.button2.Location = novo ponto (82, 88)

Me.button2.Name = "button2"

Me.button2.Size = New Size (54, 39)

Me.button2.TabIndex = 3

Me.button2.Text = "w"

Me.button2.UseVisualStyleBackColor = True

Novo EventHandler(Me.button2_Click) + = de me.button2.Click

Me.Button4.Location = novo ponto (82, 133)

Me.Button4.Name = "button4"

Me.Button4.Size = New Size (54, 39)

Me.Button4.TabIndex = 4

Me.Button4.Text = "s"

Me.Button4.UseVisualStyleBackColor = True

Novo EventHandler(Me.button4_Click) + = de me.Button4.Click

MyBase.AutoScaleDimensions = New SizeF (6F, 13F)

MyBase.AutoScaleMode = AutoScaleMode.Font

MyBase.ClientSize = New Size (528, 262)

MyBase.Controls.Add(Me.button4)

MyBase.Controls.Add(Me.button2)

MyBase.Controls.Add(Me.button3)

MyBase.Controls.Add(Me.button1)

MyBase.Name = "Form1"

Me = "Form1"

MyBase.TopMost = True

+ MyBase. Load = Value EventHandler(Me.Form1_Load) novo

MyBase.ResumeLayout(False)

End Sub

Public Sub New)

Me.InitializeComponent()

End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs)

End Sub

Private Sub button2_Click (remetente como objeto, como EventArgs e)

SendKeys.Send("w")

End Sub

Private Sub button1_Click (remetente como objeto, como EventArgs e)

SendKeys.Send("a")

End Sub

Private Sub button4_Click (remetente como objeto, como EventArgs e)

SendKeys.Send("s")

End Sub

Private Sub button3_Click (remetente como objeto, como EventArgs e)

SendKeys.Send("d")

End Sub

End Class

Namespace final

que foi feito em c# e convertido para vb.net il Mostrar u que trabalha em um vídeo do youtube