演示操作记事本
Private Sub Command1_Click()
Shell "NotePad", vbNormalFocus 打开记事本
SendKeys "PowerBASIC中国", True 键入一些字符
SendKeys "%FA", True 打开另存为对话框
SendKeys "C:\PowerBASIC.txt", True 输入文件名
SendKeys "{TAB}{TAB}", True 将焦点定位到保存按钮上
SendKeys "{ENTER}", True 回车
SendKeys "%(FX)", True 退出记事本
MsgBox "您的文件已经保存到 C:\PowerBASIC.txt 中!"
End Sub
这段代码可以用VB模拟键盘输入,控制记事本的打开、录入、另存为&保存。
但是所有这些操作都是可见的,即使将Shell "NotePad", vbNormalFocus中的vbNormalFocus参数改为vbHide或vbMinimizedFocus都不能让这些操作变为后台执行。
请问:该如何修改,使上述所有操作都变为后台操作,而不会弹出到桌面最前来执行?
附:
Shell 常数
可在代码中的任何地方使用下列常数代替实际值:
数 值 描述
vbHide 0 窗口是隐藏的,并且焦点被传递给隐藏窗口。
vbNormalFocus 1 窗口拥有焦点,并且恢复到原来的大小与位置。
vbMinimizedFocus 2 窗口缩小为图符并拥有焦点。
vbMaximizedFocus 3 窗口最大化并拥有焦点。
vbNormalNoFocus 4 窗口被恢复到最近一次的大小与位置。当前活动窗口仍为活动窗口。
vbMinimizeNoFocus 6 窗口缩小为图符。当前活动窗口仍为活动窗口
up
顶,,,这样都要搞?
设置成vbhide差点死寂
实现同样的功能,没必要这么弄啊,直接通过文件读写函数就可以保存了啊,也不会有界面
UP
用DDE來做。
程序和記事本進行通信。