_
Public Class themenu
MenuIdentification Pública como Integer
MenuPersonName Pública como secuencia
Pública email as String
Public Sub New ( menuIdentification ByVal como entero , menuPersonName ByVal como secuencia , email ByVal como secuencia )
< p > MenuIdentification = menuIdentification
MenuPersonName = menuPersonName
p Email = email
End Sub End Class
3
Añadir a la clase que se crea el estado de vista . Utilice el ejemplo que sigue como guía , sino que es una continuación del código del paso anterior
VMenu Dim como nuevo themenu ( "Home", 1 " /default.aspx ")
< . p> ViewState ( " VMenu ") = VMenu
Para utilizar el objeto themenu :
Si ViewState ( " VMenu ") IsNot Nada entonces
VMenu Dim como themenu < br >
VMenu = AppearNow ( ViewState ( " VMenu ") , themenu )
End If