Mémoire insuffisante (erreur d'execution 7)

Question

je suis en train de developper une application en VB6.
tout se passe bien lorsque j'execute mon programme depuis VB. Mais quand j'execute l'exe, j'ai une erreur d'execution 7 (memoire insuffisante) au demarrage de ma Sub Main.
L'erreur disparait si je commence mon programme par une msgbox... ????

Est ce que Qq'un pourrait eclairer ma lanterne sur ce phenomene plutot "paranormal" ?

Merci

++

 BasicInstinct

NHenry · Answer

L'informatique &#224; sa raison ke la raison ne connait point. (parodie d'une citation de  Blaise Pascal 1623-1662)

Sinon, g pas d'autres solution 



Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)

Une question se pose sur le forum, pas en priv&#233;


NH

zippro4012 · Answer

Si il y a des variables, vaut mieux les d&#233;clarer explicitement : j'ai
d&#233;ja vu un programme ou la valeur de variables d&#233;clar&#233;s implicitement
se m&#233;lang&#233;s sans raison. Alors une erreur d'execution pourquoi pas...

zippro4012 · Answer

Si il y a des variables, vaut mieux les d&#233;clarer explicitement : j'ai
d&#233;ja vu un programme ou la valeur de variables d&#233;clar&#233;s implicitement
se m&#233;lang&#233;s sans raison. Alors une erreur d'execution pourquoi pas...

BasicInstinct · Answer

pas mieux... je suis en option explicit. Et j'ai toujours mon erreur sur l'exe.

 BasicInstinct

BasicInstinct · Answer

si je supprime la sub Main, j'ai une erreur system &h80070583(-2147023485) la classe n'existe pas.

Si je supprime mon fichier appli.exe.manifest, tout fonctionne normalement.

 BasicInstinct

BasicInstinct · Answer

ca y est j'ai trouv&#233; :
faut rajouter ca au code:

Private Type tagInitCommonControlsEx
   lngSize As Long
   lngICC As Long
End Type
Private Declare Function InitCommonControlsEx Lib "comctl32.dll" _
   (iccex As tagInitCommonControlsEx) As Boolean
Private Const ICC_USEREX_CLASSES = &H200


Public Function InitCommonControlsVB() As Boolean
   On Error Resume Next
   Dim iccex As tagInitCommonControlsEx
   ' Ensure CC available:
   With iccex
       .lngSize = LenB(iccex)
       .lngICC = ICC_USEREX_CLASSES
   End With
   InitCommonControlsEx iccex   InitCommonControlsVB (Err.Number 0)
   On Error GoTo 0
End Function

Public Sub Main()
InitCommonControlsVB
....
end sub

par contre ca plante lorsque je quitte mon appli :


Projet1.exe a rencontr&#233; un probl&#232;me et doit fermer. Nous ....



 BasicInstinct

zippro4012 · Answer

En effet, les manifest ont tendance a provoquer des erreurs

cs_raver2046 · Answer

pour moi sa marche nikel merci

Raver2046 & hypnowarez.org rulezz

VbKenza · Answer

Slt,au 16/05/2005 vous avez eu le problème du Message (Erreur N°7 : Mémoire insuffisante).aujourd'hui j'ai le même problème 
j'ai développé une application en VB6 sous une base de données SQL Server et quant j'installe mon exe sur certaine machine je reçoit le message dit.
la solution que vous avez trouvé c'était d'ajouter le code suivant :

Private Type tagInitCommonControlsEx
   lngSize As Long
   lngICC As Long
End Type
Private Declare Function InitCommonControlsEx Lib "comctl32.dll" _
   (iccex As tagInitCommonControlsEx) As Boolean
Private Const ICC_USEREX_CLASSES = &H200
Public Function InitCommonControlsVB() As Boolean
   On Error Resume Next
   Dim iccex As tagInitCommonControlsEx
   ' Ensure CC available:
   With iccex
       .lngSize = LenB(iccex)
       .lngICC = ICC_USEREX_CLASSES
   End With
   InitCommonControlsEx iccex   InitCommonControlsVB (Err.Number 0)
   On Error GoTo 0
End Function

Public Sub Main()
InitCommonControlsVB
....
end sub

Moi aussi la sub Main c'est la prmière Procédure qui s'éxécute au lancement de mon projet.Vous pouvez m'expliquer pourquoi vous avez ajouté ce code à votre programme .Aidez moi s'il vous plaît c'est très urgent!!!!

peug · Answer

Salut VBkenza,

Je crois que c'est utilise lorsque tu utilise un Manifest qui passe les contrôles standard de VB en design XP et afin de s'assurer que tous les élèment de ton programme aient le style XP (comme les combobox), il faut lancé cette procédure.
A+

Mémoire insuffisante (erreur d'execution 7)

10 réponses

Discussions similaires