Discussion :

[Tan]

Bonjour,
J'ai une collection qui contient des éléments d'un type que j'ai créé.
Voici un code provoquant une erreur.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Type typeTest
    test1 As String
    test2 As String
End Type
Public Sub test()
    Dim test As typeTest
    Dim colTest As New Collection
    test.test1 = "test1"
    test.test2 = "test2"
    col.Add test
End Sub

Si vous arrivez à modifier pour enlever cette erreur de compilation, c'est bon.

Message d'erreur:

Erreur de compilation:

Seuls les types définis par l'utilisateur et qui sont définis dans les modules d'objets publics peuvent être convertis depuis ou vers un variant, ou passés à des fonctions à liaison tardive

J'ai essayé de déclarer en private ou en public rien n'y fait.
Je ne vois pas comment définir des types dans des modules d'objets publics.
Qu'est-ce qu'un module d'objets public?

Le seul truc s'y rapprochant que j'ai trouvé dans la FAQ c'est:http://vb.developpez.com/faq/?page=Langage#renvoi_type
Mais bon, c'est pour renvoyer un type, le mettre dans ue collection c'est une autre affaire.

Dans le forum, il y a ça:http://www.developpez.net/forums/viewtopic.php?p=121804, mais je n'y arrive toujours pas.


Je pourrai sans doute contourner le problème en faisant autrement, mais j'aimerai bien comprendre.

Merci d'avance.

[HPJ]

Code :

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

1
2
3
4
5
Dim colTest As New Collection
    test.test1 = "test1"
    test.test2 = "test2"
    col.Add test
End Sub

Ta collection s'appelle colTest par col...

Tu ne peux pas mettre de variables de type personnalisé dans une collection, uniquement des variables de type simple ou des objets (module de classe = module d'objet public).
Il y a peut être un moyen en mettant dans la collection l'adresse de ta variable de type personnalisé.

[Tan]

Merci de ta réponse.

Pour le nom de la collection, c'était une faute de frappe (j'ai créé un code simple provoquant l'erreur, et je l'ai mal tapé). Mais cela ne change rien au problème.
Puisque les collections ne peuvent contenir de type utilisateur, j'ai changé de méthode.

Pourtant rien ne disait le contraire dans l'aide.

L'objet Collection constitue un moyen pratique de faire référence à un groupe d'éléments connexes, en les considérant comme un seul objet. Les éléments contenus dans l'objet sont appelés membres. Il leur suffit d'avoir pour point commun l'appartenance à l'objet collection. Ils ne doivent pas nécessairement posséder le même type de données.

membre :
Élément d'une collection, d'un objet ou d'un type défini par l'utilisateur.

Tant pis, je regarderai ce que tu as dis sur l'adresse de la variable.

Merci beaucoup.

[HPJ]

Avec les adresses:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Long, ByVal Source As Long, ByVal Length As Long)
 
Public Type typeTest
    test1 As String
    test2 As String
End Type
 
Public Sub test()
 
    Dim test As typeTest
    Dim test2 As typeTest
    Dim colTest As New Collection
 
    test.test1 = "test1"
    test.test2 = "test2"
    ' ajoute l'adresse de la variable test
    colTest.Add VarPtr(test)
 
 
 
    ' récupère .test1 (4 octets représentant un pointeur sur la chaine .test1)
    CopyMemory VarPtr(test2.test1), colTest(1), 4
    ' récupère .test2 (les 4 octets suivants représentant un pointeur sur la chaine .test2)
    CopyMemory VarPtr(test2.test2), colTest(1) + 4, 4
 
    MsgBox test2.test1 & " " & test2.test2
 
End Sub

Pas facile à commenter... il faut avoir des notions sur les pointeurs...

[Tan]

Merci beaucoup