如何获得焦点并显示在最前

sharksun · 发表于 2005-7-20 20:32:00

本帖最后由作者于 2005-7-20 20:56:21 编辑

在excel vba中控制cad过程中，隐藏窗口后（此时最前窗口为excel工作表），需要将焦点转到cad程序。（例如在acad里插入一个点）

这时，如果cad最小化于任务栏中，则用application.winstate＝max可以获得焦点并置前。

问题是当acad已经最大化时，如何用代码使之获得焦点并置前呢？（不隐藏excel）

多谢指教。

洋葱老爹 · 发表于 2005-7-21 14:10:00

很简单的,只须添加一行:

AppActivate ThisDrawing.Application.Caption '切换到CAD绘图状态

my_computer · 发表于 2005-7-22 10:37:00

置前可以使用api函数的 setwindowsposition

账号		自动登录	找回密码
密码			注册