Discussion :

[Invité]

Bonjour,
J'ai créé plusieurs classes qui contiennent uniquement des variables.
Classe clsA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Public Reference As String
Public Designation As String

Classe clsB

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Public Reference As String
Public Designation As String

Classe clsC

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Public Reference As String
Public Designation As String

...
J'instancie un tableau de classes par classe dans ma form principale.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim A() As New clsA
Dim B() As New clsB
Dim C() As New clsC

Je ne peux pas déclarer ma variable en Public sinon, j'ai l'erreur suivante:

---------------------------
Microsoft Visual Basic
---------------------------
Compile error:

Constants, fixed-length strings, arrays, user-defined types and Declare statements not allowed as Public members of object modules
---------------------------
OK Aide
---------------------------

J'accède sans problème à aux variables de A(), B() et C() dans ma form principales, mais comment puis-je accéder à ces A(), B() et C() dans une autre form?

[shaftJackson]

Bonjour,
J'ai créé plusieurs classes qui contiennent uniquement des variables.
Classe clsA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Public Reference As String
Public Designation As String

Classe clsB

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Public Reference As String
Public Designation As String

Classe clsC

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Public Reference As String
Public Designation As String

...
J'instancie un tableau de classes par classe dans ma form principale.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim A() As New clsA
Dim B() As New clsB
Dim C() As New clsC

Je ne peux pas déclarer ma variable en Public sinon, j'ai l'erreur suivante:

J'accède sans problème à aux variables de A(), B() et C() dans ma form principales, mais comment puis-je accéder à ces A(), B() et C() dans une autre form?

t'as testé les propriétés get et let ?? Dans chaque classe ?

[Invité]

J'ai pas encore essayé ça, je "débute" en VB (je viens de Delphi), alors j'essaye de trouver des solutions équivalentes...

Est-ce que les propriétés sont visibles depuis les différentes form?
Comment puis-je déclarer les propriétés une fois crées pour y accéder de tout mon programme?

En attendant vos informations, je vais jeter un coup d'oeil sur "Let" et "Get"...

Merci!

[shaftJackson]

J'ai pas encore essayé ça, je "débute" en VB (je viens de Delphi), alors j'essaye de trouver des solutions équivalentes...

Est-ce que les propriétés sont visibles depuis les différentes form?
Comment puis-je déclarer les propriétés une fois crées pour y accéder de tout mon programme?

En attendant vos informations, je vais jeter un coup d'oeil sur "Let" et "Get"...

Merci!

oublie les propriétés get et let, j'avais pas bien lu ton post.
Par contre t'as essayé de créer une fonction public dans ton Form qui retourne ton tableau ?

[Invité]

oublie les propriétés get et let, j'avais pas bien lu ton post.
Par contre t'as essayé de créer une fonction public dans ton Form qui retourne ton tableau ?

Je vais tenter ça et je te tiens au courant...
Merci!

Bon, j'ai créé une fonction qui copie retourne clsA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Function SetclsA() As clsA
    SetclsA = clsA
End Function

J'ai une erreur

Runtime error '28':

Out of stack space

Une idée?

[shaftJackson]

Je vais tenter ça et je te tiens au courant...
Merci!

Bon, j'ai créé une fonction qui copie retourne clsA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Function SetclsA() As clsA
    SetclsA = clsA
End Function

J'ai une erreur


Une idée?

Tu cherche à faire quoi exactement avec ce code ??