怎样调用画笔的功能.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 7 行

画 笔 软 件 没 有 提 供 类 似 DDE、 Automation之 类 的 接 口 ， 你 要 用 程 序 加 以 调 用 可 以 通 过 SendKeys语 句 模 拟 键 盘 操 作 ， 如 ： 
     Shell "pbrush.exe", vbNormalFocus 
     For n = 0 To 50000: DoEvents: Next ' 延 时 
     AppActivate "未 命 名 - 画 图 " 
     SendKeys "^e" 
<END>