急于帮助，请高手指导

petty

我在VBA二次开发CAD过程遇到的问题，请知道的大哥不吝指教


1.如何实现VBA中用户窗体最小化，因为我执行中想停下回CAD图纸空间，然后再继续执行，窗体挡着看不到图面上的东西。或者我将窗体hide怎样能恢复也行。


2.组合列表框combox为什么不能加进多个数据，我怎么也找不到list属性，这样在程序中就不能让用户自己选择列表中的参数??

雪山飞狐_lzh

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

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

雪山飞狐_lzh

from1.show 0

雪山飞狐_lzh

窗口代码： 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

真是受教了，在感谢了。