[Gambas-user] Displaying the same form n times

[Fabien Bodard]

PUBLIC SUB Button1_Click()

  DIM count AS Integer
  dim hForm as IPinput
  ascount = txtAScount.Text        'Point 1  '''never use underscore
in names and str to int is automatic

  FOR count = 1 TO ascount
    hForm = New IPinput
    hForm.show

  NEXT
END



in IP Input form add :

STATIC PUBLIC aIP as NEW STRING[]



PUBLIC SUB Button_Clic()

IPInput.aIP.Add(txtInput.Text)

END










2010/12/20 vikram <austinium at ...43...>:
> Hi,
>
> I have two forms in my application, the first one asks how many Application Servers to configure, and then displays second one(IP input dialog) for each Application Server. For example if there are 5 Application Server, the IP input dialog is displayed 5 times.
>
> I was thinking of calling the IP input dialog from a FOR loop within the first form,
>
> PUBLIC SUB Button1_Click()
>
>   DIM count AS Integer
>
>   ascount = CInt(txt_AScount.Text)        'Point 1
>
>   FOR count = 1 TO ascount
>     IPinput.show
>
>   NEXT
> END
>
> There are two things I am unsure of here:
> 1.the number of IP Addresses to be entered is to decided at runtime, I was thinking of storing all IP Addresses entered via the IP input dialog into a String array. But there is no
>  way of deciding what the size of the string array should be till Point 1(marked in code), and it is not possible syntactically to define an array at that point in code.
> 2.The FOR loop for displaying the IP input dialog is not displaying the form ascount times. It only displays it once.
>
> This probably not as complex as it seems, but i am stuck at this point trying to find a solution to this :( I am attaching a sample project with this mail for your reference.
>
> Any help would be greatly appreciated.
>
> Thanks in advance,
> Vikram
>
>
>
>
> ------------------------------------------------------------------------------
> Lotusphere 2011
> Register now for Lotusphere 2011 and learn how
> to connect the dots, take your collaborative environment
> to the next level, and enter the era of Social Business.
> http://p.sf.net/sfu/lotusphere-d2d
> _______________________________________________
> Gambas-user mailing list
> Gambas-user at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user
>
>



-- 
Fabien Bodard