icollection_simple.aspx

来自「This is a book about vb.you could learn 」· ASPX 代码 · 共 25 行

<%@Page Language="VB"%>

<h3>Simple</h3>
<%

Dim Animals As ArrayList = new ArrayList()
Dim ArrayOfAnimals() As string

Animals.Add( "Cat" )
Animals.Add( "Dog" )

Dim a As Array

ArrayOfAnimals = Array.CreateInstance( GetType(String), 2 )

Animals.CopyTo( ArrayOfAnimals, 0 )
Dim Animal As String

For Each Animal in ArrayOfAnimals 
  Response.Write("<P>" & Animal )
Next

%>