vb.net虚拟键盘控件 vbs 模拟键盘

用VB.NET模拟鼠标和键盘动作？不用API模拟，用API的我会！ 用.NET框架的类库怎么模拟呢？

.net框架就是对API就行封装，做成一个个的类然后可以让你轻松调用，但是。net封装的内容，是常用的内容，有些东西用的时候，还是需要调用API函数，自己写，毕竟，微软不知道你要用什么函数，所以尽可能的满足用户大众口味而已。如果你需要用的比较复杂，还是调用API自己写类吧。

希望我的回答对您有所帮助

相关问答

Q1: vb net 用一个按钮， 模拟键盘tab键 让网也上光标一个控件转到另一个控件控件，

你每点一次tab是从你那个按钮的下一个控件向后跳跃的。

因为你点的时候，你的当前控件就是你的按钮。

2种方法：

1。用两个界面，一个界面的按钮控制另一个界面的tab跳跃

2。每次tab变化都记录一下，这样你才能得到点按钮之前是那个控件为当前，才能nextcongtrol

Q2: VB 怎么模拟键盘 输入，包括键盘的每一个健 TAB 也要？

tab是

"{TAB}".==========SendKeys

语句

将一个或多个按键消息发送到活动窗口，就如同在键盘上进行输入一样。语法SendKeys

string[,

wait]SendKeys

语句的语法具有以下几个命名参数：部分

描述

string

必需的。字符串表达式，指定要发送的按键消息。

Wait

可选的。指定等待方式的

BooleandefBooleanDataType@veendf98.chm

值。如果为

False（缺省值），则控件在按键发送出去之后立刻返回到过程。如果为

True，则按键消息必须在控件返回到过程之前加以处理。

说明每个按键由一个或多个字符表示。为了指定单一键盘字符，必须按字符本身的键。例如，为了表示字母

A，可以用

"A"

作为

string。为了表示多个字符，就必须在字符后面直接加上另一个字符。例如，要表示

A、B

及

C，可用

"ABC"

作为

string。对

SendKeys

来说，加号

(+)、插入符

(^)、百分比符号

(%)、上划线

(~)

及圆括号

(

)

都具有特殊意义。为了指定上述任何一个字符，要将它放在大括号

({})

当中。例如，要指定正号，可用

{+}

表示。方括号

([

])

对

SendKeys

来说并不具有特殊意义，但必须将它们放在大括号中。在其它应用程序中，方括号有特殊意义，在出现动态数据交换

(DDE)

的时候，它可能具有重要意义。为了指定大括号字符，请使用

{{}

及

{}}。为了在按下按键时指定那些不显示的字符，例如

ENTER

或

TAB

以及那些表示动作而非字符的按键，请使用下列代码：按键

代码

BACKSPACE

{BACKSPACE},

{BS},

或

{BKSP}

BREAK

{BREAK}

CAPS

LOCK

{CAPSLOCK}

DEL

or

DELETE

{DELETE}

或

{DEL}

DOWN

ARROW

{DOWN}

END

{END}

ENTER

{ENTER}或

~

ESC

{ESC}

HELP

{HELP}

HOME

{HOME}

INS

or

INSERT

{INSERT}

或

{INS}

LEFT

ARROW

{LEFT}

NUM

LOCK

{NUMLOCK}

PAGE

DOWN

{PGDN}

PAGE

UP

{PGUP}

PRINT

SCREEN

{PRTSC}

RIGHT

ARROW

{RIGHT}

SCROLL

LOCK

{SCROLLLOCK}

TAB

{TAB}

UP

ARROW

{UP}

F1

{F1}

F2

{F2}

F3

{F3}

F4

{F4}

F5

{F5}

F6

{F6}

F7

{F7}

F8

{F8}

F9

{F9}

F10

{F10}

F11

{F11}

F12

{F12}

F13

{F13}

F14

{F14}

F15

{F15}

F16

{F16}

为了指定那些与

SHIFT、CTRL

及

ALT

等按键结合的组合键，可在这些按键码的前面放置一个或多个代码，这些代码列举如下：按键

代码

SHIFT

+

CTRL

^

ALT

%

为了说明在按下其它按键时应同时按下

SHIFT、CTRL、及

ALT

的任意组合键，请把那些按键的码放在括号当中。例如，为了说明按下

E

