863
社区成员
发帖
与我相关
我的任务
分享
dll名称为testclass ,类名为class1
Public Function UpdateMethod(ApplyNo As String) As Integer
Dim aaa As String
Dim bbb As Integer
Dim ccc As MethodForHi.Method
aaa = Trim(ApplyNo)
bbb = ccc.UpdateRecord(aaa, 12)
MsgBox aaa
UpdateMethod = bbb
End Function
Private Sub Command1_Click()
On Error GoTo errorHandle:
Dim obj As Object
Dim ret As String
Dim fu As Integer
Set obj = CreateObject("testclass.class1")
fu = obj.UpdateMethod("123")
ret = CStr(fu)
MsgBox ret
Set obj = Nothing
Exit Sub
errorHandle:
MsgBox Err.Description & " --"
Err.Clear
End Sub
dll名称为testclass ,类名为class1
Public Function UpdateMethod(ApplyNo As String) As Integer
Dim aaa As String
Dim bbb As Integer
Dim ccc As MethodForHi.Method
aaa = Trim(ApplyNo)
bbb = ccc.UpdateRecord(aaa, 12)
MsgBox aaa
UpdateMethod = bbb
End Function
Private Sub Command1_Click()
'On Error GoTo errorHandle:
Dim obj As Object
Dim ret As String
Dim fu As Integer
Set obj = CreateObject("testclass.class1")
fu = obj.UpdateMethod("123")
ret = CStr(fu)
MsgBox ret
Set obj = Nothing
Exit Sub
errorHandle:
MsgBox Err.Description & " --"
Err.Clear
End Sub