Private Sub cmdAdd_Click()
'测试add方法
On Error Resume Next
Dim SoapClient As Object
Set SoapClient = CreateObject("MSSOAP.SoapClient30")
Call SoapClient.MSSoapInit2(Text1.Text, "", "", "CalcService", "")
If Err.Number <> 0 Then
MsgBox SoapClient.FaultString, vbExclamation
Exit Sub
End If
' Now the client can call an operation listed in the portType element
' specified when calling mssoapinit().
Text4.Text = CStr(SoapClient.Add(Val(Text2.Text), Val(Text3.Text)))
If Err.Number <> 0 Then
MsgBox SoapClient.FaultString, vbExclamation
Exit Sub
End If
End Sub
Private Sub cmdMinus_Click()
'测试substract方法
On Error Resume Next
Dim SoapClient As Object
Set SoapClient = CreateObject("MSSOAP.SoapClient30")
Call SoapClient.MSSoapInit2(Text1.Text, "", "", "CalcService", "")
If Err.Number <> 0 Then
MsgBox SoapClient.FaultString, vbExclamation
Exit Sub
End If
' Now the client can call an operation listed in the portType element
' specified when calling mssoapinit().
Text7.Text = CStr(SoapClient.subtract(Val(Text5.Text), Val(Text6.Text)))
If Err.Number <> 0 Then
MsgBox SoapClient.FaultString, vbExclamation
Exit Sub
End If
End Sub |