Questo è un esempio Pincus Pallas che funziona
codice:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Inserire qui il codice utente necessario per inizializzare la pagina
Dim j As PincoPalla
If Not Me.IsPostBack Then
j = New PincoPalla("Pinco", "Palla")
PrintLn(j.NomeCompleto, "Nome completo prima di serializzare nel viewstate")
Me.ViewState.Add("PincoPalla", j)
Else
j = DirectCast(Me.ViewState("PincoPalla"), PincoPalla)
PrintLn(j.NomeCompleto, "Nome completo dopo deserializzazione da viewsate")
End If
End Sub
End Class
<Serializable()> Public Class PincoPalla
Private _nome$ = "", _cognome$ = "", _nomecompleto$ = ""
Public Sub New(ByVal nome$, ByVal cognome$)
Me._nome = nome
Me._cognome = cognome
End Sub
Public Property Nome$()
Get
Return Me._nome
End Get
Set(ByVal Value$)
Me._nome = Value
End Set
End Property
Public Property Cognome$()
Get
Return Me._cognome
End Get
Set(ByVal Value$)
Me._cognome = Value
End Set
End Property
Public ReadOnly Property NomeCompleto$()
Get
Return Me.Nome & " " & Me.Cognome
End Get
End Property
End Class