Ho scaricato l'esempio di Dino Esposito (che tra l'atro consiglio a tutti perchè spiega veramente questo oggetto misterioso chiamato viewstate) e con mia grande sorpresa ho scoperto che l'esempio in C# di Esposito funziona mentre se lo traduco in VB.NET non funziona più, o meglio la funzione SavePageStateToPersistenceMedium viene regolamente chiamata, mentre la LoadPageStateFromPersistenceMedium non viene minimamente considerata. Capisco che MS sta spingendo C# ma questo mi sembra persino troppo !
Qualcuno mi può aiutare ?
Ecco il codice completo della pagina in VB
Public Class WebForm1
Inherits System.Web.UI.Page
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
#Region " Codice generato da Progettazione Web Form "
'Chiamata richiesta da Progettazione Web Form.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: questa chiamata al metodo è richiesta da Progettazione Web Form.
'Non modificarla nell'editor del codice.
InitializeComponent()
End Sub
#End Region
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
End Sub
Protected Overrides Function LoadPageStateFromPersistenceMedium() As Object
Dim m_viewState As String
Dim m_formatter As LosFormatter
Dim viewStateBag As Object
Dim file As String = GetFileName()
Dim sr As StreamReader = New StreamReader(file)
m_viewState = sr.ReadToEnd()
sr.Close()
m_formatter = New LosFormatter()
viewStateBag = m_formatter.Deserialize(m_viewState)
Return viewStateBag
End Function
Protected Overrides Sub SavePageStateToPersistenceMedium(ByVal viewState As Object)
Dim file As String = GetFileName()
Dim sw As StreamWriter = New StreamWriter(file)
Dim m_formatter As LosFormatter = New LosFormatter()
m_formatter.Serialize(sw, viewState)
sw.Close()
Return
End Sub
Private Function GetFileName() As String
Dim url As String = Request.ServerVariables("Path_Info")
Response.Write("---" + url)
url = url.Replace("/", "_")
Dim fileName As String = "{0}/{1}_{2}.viewstate"
fileName = String.Format(fileName, "ViewStateTemp", Session.SessionID, url)
Return Server.MapPath(fileName)
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = "prova di viewstate"
End Sub
End Class
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm1.aspx.vb" Inherits="Webtest3.WebForm1"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>WebForm1</title>
<meta name="GENERATOR" content="Microsoft Visual Studio.NET 7.0">
<meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
</HEAD>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<asp:Button id="Button1" style="Z-INDEX: 101; LEFT: 350px; POSITION: absolute; TOP: 63px" runat="server" Text="Button" Width="189px" Height="41px"></asp:Button>
<asp:TextBox id="TextBox1" style="Z-INDEX: 102; LEFT: 93px; POSITION: absolute; TOP: 68px" runat="server" Width="217px" Height="55px"></asp:TextBox>
</form>
</body>
</HTML>
