急于帮助，请高手指导

petty · 发表于 2004-5-5 22:50:00

我在VBA二次开发CAD过程遇到的问题，请知道的大哥不吝指教
1.如何实现VBA中用户窗体最小化，因为我执行中想停下回CAD图纸空间，然后再继续执行，窗体挡着看不到图面上的东西。或者我将窗体hide怎样能恢复也行。
2.组合列表框combox为什么不能加进多个数据，我怎么也找不到list属性，这样在程序中就不能让用户自己选择列表中的参数??

雪山飞狐_lzh · 发表于 2004-5-5 22:58:00

1、
Private Sub CommandButton1_Click()
Me.Hide
pnt = ThisDrawing.Utility.GetPoint
MsgBox pnt(0) & "," & pnt(1)
Me.Show
End Sub
2、
Private Sub UserForm_Activate()
Me.ComboBox1.AddItem 1
Me.ComboBox1.AddItem 2
Me.ComboBox1.AddItem 3
Me.ComboBox1.AddItem 4
End Sub

petty · 发表于 2004-5-5 23:34:00

非常感谢楼上的大侠帮助，解决了一个大问题，送你一束鲜花，不过第一个问题有没有更好的办法，这样虽然能看到图面内容，但一点鼠标立即就返回了，不能实现对图纸空间的平移全方位观看或者在图面上加此什么操作，总不能反复停止VBA程序再执行吧?如果能实现用户窗体的最小化就解决问题了，VB运行过程中真的没办法暂停或者窗体最小化吗?

雪山飞狐_lzh · 发表于 2004-5-5 23:50:00

from1.show 0

雪山飞狐_lzh · 发表于 2004-5-6 08:15:00

窗口代码：Private Sub CommandButton1_Click()
Me.Hide
ThisDrawing.Judge = True
End Sub
Thisdrawing代码：
Public Judge As Boolean
Private Sub AcadDocument_BeginRightClick(ByVal PickPoint As Variant)
If Judge Then
Judge = False
UserForm1.Show
End If
End Sub
效果：单击CommandButton1隐藏
在运行操作后点右键显示
不过右键操作太频繁，可以考虑改为双击事件控制

petty · 发表于 2004-5-6 08:39:00

真是受教了，在感谢了。

急于帮助，请高手指导

发表回复

精选推荐

浏览过的版块