war3dd 发表于 2009-2-21 00:21:00

[求助]如何激活CAD窗口

是这样的，当我在VBA中打开一个EXcel文件后，焦点就到Excel那去了，我也把焦点重新回到CAD那，请问怎么写啊？谢谢

cczjw 发表于 2009-2-21 18:42:00

本帖最后由 作者 于 2009-2-21 18:44:24 编辑

试试 me.Hide

war3dd 发表于 2009-2-22 00:18:00

<p>这句是对窗体而言的吧</p><p></p>

cczjw 发表于 2009-2-22 12:28:00

哦，你是在EXCEL中，我看错了。这我就不知了。

wuyunpeng888 发表于 2009-2-22 14:49:00

用API函数<table height="22" cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td width="100%" height="16"><a name="SetForegroundWindow">SetForegroundWindow</a></td></tr></tbody></table>

wuyunpeng888 发表于 2009-2-22 14:51:00

<table cellspacing="0" bordercolordark="#ffffff" width="100%" bordercolorlight="#808080" border="1"><tbody><tr><td width="100%" colspan="2">VB声明</td></tr><tr><td width="100%" colspan="2">Declare Function SetForegroundWindow Lib "user32" Alias "SetForegroundWindow" (ByVal hwnd As Long) As Long</td></tr><tr><td width="100%" colspan="2">说明</td></tr><tr><td width="100%" colspan="2">将窗口设为系统的前台窗口。这个函数可用于改变用户目前正在操作的应用程序</td></tr><tr><td width="100%" colspan="2">返回值</td></tr><tr><td width="100%" colspan="2">Long，非零表示成功，零表示失败。会设置<a href="mk:@MSITStore:F:\编程\TOOLS\API\VBAPI.CHM::/GetLastError.htm">GetLastError</a></td></tr><tr><td width="100%" colspan="2">参数表</td></tr><tr><td width="25%">参数</td><td width="75%">类型及说明</td></tr><tr><td width="25%">hwnd</td><td width="75%">Long，带到前台的窗口</td></tr></tbody></table><p></p><p>用法为SetForegroundWindow Application.HWND</p>

war3dd 发表于 2009-2-23 22:40:00

<p>谢谢啊，好像有点复杂</p>
页: [1]
查看完整版本: [求助]如何激活CAD窗口