formulieren (vb 6.0)

[rkuiper]

IK heb een probleem met formulieren.
Ik kan formulieren laden met behulp van een index-nummer
zoals hieronder staat:
nu wordt telkens als ik op de knop klik een nieuw formulier geladen.

Dim NewForm() As New Form1
ReDim NewForm(x)
Load NewForm(x)
NewForm(x).Show
NewForm(x).Text1.Text = "test"
x= x+ 1

Ik kan in dezelfde procedure ook de text in de textbox op dat formulier wijzigen, zoals hierboven staat. Maar als ik deze text wil
wijzigen vanuit een andere procedure, met dezelfde coderegel,
dat krijg ik telkens een foutmelidng: "Subscript out of range"
Hoe kan ik dit oplossen?

 

[jepewe]

Dit is duidelijk een array probleem. Moet je de arrays niet eerst een grootte meegeven, zodat bekend is hoeveel elementen er in deze arrays zijn toegestaan? Als x dus groter wordt dan dat aantal elementen, krijg je e.d. fout.
Joop

 

[rkuiper]

Ik heb in een module al gedeclareerd dat NewForm 10 elementen kan bevatten.
Hierin zit het probleem niet. Want ik krijg de foutmelding bij elk element. Ook bij elementen die wel in het array vallen.

Ik heb hem zo gedeclareerd in een module
Public NwForm(10) As New Form1

 

[jepewe]

Als je de procedure waarin de arrays worden bepaald tussendoor hebt verlaten, wordt de lengte van de array op 0 gezet. Je moet er dus voor zorgen, dat dit in de MAIN procedure gedaan wordt, zodat alle onderliggende procedures deze arrays herkennen. Blijft nog een evt. probleem met de waarde van x. Als die in een andere procedure moet worden overgenomen, moet daarvoor zo'n zelfde structuur gevonden worden.
Joop