社区 › VB › 运行VBA后，如何使CAD窗口自动激活？

mayuezxl 发表于 2005-11-27 18:52:00

运行VBA后，如何使CAD窗口自动激活？

各位高手，我每次运行VBA后，总是要先点CAD使其为当前窗口，如何运行VBA后使CAD自动变成当前窗口？谢谢各位的指点。

雪山飞狐_lzh 发表于 2005-11-29 08:15:00

不会吧，你运行的是VB程序吧

mayuezxl 发表于 2005-11-29 19:05:00

版主实在厉害，我确实是用vb的，上次没看仔细就发了，不好意思。
那用vb如何才能实现呢？谢谢。

ntfanl 发表于 2005-12-2 11:24:00

先声明一个ＡＰＩ
Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

然后用下面的方法调用（其中的ACADapp就是用Set aCADapp = GetObject(, "autoCAD.application")之类的调用得到的，不会不知道吧）
n = SetForegroundWindow(aCADapp.hwnd)

wyj7485 发表于 2006-7-21 11:25:00

vb激活cad好象只能采用楼上的了

查看完整版本: 运行VBA后，如何使CAD窗口自动激活？