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

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

本帖最后由 作者 于 2005-7-20 20:56:21 编辑 <br /><br /> <P>在excel vba中控制cad过程中，隐藏窗口后（此时最前窗口为excel工作表），需要将焦点转到cad程序。（例如在acad里插入一个点）</P>
<P>这时，如果cad最小化于任务栏中，则用application.winstate＝max可以获得焦点并置前。</P>
<P>问题是当acad已经最大化时，如何用代码使之获得焦点并置前呢？（不隐藏excel）</P>
<P>多谢指教。</P>

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

<P>很简单的,只须添加一行:</P>
<P>AppActivate ThisDrawing.Application.Caption&nbsp;&nbsp;&nbsp;&nbsp; '切换到CAD绘图状态</P>

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

<P>置前可以使用api函数的 setwindowsposition</P>
页: [1]
查看完整版本: 如何获得焦点并显示在最前