userform1.show显示无效外部过程

Flyingdancing

网上有说，没有“microsoft windows command controls”引用的，我看了下，确实找不到。regsvr32 mscomctl.ocx后，仍然没有
求解决

2. '传递标注非关联长度数据
   
3. Public angletext As String
   
4. '传递按钮选择的对象集
   
5. Public sel As AcadSelectionSet
   
6. Load UserForm1
   
7. UserForm1.Show
   
8. 
   
9. 
   
10. Sub DIM_CHANGE()
    
11. Dim dimselect As AcadDimAligned
    
12. Dim ent As AcadEntity
    
13. Set ent = sel.Item(0)
    
14. If ent.ObjectName = "AcDbAlignedDimension" Then
    
15. Set dimselect = ent
    
16. End If
    
17. Set angeltext = TextBox1.Text
    
18. dimselect.TextOverride = Val(angletext)
    
19. Set sel = Nothing
    
20. ThisDrawing.SelectionSets("a").Erase
    
21. End Sub

'传递标注非关联长度数据<br /> Public angletext As String<br /> '传递按钮选择的对象集<br /> Public sel As AcadSelectionSet<br /> Load UserForm1<br /> UserForm1.Show<br /> <br /> <br /> Sub DIM_CHANGE()<br /> Dim dimselect As AcadDimAligned<br /> Dim ent As AcadEntity<br /> Set ent = sel.Item(0)<br /> If ent.ObjectName = "AcDbAlignedDimension" Then<br /> Set dimselect = ent<br /> End If<br /> Set angeltext = TextBox1.Text<br /> dimselect.TextOverride = Val(angletext)<br /> Set sel = Nothing<br /> ThisDrawing.SelectionSets("a").Erase<br /> End Sub

该贴已经同步到 Flyingdancing的微博

woaishuijia

1. Load UserForm1
   
2. UserForm1.show

复制代码

这两行必须放到过程里面啊,在模块的声明段当然会出错了.
PS:Load UserForm1这一行多余

Flyingdancing

woaishuijia 发表于 2012-7-15 09:58
这两行必须放到过程里面啊,在模块的声明段当然会出错了.
PS:Load UserForm1这一行多余

谢谢
~~~~~~~~~~~~~~~~~··