Es lo mismo:
Luego, desde una clase, haces la instancia del objeto creado
Private PR_Servi As New ServicesReference1.Service1SoapClient
, y por últimoCrear los métodos de tu clase según la funcionabilidad de los métodos de tu web services. Por ejemplo:
Public Function AccionUpdate(ByVal Opcion As Integer) As Boolean Try PR_Servi.ActualizaOpciones(PrOpcion) AccionUpdate= True Catch ex As Exception Dim st As New System.Diagnostics.StackTrace() Bitacora_Error(Err.Number, ex.Message, myType.Name,st.GetFrame(0).GetMethod().Name, False) AccionUpdate= False End Try End Function
Ya, dentro de la progamación de tu aplicación instancias esta clase y listo. Ejemplo:
Dim ws As New ClsWebServices
dim correcto_bool as Boolean
correcto_bool = ws.AccionUpdate(1)