les_stockton
New member
Why don't the references in SessionUpdate work?
VB.NET:
Public Class Common
Public pageContext As System.Web.UI.Page = New System.Web.UI.Page
Private mods As Modules
Public Sub New(ByVal thePage As System.Web.UI.Page)
pageContext = thePage
mods = New Modules
mods.Tab(Modules.TabIndex.Anger) = Convert.ToBoolean(pageContext.Session("TabAnger"))
End Sub
Public Class Modules
Public Tab(6) As Boolean
Public Property tabAnger() As Boolean
Get
Return Tab(Modules.TabIndex.Anger)
End Get
Set(ByVal value As Boolean)
Tab(Modules.TabIndex.Anger) = value
End Set
End Property
Public Enum TabIndex
Summary = 0
Anger = 1
Behavior = 2
Mental = 3
Education = 4
Employment = 5
SubstanceAbuse = 6
End Enum
Public Sub SessionUpdate()
pageContext.Session("TabAnger") = Tab(Modules.TabIndex.Anger)
pageContext.Session("TabBehavior") = Tab(Modules.TabIndex.Behavior)
End Sub
End Class
End Class