Question

VB求解：鼠标自动移动到指定文本框后，自动输入某字符！

Answer 1

是之前复制过记事本里的内容然后点击text1然后自动黏贴吗
如果是
private
sub
text1_click()
'或者text1_gotfocus
text1.text=clipboard.GetText
end
sub

Answer 2

private
sub
Command1_click()
'点击按钮事件
Dim
x
As
String
'定义变量
Text1.SetFocus
'
文本框
获得焦点，只要鼠标自动到达文本框
Open
"d:\ab\12.txt"
For
Input
As
#1
'打开文本文件，文本文件的路径和文件名是d:\ab\12.txt，修改为你需要的路径和文件名
Input
#1,
x
'读取文本文件的内容到变量x中
Close
#1
'关闭打开的文本文件
Text1.Text
=
x
'将变量x的值赋值给文本框控件
End
Sub
'事件结束

Answer 3

vb文本框可通过文本框的keypress事件来判断输入字符的keyascii值来禁止输入特定字符。
代码实例，禁止输入大写a字符：
private sub text1_keypress(keyascii as integer)
if keyascii = 65 then
keyascii = 0
end if
end sub
keypress
事件，此事件当用户按下和松开一个
ansi
键时发生。
keyascii

整数，包含引发
accesskeypress
事件的按键（除
alt
键外）的
ascii
值，与标准的
keypress事件采用的方法相同。