01.
<%@ Page Language=
"VB"
%>
02.
<script runat=
"server"
>
03.
Sub
Page_Load(sender
As
Object
, e
As
EventArgs)
04.
Dim
objArrList
As
ArrayList
05.
Dim
i
As
Integer
06.
07.
objArrList =
New
ArrayList
08.
09.
objArrList.Add(
"white"
)
10.
objArrList.Add(
"black"
)
11.
objArrList.Add(
"red"
)
12.
objArrList.Add(
"yellow"
)
13.
objArrList.Add(
"green"
)
14.
15.
Me
.lblText.Text = objArrList.Capacity()
16.
17.
End
Sub
18.
19.
</script>
20.
<html>
21.
<head>
22.
<title>ThaiCreate.Com ASP.NET - ArrayList</title>
23.
</head>
24.
<body>
25.
<form id=
"form1"
runat=
"server"
>
26.
<asp:Label id=
"lblText"
runat=
"server"
></asp:Label>
27.
</form>
28.
</body>
29.
</html>