[vb6] matrici bidimensionali

[ciro78]

Salve a tutti

Dim tabelline(1 To 12, 1 To 12) As Integer

Private Sub Form_Load()
 For j = 1 To 12
  For k = 1 To 12
  tabelline(j, k) = j * k
  x = tabelline(j, k)
  Form1.Print x
  Next k
 Next j
End Sub

il seguente codice mi dovrebbe stamprae sul form una tabellina o meglio una tavola pitagorica.perchè non accade??

[ciro78]

[@less]

Originariamente inviato da ciro78
Salve a tutti

Dim tabelline(1 To 12, 1 To 12) As Integer

Private Sub Form_Load()
 For j = 1 To 12
  For k = 1 To 12
  tabelline(j, k) = j * k
  x = tabelline(j, k)
  Form1.Print x
  Next k
 Next j
End Sub

il seguente codice mi dovrebbe stamprae sul form una tabellina o meglio una tavola pitagorica.perchè non accade??

mmhh, :master: hai provato con

Private Sub Form_Activate()

invece di

Private Sub Form_Load()

[ciro78]

si grazie funziona ma percè il load non va bene??

visto che siam qui coem potrei renderle tipo tabelline?una tavola pitagorica insomma!

[@less]

Credo che non funziona perchè carica l'interfaccia del form, quindi nel momento in cui lo vedi i dati vengono cancellati o sovrascritti...

Non ho capito la seconda domanda, cioè graficamente o utilizzando solo form.print?

[ciro78]

entrambi

[@less]

Beh a questo punto conviene utilizzale le label.
Se utilizzi una tabellina 12 x 12, ecco crei una label con lo stesso nome, quindi sarà indicizzata.
Adesso non ho vb sotto mano quindi vado per esempio:

etichetta per label: label_tabellina
e ne metti 144 sul form.

A questo punto il codice sarà piu o meno cosi

label_tabellina( ( (j-1) * 12) + k ) = j * k


Mi sono spiegato?

[ciro78]

cosa ti faccio capire????

[@less]

[OT] : Maledizione non ho vb adesso
Stasera quando arrivo a casa lo provo se hai pazienza...
Potresti intanto a fare una ricerca su internet
[/OT]

1- Cmq prova a mettere una etichetta o una label.
2- la copi e la incolli.
Ti farà una domanda, e gli dici di si.
Iniziamo con questo.

[ciro78]

cioè inserisco una label nel mio form poi???