17749.html
来自「VB技巧问答10000例,是一个教程」· HTML 代码 · 共 27 行
HTML
27 行
<html> <head> <title>试过了....可用</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>试过了....可用</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by dino on August 23, 1999 at 23:55:29:<p>In Reply to: <a href="17698.html">Why? 用shell()呼叫应用程式后, SendKeys 给他却不反应?</a> posted by 阿千 on August 23, 1999 at 00:23:22:<p>Private Sub Command1_Click()<br>retVal = Shell("d:\adobe\photoshop\Photoshp.exe", vbNormalFocus)<br>Form1.SetFocus<br>AppActivate "Adobe Photoshop", True<br>SendKeys "^o", True<br>SendKeys "tools{ENTER}", True<br>End Sub<p>以上的code可以开启并openfile<br>但一些字串请设定<p>问题出在两点:<br>(1)form1没得focus, 不会做sendkeys<br>(2)^O似乎不work...要^o才可以<br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 17749--><!--top: 17878--><li><a href="17878.html">万分感谢! It worked. 但我的photoshop 却硬是不反应</a> <b>阿千</b> <i>17:41:01 8/25/99</i>(<!--responses: 17878-->0)<ul><!--insert: 17878--></ul><!--end: 17878--></ul><!--end: 17749--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?