如何VB 制作几个按钮 可以快捷输入指定文本？

来源：百度知道 编辑：UC知道 时间：2024/05/23 18:46:57
我想做一个VB的EXE
通过几个按钮 按一下 就能在WORD写字板等软件中输入自己经常要用的几句句子 来节省时间。

比如 点一下按钮 就可以直接键入“XX公司欢迎您的来电”
我强调一下，公司的电脑，不能乱改系统的，像鼠标右键改动，这种都是被屏蔽的。所以我才想用EXE文件来做一个小程序操作。想刚刚那位说自己创建输入法的朋友，那么我每次打字还要来回切换输入法，很麻烦的。有些朋友说WORD里设置，那么我不用WORD的时候，怎么办喃？想来想去还是编一个EXE最好！不管EMAIL,TXT,WORD，什么地方都能用。

我晕，这个建议别用VB做，浪费时间。建议如下。
打开Word，键入你想要得字符（比方说：“XX公司欢迎您的来电”），选定这些字符，按键Alt+F3，出现“创建‘自动图文集’”对话框，单击“确定”。然后在任何一个工具栏上按右键，单击长长的菜单最下面的“自定义”，在左边的“类别”中选择“自动图文集”，在右边找到你刚刚创建的词条（XX公司欢迎您的来电），把它拖动到工具栏上，成为一个按钮。这时单击关闭，你会发现这个词条已经成为一个按钮，每次使用时，单击即可。
这个方法方便又快捷。建议采纳。

prevate sub command1_click()
open "c:\word.doc" for input as #1
write #1,"XX公司欢迎您的来电"
close #1
end sub

很简单，以下是举例保存为.doc格式就是用word打开，若保存为txt格式即是用记事本打开
Private Sub Command1_Click()
Dim fn As Integer
fn = FreeFile
Open "C:\Documents and Settings\kekecat\桌面\常用.doc" For Output As fn '这里的保存路径，文件名根据你的需要更改
Print #fn, "xxx公司来电" ’你要保存的内容，如果有多行，可以再加一句“print ＃fn，“xxxxxx””
Close #fn
End Sub

比较同意楼上的观点...有点按钮那工夫都直接Ctrl-C了.......
用Message实现如下:

--------------------------------------------------------------

先是N多的API声明...- -``

Private Declare Function GetFocus Lib "u