codice:
Option Strict On
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim j As New Prova()
j.miaProprieta = New String() {"Stefano", "Carlo", "Nicola"}
For i As Integer = 0 To j.miaProprieta.GetUpperBound(0)
Response.Write(j.miaProprieta(i) & "
")
Next
End Sub
Private Class Prova
Private _miaProprieta As String()
Public Property miaProprieta() As String()
Get
Return Me._miaProprieta
End Get
Set(ByVal value As String())
Me._miaProprieta = value
End Set
End Property
End Class
End Class