[VB6] Quelle est la taille limite de variables Public - Erreur 7 - Mémoire insuffisante

Bonjour,

Je viens d'ajouter un variable public de type single dans mon projet et depuis quand je passe dans le code ci-dessous pour ouvrir un fichier binaire (2ko) j'ai l'erreur 7 - Mémoire insuffisante dans l'open.
J'ai tester en supprimant ma nouvelle variable public est je n'ai plus de message d'erreur 7.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

On Error GoTo ErrHandle   '-1- Test existance fichier ------------------------------- If Not Fs.FileExists(sPath) Then LoadPreBinFile = -1 Exit Function End If '-2- Ouvre et charge le contenu du fichier ---------------- Open sPath For Binary As #1 Get #1, 1, PH Close #1 LoadPreBinFile = 0 Exit Function ErrHandle: LoadPreBinFile = -1

---

Apparemment il y a une limite dans le nombre de variable Public. Peut-on augmenter cette valeur?

Une précaution qui peut être résoudra ton problème

Code:

---

1 2 3 4 5

Dim NumFich As Integer NumFich = FreeFile Open sPath For Binary As #NumFich Get #NumFich, 1, PH Close #NumFich

---

Oui merci pour l'info, mais j'ai trouvé une piste.

Le problème ne vient pas de la limite du nombre de variable public mais plutôt de mon ajout de variable dans une structure qui elle même appartient à ma structure d'historique.