Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB6: Taulukoiden siirtäminen

Ropertto IV [19.05.2009 17:24:29]

#

Tarkoitus olisi siirtää taulukoiden tiedot formista toiseen.

Esimerkiksi form1:

Public class
Dim r(1 To 2) As Integer

Private Sub Command1_Click()
Form2.Show
End Sub

Private Sub Form_Load()
r(1) = 5
End Sub

form2:

Private Sub Command1_Click()
Dim a As Integer
a = Form1.r(1)
End Sub

Koodi aiheuttaa Compilile errorin, koska ei ymmärrä kohtaa "a = form1.r(1)".
Mitenkä koodia tulisi korjata, jotta tiedon siirto onnistuisi.

neau33 [19.05.2009 18:50:16]

#

Moikka Ropertto IV!

vaikkapa näin...

'Form1
Private r(1 To 2) As Integer

Private Sub Form_Load()
   r(1) = 5
End Sub

Private Sub Command1_Click()
   Form2.Show
End Sub

Public Function GetArray() As Variant
   GetArray = r()
End Function
'Form2
Private Sub Command1_Click()
   Dim r As Variant
   r = Form1.GetArray()
   MsgBox r(1)
End Sub

vesimies [19.05.2009 19:03:45]

#

Voit myös laittaa form1:een julkisen ominaisuuden:

Private m_r(1 To 2) As Integer

Public Property Get r(index As Integer) As Integer
    r = m_r(index)
End Property

Ja sitten käyttää sitä form2:sta.

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta