Buongiorno a tutti,
una nota: questo post sarebbe stato brevissimo se fosse possibile allegare uno ZIP con il codice
Ho una classe "Cliente":

Imports Microsoft.VisualBasic

Public Class Cliente
Public Sub New()
MyBase.New()
Me._code = "cod1"
Me._name = "Mario"
Me._surname = "Rossi"
Me._IVA = "12345678901"
Me._address = "mario@rossi.com"
End Sub

Public Sub New(ByVal codice As String, ByVal nome As String, _
ByVal cognome As String, ByVal partitaIVA As String, ByVal email As String)

Me._code = codice
Me._name = nome
Me._surname = cognome
Me._IVA = partitaIVA
Me._address = email
End Sub

Public Sub Finalize()
Me._code = ""
Me._name = ""
Me._surname = ""
Me._IVA = ""
Me._address = ""
MyBase.Finalize()
End Sub

Public Property _code() As String
Get
Return _code
End Get
Set(ByVal value As String)

End Set
End Property

Public Property _name() As String
Get
Return _name
End Get
Set(ByVal value As String)

End Set
End Property

Public Property _surname() As String
Get
Return _surname
End Get
Set(ByVal value As String)

End Set
End Property

Public Property _IVA() As String
Get
Return _IVA
End Get
Set(ByVal value As String)

End Set
End Property

Public Property _address() As String
Get
Return _address
End Get
Set(ByVal value As String)

End Set
End Property
End Class

ed un web service che la istanzia, creato col Code-behind:

-- codice AnagraficaWS.asmx --
<%@ WebService Language="vb" CodeBehind="~/App_Code/AnagraficaWS.vb" Class="Anagrafica" %>

-- codice code-behind --
Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols

<WebService(Name:="AnagraficaWS", _
Description:="Web service di esempio che restituisce dei dati anagrafici dato un codice", _
Namespace:="http://tempuri.org/ASP_NET/Anagrafica_WS/AnagraficaWS")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicPr ofile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.Des ignerGenerated()> _
Public Class Anagrafica
Inherits System.Web.Services.WebService

<WebMethod(Description:="Metodo per prelevare le informazioni di un cliente")> _
Public Function getInfoCliente(ByVal Code As String) As String
'Creo un nuovo oggetto cliente
Dim customer As New Cliente("cod1", "Mario", "Rossi", "12345678901", "mario@rossi.com")
Try
'Controllo il codice di input con quello
'istanziato all'interno dell'oggetto
If customer._code.Equals(Code) Then
Return "pippo"
End If
Catch ex As Exception
Return ex.Message
End Try
End Function

End Class

Quale dei due costruttori usi, ho sempre un'eccezione: se leggete il codice d'errore, scoprirete che non viene mai creata un'istanza della classe.
Secondo voi a che è dovuto?
Kisses,

Nat