[VB6] Utilizzo MSFlexGrid e sua lettura

[Mario113]

Salve..
avrei bisogno di un aiuto .. scusatemi se non mi sono presentato, sono nuovo.
sto sviluppando un piccolo eseguibile per un'esercitazione..

In pratica, sfruttando un array bidimensionale (voti) vado a caricare i voti appunto di ogni alunno in ogno materia...

il tutto visualizzato in una flex grid... (presente in un secondo form)

adesso, collocando un menu nel secondo form, devo fare apparire una riga media che calcoli la media per ogni alunno e la faccia apparire nell'ultima colonna....

Non mi dilungo molto, vi allego il sorgente..
Se mi potete dare una mano ne sono molto fiero... .
Ecco il codice

 
frmPrimo

Private Sub cmdCarica_Click()
Dim alunnoP, materiaP As Integer
alunnoP = lstCognomi.ListIndex + 1
materiaP = lstMaterie.ListIndex + 1
voti(alunnoP, materiaP) = txtVoto.Text
MsgBox ("Voto immesso")
End Sub

Private Sub lstCognomi_Click()
txtCognome.Text = lstCognomi.List(lstCognomi.ListIndex)
txtNome.Text = lstNomi.List(lstCognomi.ListIndex)
End Sub

Private Sub lstMaterie_Click()
txtMateria = lstMaterie.List(lstMaterie.ListIndex)
End Sub

Private Sub mnuCaricaAlunni_Click()
For I = 1 To quanti
nomi(I) = InputBox("Carica nomi")
cognomi(I) = InputBox("Carica Cognomi")
Next I

If I > quanti Then MsgBox ("Arrays Caricati")
For I = 1 To quanti
lstNomi.AddItem nomi(I)
lstCognomi.AddItem cognomi(I)
Next I
End Sub

Private Sub mnuCaricaMaterie_Click()
For I = 1 To quante
materie(I) = InputBox("immetti la materia")
lstMaterie.AddItem materie(I)
Next I
End Sub

Private Sub mnuFine_Click()
End
End Sub

Private Sub mnuMostra_Click()
frmscondo.Show
End Sub

Private Sub mnuNumAlunni_Click()
quanti = InputBox("Numero Alunni")
ReDim cognomi(1 To quanti) As String
ReDim nomi(1 To quanti) As String

End Sub

Private Sub mnuNumMaterie_Click()
quante = InputBox("Numero Alunni")
ReDim materie(1 To quante) As String
ReDim voti(1 To quanti, 1 To quante) As Single
End Sub

Private Sub mnuMedia_Click()
GrigliaVoti.Cols = Nummaterie + 3
GrigliaVoti.Row = 0
GrigliaVoti.Text = "Media"
End Sub


frmSecondo

Private Sub Form_Load()

GrigliaVoti.Rows = quanti + 1
GrigliaVoti.Cols = quante + 1
GrigliaVoti.Col = 0
GrigliaVoti.Row = 0
GrigliaVoti.Text = "Alunni/Materie"
For I = 1 To quanti
GrigliaVoti.Row = I
GrigliaVoti.Col = 0
GrigliaVoti.Text = nomi(I) & " " & cognomi(I)
Next I

For I = I To quante
GrigliaVoti.Row = 0
GrigliaVoti.Col = I
GrigliaVoti.Text = materie(I)
Next I
For k = 1 To quante
For I = 1 To quanti
GrigliaVoti.Row = I
GrigliaVoti.Col = k
GrigliaVoti.Text = voti(I, k)
Next I
Next k
End Sub


Modulo_Griglia

Public nomi() As String

Public cognomi() As String
Public materie() As String
Public voti() As Single

Public I As Integer
Public quanti As Integer
Public quante As Byte

Grazie

[Mario113]

Qualcuno sa dirmi se è possibile in qualche modo ricavare il sorgente dall' exe sviluppato in VB6 ?

[alka]

Originariamente inviato da Mario113
Qualcuno sa dirmi se è possibile in qualche modo ricavare il sorgente dall' exe sviluppato in VB6 ?

A parte che questa domanda non ha nulla a che vedere con l'argomento iniziale della discussione, che dovrebbe essere rispettato, qui non parliamo di decompilazione e di reverse engineering in generale, visto che principalmente si tratta di pratiche che favoriscono la violazione di copyright.

[Mario113]

Mi scuso con tutti voi. grazie