| 查看: 1624 | 回复: 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 |
回复此楼» 猜你喜欢
283求调剂
已经有20人回复
-
求调剂
已经有10人回复
-
材料工程302分求调剂
已经有17人回复
-
一志愿华中农微生物，288分，三年实验经历
已经有10人回复
-
化学工程与技术324调剂
已经有22人回复
-
273求调剂
已经有51人回复
-
材料复试求调剂
已经有18人回复
-
一志愿211，化学学硕，310分，本科重点双非，求调剂
已经有24人回复
-
调剂
已经有9人回复
-
生物学调剂 可调剂到生物与医药
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 创腾科技NeoTrident “技术支持"职位 招募ing，热忱期待各位的加入！！！
已经有3人回复
- 【求助】ArcEngine二次开发如何生成等值线？
已经有14人回复
libralibra
至尊木虫 (著名写手)
骠骑将军
- 程序强帖: 40
- 应助: 817 (博后)
- 金币: 12914.1
- 红花: 64
- 帖子: 2238
- 在线: 287.3小时
- 虫号: 696514
- 注册: 2009-02-05
- 专业: 计算机软件
4楼2012-06-10 00:00:54
libralibra
至尊木虫 (著名写手)
骠骑将军
- 程序强帖: 40
- 应助: 817 (博后)
- 金币: 12914.1
- 红花: 64
- 帖子: 2238
- 在线: 287.3小时
- 虫号: 696514
- 注册: 2009-02-05
- 专业: 计算机软件
2楼2012-06-08 15:44:22
yylsunny
新虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 108.3
- 散金: 10
- 帖子: 93
- 在线: 21.6小时
- 虫号: 1269844
- 注册: 2011-04-19
- 专业: 制造系统与自动化
3楼2012-06-08 15:55:18
sing00
铁杆木虫 (职业作家)
- 应助: 8 (幼儿园)
- 金币: 8479.7
- 散金: 3526
- 红花: 7
- 帖子: 3890
- 在线: 283小时
- 虫号: 407354
- 注册: 2007-06-20
- 专业: 信息安全
5楼2012-06-10 02:09:16
