标题: VB solidworks 二次开发 [打印本页] 作者: weichen0513 时间: 2011-5-15 11:20 标题: VB solidworks 二次开发 我在VB环境中建立了两个按钮，代码分别如下，但是在运行的时候发生错误，错误提示在“retval = swapp.RevisionNumber”这一行
Private Sub Check1_Click()
Dim retval As String
If Check1.Value = 1 Then
retval = swapp.RevisionNumber
MsgBox "当前软件版本号为:" & retval
End If
End Sub
Private Sub Command1_Click()
Dim swapp As Object
Set swapp = CreateObject("sldworks.application")
End Sub
但是当我把代号改写为如下代码时，程序又可以运行
Private Sub Command1_Click()
Dim swapp As Object
Set swapp = CreateObject("sldworks.application")
Dim retval As String
retval = swapp.RevisionNumber
MsgBox "当前软件版本号为:" & retval
End Sub