与

C

的时候同时按下

SHIFT

键，请使用

"+(EC)"。为了说明在按下

E

的时候同时按下

SHIFT

键，但接着按

C

而不按

SHIFT，则使用

"+EC"。为了指定重复键，使用

{key

number}

的形式。必须在

key

与

number

之间放置一个空格。例如，{LEFT

42}

意指

42

次按下

LEFT

ARROW

键；{h

10}

则是指

10

次按下

H

键。注意

不能用

SendKeys

将按键消息发送到这样一个应用程序，这个应用程序并没有被设计成在

Microsoft

Windows

中运行。Sendkeys

也无法将

PRINT

SCREEN

按键

{PRTSC}

发送到任何应用程序。

参考资料：MSDN

Q3: 求VB.net 制作的软键盘“屏幕键盘”

我现在没有现成的代码给你，不过可以给你一些建议。如果你想在同一进程内实现屏幕键盘，则你只需要再F2打开的时候，将F1的当前焦点控件对象作为参数，传递给F2窗体，在F2点击屏幕控件时，设置该“控件.Text = 键值” 即可，这种我称之为假屏幕键盘。如果你想跨进程实现屏幕键盘，就比较难些了（比如：你想用你的F2窗体上的按键，实现QQ聊天内容的输入、记事本内容的输入）。这个需要用到 “键盘钩子”技术，有关这方面的资料，你不妨自己找找。 另外，你提的F2焦点老处理不好，我认为F2根本不需要焦点控件（不要用按钮做控件，而实用Label或图片就可以了。）

Q4: vb制作软键盘

dim n as Integer

Textbox1的getfocus 事件：

n=1

............................（其他textbox的getfocus事件设置相应的n值）

commandbotton1的click事件：

select case n

case 1

textbox1.text=textbox1.text "1"

textbox1.setfocus

......................

以上只是思路，具体操作建议你使用控件数组，这样可以简化很多代码。

Q5: 如何用VB做一个软件键盘?主要是数字键盘就行了!

在窗体上放置以下控件：

1、lblResult Label控件 设置lblResult.Caption = 0

2、btnNum(0)~btnNum(9) 按钮控件数组，下标对应齐数字（如：btnNum(0).Caption=0，依次类推）

3、添加btnAdd（加法）、btnSub（减法）、btnMul（乘法）、btnDiv（除法）、btnEnter（等于号）、btnReset（清除键）六个按钮。

在窗体代码中输入以下内容：

Dim byteOperation As Byte '操作符

Dim byteTmp As Byte '临时操作符

Dim intNum As Double '输入的数字

Sub Calc()

Select Case byteOperation

Case 1 'Add

lblResult.Caption = CDbl(lblResult.Caption) + intNum

Case 2 'Sub

lblResult.Caption = intNum - CDbl(lblResult.Caption)

Case 3 'Mul

lblResult.Caption = CDbl(lblResult.Caption) * intNum

Case 4 'Div

lblResult.Caption = intNum / CDbl(lblResult.Caption)

Case Else

End Select

End Sub

Private Sub btnNum_Click(Index As Integer)

If byteTmp 0 Then

intNum = lblResult.Caption

lblResult.Caption = 0

byteTmp = 0

End If

If lblResult.Caption = 0 Then

lblResult.Caption = Index

Else

If Len(lblResult.Caption) 9 Then

lblResult.Caption = lblResult.Caption Index

End If

End If

End Sub

Private Sub btnAdd_Click()

If byteOperation 0 Then

Call Calc

End If

byteOperation = 1

byteTmp = 1

End Sub

Private Sub btnReset_Click()

byteTmp = 0

byteOperation = 0

intNum = 0

lblResult.Caption = 0

End Sub

Private Sub btnSub_Click()

If byteOperation 0 Then

Call Calc

End If

byteOperation = 2

byteTmp = 2

End Sub

Private Sub btnMul_Click()

If byteOperation 0 Then

Call Calc

End If

byteOperation = 3

byteTmp = 3

End Sub

Private Sub btnDiv_Click()

If byteOperation 0 Then

Call Calc

End If

byteOperation = 4

byteTmp = 4

End Sub

Private Sub btnEnter_Click()

Call Calc

byteTmp = 0

End Sub

关于vb.net虚拟键盘控件和vbs 模拟键盘的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。