Keskustelu: Ohjelmointikysymykset: Form1:stä tiedot form2:n pylväsdiagrammiin (VB6)

Kuinka saisin form1:stä tiedot form2:n pylväsdiagrammiin? Form1:ssä on Näytä-nappula, jota painamalla avautuu form2 ja diagrammi.

Form1:ssä tiedot ovat näin:

Dim data(5) As Integer

Private Sub Form_Load()
data(0) = 12
data(1) = 20
data(2) = 8
data(3) = 5
data(4) = 30

End Sub

Form2:ssa näin

Private Sub Form_Activate()
Line (500, 300)-(500, 3500)
Line (400, 3300)-(5400, 3300)
Dim i As Integer
Dim luku As Integer

For i = 0 To 4
    luku = Form1.data(i) 'Tämä kohta ei toimi
    Line (500 + i * 600, 3000 - luku / 50# * 3000)-(500 + (i + 1) * 600, 3000 - luku / 50# * 3000)
    Line (500 + (i + 1) * 600, 3000 - luku / 50# * 3000)-(500 + (i + 1) * 600, 3300)
    Line (500 + i * 600, 3000 - luku / 50# * 3000)-(500 + i * 600, 3300)
Next

End Sub

Eli muuten kaikki toimii, mutta luku ei saa arvoja.

Muuta määrittelylause Form1:ssä:
Public data(5) As Integer

Kokeili jo, mutta herjailee näin.

Constants, fixed-lenght strings, arrays, user-defined types and Declare statements not allowed as Public memmbers of object modules.

Laita form1:een Public-tyyppinen funktio, joka palauttaa data-taulukon arvoja tyyliin

Public Function OtaData(mika As Integer) As Integer
  OtaData = data(mika)
End Function

Ja sitten form2:een seuraavaa...

....
luku = form1.OtaData(i)
....

Kirjoita se Public-lause lomakkeen alkuun general-osaan ennen tapahtumakoodeja.

Jeps, nyt toimii. Kiitoksia avusta! Olin hieman hukassa, kun edes projektipäällikkö ei osanut auttaa.