laoliu09 发表于 2007-5-7 15:01:00

VBA调用CAD对话框的问题！请指教！

本帖最后由 作者 于 2007-5-8 16:40:59 编辑 <br /><br /> <p>我打开VBA窗口，然后点击某个按钮，启动CAD里的对话框，当我设置好关闭CAD对话框的时候，要求返回我原来的VBA窗口，我用Endcommand事件，但当我进行设置的时候，点了“取消”按钮，就不行了，点“确定”按钮就可以实现！这一个问题怎么处理好呢，请朋友们多多指教！攻克这个问题，就可以解决很多问题，问题的焦点就是：怎么在VBA窗口中调用CAD对话框，当CAD对话框完全关闭的时候，返回原来的VBA窗口？</p><p>我这样表述应该很明确了吧？呵呵！谢谢大家指导！</p>

cnks 发表于 2007-5-8 13:32:00

给你个例子

laoliu09 发表于 2007-5-8 16:35:00

本帖最后由 作者 于 2007-5-8 16:36:29 编辑 <br /><br /> <p>先谢谢楼上的朋友！感谢你！但你的代码会导致返回VBA窗口后VBA窗口无法获得焦点，但确实帮了我的大忙啊！我做了如下修改！</p><p>原来代码：</p><p>Private Sub CommandButton1_Click()<br/>Dim StrLeft As Single<br/>Dim StrTop As Single<br/>&nbsp;&nbsp;&nbsp; Me.Hide<br/>&nbsp;&nbsp;&nbsp; ThisDrawing.SendCommand ("_bhatch")<br/>&nbsp;&nbsp;&nbsp; Me.Show 0<br/>&nbsp;&nbsp;&nbsp; ShowModal = False<br/>End Sub</p><p>修改后代码：</p><p>Private Sub CommandButton1_Click()<br/>&nbsp;&nbsp;&nbsp; Me.Hide<br/>&nbsp;&nbsp;&nbsp; ThisDrawing.SendCommand ("_bhatch ")<br/>&nbsp;&nbsp;&nbsp; Me.Show<br/>End Sub<br/></p><p>再次感谢你！谢谢！</p>

laoliu09 发表于 2007-5-8 16:45:00

<p>原来当执行了ThisDrawing.SendCommand这句的时候，VBA代码停止运行！！！以前没注意到这一点！呵呵！<br/></p>

cnks 发表于 2007-5-8 17:00:00

呵呵，改为模式窗口就可以了
页: [1]
查看完整版本: VBA调用CAD对话框的问题！请指教！