<%@ Page Language="VB" %>
<script language="VB" runat="server">
' There are a lot of different ways to do this so I'm going
' to show you a couple of them all in this one sample.
' That way you can choose whichever method works best for
' your particular situation.
Sub Page_Load(sender as Object, e as EventArgs)
Dim I As Integer
' Method 2 coding
Dim strText
For I = 1 To 5
strText = strText & "<font size=""" & I & """>Hello World</font><br />" & vbCrLf
Next I
lblHelloWorld2.Text = strText
' Method 3 coding
Dim myStringBuilder As New StringBuilder
For I = 1 To 5
myStringBuilder.Append("<font size=""" & I & """>Hello World</font><br />" & vbCrLf)
Next I
lblHelloWorld3.Text = myStringBuilder.ToString
' Method 4 coding
Dim lblMessage as Label
For I = 1 To 5
lblMessage = New Label()
lblMessage.Text = "<font size=""" & I & """>Hello World</font><br />" & vbCrLf
' Conflicts with method 1 - remove inline <% %>
' coding and then uncomment this line.
'Controls.Add(lblMessage)
Next I
End Sub
</script>
<html>
<head>
<title>ASP.NET Hello World Sample</title>
</head>
<body>
<h2>Method 1 - just like "classic ASP"</h2>
<%
' Loop from 1 to 5 incrementing font size.
Dim I
For I = 1 To 5
Response.Write("<font size=""" & I & """>Hello World</font><br />" & vbCrLf)
Next I
%>
<hr />
<h2>Method 2 - String Concatenation</h2>
<asp:Label id="lblHelloWorld2" runat="server" />
<hr />
<h2>Method 3 - StringBuilder</h2>
<asp:Label id="lblHelloWorld3" runat="server" />
<hr />
<h2>Method 4 - Dynamic Server Controls</h2>
<p>
Conflicts with method 1 - remove inline <% %>
coding and then uncomment the indicated line in the
Page_Load sub to play with this method.
</p>
</body>
</html>
|
