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()<BR>Me.Hide<BR>pnt = ThisDrawing.Utility.GetPoint<BR>MsgBox pnt(0) &amp; "," &amp; pnt(1)<BR>Me.Show<BR>End Sub


2、


Private Sub UserForm_Activate()<BR>Me.ComboBox1.AddItem 1<BR>Me.ComboBox1.AddItem 2<BR>Me.ComboBox1.AddItem 3<BR>Me.ComboBox1.AddItem 4<BR>End Sub<BR><BR>

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()<BR>Me.Hide<BR>ThisDrawing.Judge = True<BR>End Sub<BR>


Thisdrawing代码：


Public Judge As Boolean


Private Sub AcadDocument_BeginRightClick(ByVal PickPoint As Variant)<BR>If Judge Then<BR>Judge = False<BR>UserForm1.Show<BR>End If<BR>End Sub<BR>


效果：单击CommandButton1隐藏


在运行操作后点右键显示


不过右键操作太频繁，可以考虑改为双击事件控制

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

真是受教了，在感谢了。
页: [1]
查看完整版本: 急于帮助，请高手指导