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

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

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

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

给你个例子

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:wlja2nd1oxx.dvb
下载次数:0 文件大小:17.5 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

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对话框的问题！请指教！

发表回复

精选推荐