_
Public Class elenco menu
MenuIdentification pubblica as Integer
MenuPersonName pubblico come String
email pubblica come String
Public Sub New ( ByVal menuIdentification come Integer , menuPersonName ByVal come stringa , email ByVal come stringa ) per < p > MenuIdentification = menuIdentification
MenuPersonName = menuPersonName
email = email
End Sub End Class
3 < p > Aggiungere la classe che si crea nello stato di visualizzazione . Utilizzare l'esempio fornito di seguito come guida , è una continuazione del codice del passaggio precedente
Dim VMenu come Nuovo elenco menu ( "Home" , 1 , " /default.aspx " ) per < . p > ViewState ( " VMenu " ) = VMenu
Per utilizzare l'oggetto elenco menu :
ViewState ( " VMenu " ) IsNot Nulla quindi
Dim VMenu come elenco menu < br
VMenu > = AppearNow ( ViewState ( " VMenu " ) , elenco menu ) per
End If