Résolution de l’erreur: Bug with For Each enumeration on x64 Custom Classes

Aperçu de l’Erreur

L’erreur “Bug with For Each enumeration on x64 Custom Classes” se produit lors de l’utilisation de la boucle For Each pour énumérer des objets dans une classe personnalisée sur une plateforme 64 bits. Ce problème est spécifiquement lié à la façon dont les énumérations sont gérées dans les classes personnalisées, ce qui peut entraîner des comportements inattendus ou des erreurs d’exécution.

Causes Courantes

Les causes de cette erreur peuvent être variées. Voici quelques-unes des plus fréquentes :

1. Gestion Incorrecte de la Mémoire: Les pointeurs et les références peuvent ne pas être gérés correctement, entraînant des fuites de mémoire ou des références nulles.
2. Implémentation de l’Interface IEnumVARIANT: Si l’interface IEnumVARIANT n’est pas correctement implémentée, cela peut provoquer des erreurs lors de l’énumération.
3. Configuration de la Classe: Les attributs de classe mal configurés peuvent également causer des problèmes de visibilité et d’accès aux membres de la classe.

Méthodes de Solution

Méthode 1: Vérification de l’Implémentation de NewEnum

Pour résoudre le problème de l’énumération, commencez par vérifier comment la méthode NewEnum est implémentée. Assurez-vous qu’elle retourne correctement l’énumérateur de la collection. Voici un exemple de code :

Public Function NewEnum() As IEnumVARIANT
    Attribute NewEnum.VB_UserMemId = -4
    Debug.Print "The NewEnum return address " & VarPtr(NewEnum) & " should be outside of the"
    Set NewEnum = m_coll.[_NewEnum]
End Function

Méthode 2: Ajustement des Attributs de Classe

Assurez-vous que les attributs de votre classe sont correctement définis. Voici un exemple de configuration d’une classe :

Attribute VB_Name = "CustomCollection"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private m_coll As Collection

Private Sub Class_Initialize()
    Set m_coll = New Collection
End Sub

Private Sub Class_Terminate()
    Set m_coll = Nothing
End Sub

Méthode 3: Utilisation d’un Débogueur

Utilisez le débogueur pour inspecter les valeurs des pointeurs et identifier où le problème se produit. Voici un exemple d’utilisation d’un débogueur :

Sub ShowBug(ByRef c As CustomCollection)
    Dim ptr0 As LongPtr
    Dim v As Variant

    For Each v In c
        ' Traitement de chaque élément
    Next v

    Debug.Print VarPtr(ptr0) & " - memory range"
    Debug.Assert ptr0 = 0
End Sub

Conseils de Prévention

Pour éviter que ce type d’erreur ne se reproduise, voici quelques conseils pratiques :

• Testez sur les Deux Architectures: Assurez-vous de tester votre code à la fois sur des systèmes 32 bits et 64 bits, car certains bugs peuvent n’apparaître que sur une architecture spécifique.
• Utilisez des Outils de Débogage: Des outils comme le débogueur intégré de l’IDE peuvent vous aider à identifier les problèmes de mémoire et d’énumération.
• Écrivez des Tests Unitaires: Créez des tests unitaires pour vos classes personnalisées afin de garantir leur comportement correct avant de les déployer.

Résumé

L’erreur “Bug with For Each enumeration on x64 Custom Classes” est un problème courant lors de l’utilisation de classes personnalisées en VBA sur des systèmes 64 bits. En vérifiant l’implémentation de votre méthode NewEnum, en ajustant les attributs de votre classe et en utilisant les outils de débogage appropriés, vous pouvez résoudre ce problème efficacement. En suivant les conseils de prévention, vous minimiserez les risques de rencontrer cette erreur à l’avenir.