VB求解:鼠标自动移动到指定文本框后,自动输入某字符!
在VB中我打算点一个按键后,鼠标就自动移动到指定文本框,当然文本框的坐标是从form1.text1.left等属性获得的!text1获得鼠标后,就自动输入字符,字符是从记...
在VB中我打算点一个按键后,鼠标就自动移动到指定文本框,当然文本框的坐标是从 form1.text1.left等属性获得的!text1获得鼠标后,就自动输入字符,字符是从记事本中获得的。请高手给个思路,给代码就更好了!先谢谢了!
展开
1个回答
展开全部
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
'事件缺手结束
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
'事件缺手结束
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询