Expand|Select|Wrap|Line Numbers
- Partial Class dynamic_array
- Inherits System.Web.UI.Page
- Dim s() As String
- Dim i As Integer = 0
- Protected Sub btn_set_Click(sender As Object, e As System.EventArgs) Handles btn_set.Click
- ReDim s(CInt(txt_no.Text))
- End Sub
- Protected Sub btn_save_Click(sender As Object, e As System.EventArgs) Handles btn_save.Click
- Dim i As Integer = 0
- Try
- For i = 0 To s.Length - 1
- s(i) = InputBox("enter name " + (i + 1).ToString)
- Next
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End Sub
- Protected Sub btn_get_Click(sender As Object, e As System.EventArgs) Handles btn_get.Click
- Dim str As String = ""
- Dim i As Integer = 0
- Try
- For i = 0 To s.Length - 1
- str &= s(i) + vbCrLf
- Next
- MsgBox(str)
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End Sub
- End Class