# 试过了....可用

Posted by dino on August 23, 1999 at 23:55:29:

In Reply to: Why? 用shell()呼叫应用程式后, SendKeys 给他却不反应? posted by 阿千 on August 23, 1999 at 00:23:22:

Private Sub Command1_Click()
retVal = Shell("d:\adobe\photoshop\Photoshp.exe", vbNormalFocus)
Form1.SetFocus
AppActivate "Adobe Photoshop", True
SendKeys "^o", True
SendKeys "tools{ENTER}", True
End Sub

以上的code可以开启并openfile
但一些字串请设定

问题出在两点:
(1)form1没得focus, 不会做sendkeys
(2)^O似乎不work...要^o才可以

Follow Ups:

- 万分感谢! It worked. 但我的photoshop 却硬是不反应 阿千 17:41:01 8/25/99 (0)