社区 › VB › VBA调用CAD对话框的问题！请指教！

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

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

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

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

给你个例子

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

先谢谢楼上的朋友！感谢你！但你的代码会导致返回VBA窗口后VBA窗口无法获得焦点，但确实帮了我的大忙啊！我做了如下修改！
原来代码：
Private Sub CommandButton1_Click()
Dim StrLeft As Single
Dim StrTop As Single
    Me.Hide
    ThisDrawing.SendCommand ("_bhatch")
    Me.Show 0
    ShowModal = False
End Sub
修改后代码：
Private Sub CommandButton1_Click()
    Me.Hide
    ThisDrawing.SendCommand ("_bhatch ")
    Me.Show
End Sub
再次感谢你！谢谢！

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

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

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

呵呵，改为模式窗口就可以了

查看完整版本: VBA调用CAD对话框的问题！请指教！