Sessions ASP.Net Tutorial

  1. Home
  2. ASP.Net Tutorial
  3. Sessions
  4. Use ViewState to store object list (VB)
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb"  Inherits="_Default" %>



    Untitled Page


    
    

    
    

    


File: Default.aspx.vb
Partial Class _Default
    Inherits System.Web.UI.Page
     Class Person
        Public first As String = "first"
        Public last As String = "last"
        Public blog As String = "http://www.rntsoft.com"
    End Class
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim people(500) As Person
        For i As Integer = 0 To people.Length - 1 Step 1
            people(i) = New Person
        Next
        ViewState("Folks") = people
    End Sub
    Dim _pageGuid As String = Nothing
    Public Property PageGuid() As String
        Get
            'Do we have it already? Check the Form, this could be a post back
            If (_pageGuid = Nothing) Then
                _pageGuid = Me.Request.Form("__VIEWSTATE_KEY")
            End If
            'No? We'll need one soon.
            If (_pageGuid = Nothing) Then
                _pageGuid = Guid.NewGuid.ToString
            End If
            Return _pageGuid
        End Get
        Set(ByVal value As String)
            _pageGuid = value
        End Set
    End Property
    Protected Overrides Function LoadPageStateFromPersistenceMedium() As Object
        Return Session(Me.PageGuid)
    End Function
    Protected Overrides Sub SavePageStateToPersistenceMedium(ByVal viewState As Object)
        RegisterHiddenField("__VIEWSTATE_KEY", Me.PageGuid)
        Session(Me.PageGuid) = viewState
    End Sub
End Class