📄 17974.html
字号:
<html> <head> <title>附上我的code</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>附上我的code</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:yangcc@ms5.url.com.tw">阿千</a> on August 27, 1999 at 12:45:39:<p>In Reply to: <a href="17923.html">又是 SendKeys 的问题</a> posted by 阿千 on August 26, 1999 at 16:28:57:<p>: 我sendkeys给photoimpact(一堆hotkey), 但似乎too fast<br>: 以至于来不及处理. 如何让vb等一会儿再sendkeys呢?<br>: SendKeys "%o", true<br>: SendKeys "p", true<br>: .<br>: .<br>: 难道要用for..next loop吗?<br>Private Sub Command1_Click()<br> Dim retVal As Double<br> Dim i As Integer<br> retVal = Shell("C:\Program Files\PhotoImpact\IEDIT.EXE", vbNormalFocus)<br> Me.SetFocus<br> AppActivate retVal, True<br> SendKeys "^o", True<br> SendKeys "c:\image\op\p7190027.jpg{ENTER}", True<br> <br> Me.SetFocus<br> AppActivate retVal, True' 执行到此没有error,<br> '-------------------- 可是photoimpact 也<br> SendKeys "%o", True '没activate,也没下文<br> SendKeys "p", True<br> SendKeys "2", True '将图档改成小图<br> '--------------------<br> SendKeys "%o", True<br> SendKeys "d", True<br> SendKeys "{UP 5}", True<br> SendKeys "{ENTER}", True<br> '-----------------------<br> SendKeys "^s", True<br> SendKeys "c:\image\op\tinyCard\p7190027", True<br> SendKeys "%t", True<br> SendKeys "{DOWN 1}", True<br> SendKeys "{ENTER}", True<br>End Sub<p><br><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 17974--></ul><!--end: 17974--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -