How to Pass an Array to a Form (138659)

MORE INFORMATION

Step-by-Step Example

1. In the Command window, enter the following commands:

      DIMENSION array1(3)
      array1(1) = "One"
      array1(2) = "Two"
      array1(3) = "Three"
      MODIFY FORM passarray   &&& Create a new form
   						

2. On the Form menu, click New Property, and name the property Array2(1).
3. In the form's Init event, place the following lines of code:

      PARAMETER Array1
      DIMENSION This.Array2(ALEN(Array1))
      =ACOPY(Array1, This.Array2)
      THISFORM.List1.NumberOfElements=ALEN(THISFORM.Array2)
      THISFORM.Refresh
   						

4. Place a list box on the form, and set the following properties for the list box:
   
   
   • Set the RowSource property to: THISFORM.Array2.
   • Set he RowSourceType property to: 5-ARRAY.
5. Save the form, and run it from the Command window with the following command line:

      DO FORM PASSARRAY WITH ARRAY1
   						

6. The elements from Array1 will be shown in the list box. Use the scroll bar if they are not all visible.