Foro de elhacker.net

Estimados, soy un poco novato en lo que es matrices en visual basic y tratando de crear una matriz como publica para que pueda ser vista desde cualquier form al compilar me da un error que es el siguiente: "Error de compilacion:
No se permiten constantes, cadenas de longitud fija, matrices e instrucciones Declare como miembros Public de modulos de objeto"

la idea es crear una pequeña matriz que guarde nombre de alumnos, y algunas notas y que esos datos sean accesibles de un nuevo form.

aqui les adjunto mi codigo por si me pueden ayudar
Public matriz_nombre(1 To 5) As Variant
Public matriz_nota(1 To 5, 1 To 4) As Variant
Public nombre As String
Public nota1 As Integer
Public nota2 As Integer
Public nota3 As Integer
Public nota4 As Integer
Public numal As Integer

Private Sub Command1_Click()
nombre = txtnomal
numal = txtnumal
nota1 = txtnota1
nota2 = txtnota2
nota3 = txtnota3
nota4 = txtnota4

matriz_nombre(numal) = nombre
matriz_nota(numal, 1) = nota1
matriz_nota(numal, 2) = nota2
matriz_nota(numal, 3) = nota3
matriz_nota(numal, 4) = nota4

Agradeciendoles de antemano por su tiempo y por su ayuda se despide atentamente,

E_nygma.

Como dice el mismo error, no podes declarar matrices como public, pero si podes declarar funciones públicas:

Private matriz_nombre(1 To 5) As Variant
Private matriz_nota(1 To 5, 1 To 4) As Variant
Public nombre As String
Public nota1 As Integer
Public nota2 As Integer
Public nota3 As Integer
Public nota4 As Integer
Public numal As Integer
 
Private Sub Command1_Click()
nombre = txtnomal
numal = txtnumal
nota1 = txtnota1
nota2 = txtnota2
nota3 = txtnota3
nota4 = txtnota4
 
matriz_nombre(numal) = nombre
matriz_nota(numal, 1) = nota1
matriz_nota(numal, 2) = nota2
matriz_nota(numal, 3) = nota3
matriz_nota(numal, 4) = nota4
End Sub
 
Public Function devolvervalormatriz_nombre(numero%) As String
devolvervalormatriz_nombre = matriz_nombre(numero)
End Function
 
Public Function devolvervalormatriz_nota(numero$, numero2$) As String
devolvervalormatriz_nota = matriz_nota(numero, numero2)
End Function
 

y desde otro form o un módulo:

'Form donde esta la función pública
Nombre = Form1.devolvervalormatriz_nombre(4)
 

Saludos :)