| 查看: 1514 | 回复: 6 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
yylsunny新虫 (小有名气)
|
[求助]
用vb进行二次开发，具体如题
|
|
|
本人是vb的初学者，需要用vb对solidworks进行二次开发，运行此程序时一直出现错误，找了好久都不知道错在哪里，请教各位高手指导指导。。。 Private Sub chkDispStatBar_Click() If chkDispStatBar.Value = True Then swapp.DisplayStatusBar True Else swapp.DisplayStatusBar False End If End Sub Private Sub chkRevNumber_Click() If chkRevNumber.Value = True Then Dim retval As String retval = swapp.RevisionNumber MsgBox "8.0.0=solidworks 2010 sp0.0" & vbCrLf & _ vbCrLf & "you are running" & retval End If End Sub Private Sub Chkswexp_Click() If Chkswexp.Value = True Then swapp.SolidWorksExplorer End If End Sub Private Sub Cmdconnect_Click() Dim swapp As SldWorks.SldWorks Set swapp = Application.SldWorks End Sub |
回复此楼» 猜你喜欢
论文终于录用啦！满足毕业条件了
已经有21人回复
-
不自信的我
已经有5人回复
-
磺酰氟产物，毕不了业了！
已经有4人回复
-
投稿Elsevier的杂志（返修），总是在选择OA和subscription界面被踢皮球
已经有8人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 创腾科技NeoTrident “技术支持"职位 招募ing，热忱期待各位的加入！！！
已经有3人回复
- 【求助】ArcEngine二次开发如何生成等值线？
已经有14人回复
小芝芝
铁杆木虫 (知名作家)
- 应助: 109 (高中生)
- 金币: 15459.5
- 红花: 15
- 帖子: 8057
- 在线: 761.2小时
- 虫号: 2104664
- 注册: 2012-11-03
- 性别: GG
- 专业: 世界经济学
7楼2013-04-20 22:42:00