Preserve Keyword:

         Dynamic array मे Redim statement का use कर उसकी size को बदला जा सकता है पर ऐसे करने से इसमे store की गई values lost हो जाती हैं। जब भी redim statement use किया जाता है इसमे store की गई सभी values lost हो जाती हैं और array blank हो जाता है। इस समस्या को हल करने के लिए Redim statement के साथ मे Preserve keyword का use किया जाता है। यह keyword use करने पर array की size change होने पर भी उसमे store की गई values lost नहीं होती हैं। इस keyword को Redim के बाद use किया जाता है। जिसका syntax निम्न है।

Redim Preserve array_name (new_size)

Redim Preserve md (10)

Program 7: Dynamic Array

Public Class Form1

    Dim dy() As Integer

   

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim size, i As Integer

        size = Val(TextBox1.Text)

        ReDim dy(size)

        For i = 0 To size - 1

            dy(i) = Val(InputBox("Enter Value"))

            Label2.Text = Label2.Text & Chr(13) & dy(i)

        Next

End Sub

  

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim n_size, o_size, i As Integer

        n_size = Val(InputBox("Enter New Size"))

        o_size = dy.Length

        ReDim Preserve dy(n_size)

        If n_size > o_size Then

            For i = o_size To n_size

                dy(i) = Val(InputBox("Enter New Items"))

                Label2.Text = Label2.Text & Chr(13) & dy(i)

            Next

        End If

End Sub

End Class