vb.net弹系统键盘,vbs键盘

vb.net 屏幕键盘

我现在没有现成的代码给你，不过可以给你一些建议。如果你想在同一进程内实现屏幕键盘，则你只需要再F2打开的时候，将F1的当前焦点控件对象作为参数，传递给F2窗体，在F2点击屏幕控件时，设置该“控件.Text

创新互联专业为企业提供云州网站建设、云州做网站、云州网站设计、云州网站制作等企业网站建设、网页设计与制作、云州企业网站模板建站服务，10年云州做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。

=

键值”

即可，这种我称之为假屏幕键盘。如果你想跨进程实现屏幕键盘，就比较难些了（比如：你想用你的F2窗体上的按键，实现QQ聊天内容的输入、记事本内容的输入）。这个需要用到

“键盘钩子”技术，有关这方面的资料，你不妨自己找找。

另外，你提的F2焦点老处理不好，我认为F2根本不需要焦点控件（不要用按钮做控件，而实用Label或图片就可以了。）

VB.net 软键盘 制作

Public Class Form2

Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

AddHandler Label1.MouseEnter, AddressOf LabelMouseEnter

AddHandler Label2.MouseEnter, AddressOf LabelMouseEnter

AddHandler Label1.MouseLeave, AddressOf LabelMouseLeave

AddHandler Label2.MouseLeave, AddressOf LabelMouseLeave

AddHandler Label1.MouseDown, AddressOf LabelMouseDown

AddHandler Label2.MouseDown, AddressOf LabelMouseDown

End Sub

Private Sub LabelMouseEnter(ByVal sender As Object, ByVal e As System.EventArgs)

Dim c As Label = DirectCast(sender, Label)

c.BackColor = Color.DodgerBlue

End Sub

Private Sub LabelMouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

Dim c As Label = DirectCast(sender, Label)

Form1.TextBox1.Text = c.Text

End Sub

Private Sub LabelMouseLeave(ByVal sender As Object, ByVal e As System.EventArgs)

Dim c As Label = DirectCast(sender, Label)

c.BackColor = SystemColors.Control

End Sub

End Class

vb.net中如何执行键盘事件？

执行键盘事件方法如下：

第一步，点击VS工具。

第二步，打开后，新建一个Windows窗体应用程序。

第三步，请看右下方Form的属性栏。

第四步，双击KeyDown。

第五步，输入提示按键代码，如图所示。

第六步，再次输入代码，设置属性KeyPreview为true。

第七步，运行程序，按下举例F5，则会弹出提示，表明已经成功获。

如何 在 vb.net 中 按下键盘A与W 两个按键组合时弹出 MsgBox("你按下了A+W键")，最好有例子程序。

楼上的按了一次A+W后,接下来单按W键就会弹出信息框

Public Class Form1

Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal keyCode As Integer) As Short

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

If GetAsyncKeyState(Keys.A) And GetAsyncKeyState(Keys.W) Then

MsgBox("你按下了A+W键")

End If

End Sub

End Class

按照顺序的话,这样写:

Public Class Form1

Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal keyCode As Integer) As Short

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

If GetAsyncKeyState(Keys.A) And e.KeyCode = Keys.W Then

MsgBox("你按下了A+W键")

End If

End Sub

End Class

望采纳~