求一个简单的VB命令

来源：百度知道 编辑：UC知道 时间：2024/05/29 23:32:47
一个text1
只要我按F1 就能输入text1中的内容
比如我运行了这个程序，在text1中输入“1223456789”，然后我打开一个记事本，按F1，就能在记事本中输入“123456789”
我还想要按F2就输入TEXT2的内容 按F3就输入TEXE3中的内容~~ 帮帮忙~~~

修改好了，，额这么简单，，只要把"123456789"换成text1.text,,,
100% 你的要求
这个得用API函数。。。。就算窗体没在最前面 按F1也有效果
创一个TIMER 控件 ，，复制代码就可以了

'代码,===============================,
Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Long
Private Sub Form_Load()
Timer1.Interval = 200
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF1) Then SendKeys text1.text '把这里改成text1.text不就可以了，，，
'F2就(vbkeyf2),...可以自己改按键
End Sub

真啰嗦

设置一个变量
定义如果text1内容改变，就把值赋给设定的那个变量
放到剪贴板中
监测键盘输入
如果键盘输入为F1
就执行粘贴，也就是ctrl+V

不过提醒一下，按F1会打开help帮助

按F1触发如下响应：将text1.text写成一个txt文件即可，你不需要打开记事本程序就完事。

Open "(Path & FileName).txt" For Output As #1txt
Print #1txt,text1.text
Close #1txt

其中Path & FileName是你需要保存记事本的路径和文件名，比如你要在C盘生成名称为hello的记事本文件就可以直接将 Path & FileName 替换成 c:\\ & hello