|
A to Z function
Quick and dirty A to Z function.
Menu Generator
|
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Literal1.Text = AtoZ()
End Sub
Function AtoZ() As String
Dim letter As String
Dim x As Integer letter = ""
For x = 65 To 90
letter = letter & "<td>" &
chr(x) & "</td>"
Next x
End Function
|
|
|