Mémoire insuffisante (erreur d'execution 7)

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

L'informatique à 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é
NH

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

 

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

 

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


BasicInstinct

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

ca y est j'ai trouvé :
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é un problème et doit fermer. Nous ....

BasicInstinct

En effet, les manifest ont tendance a provoquer des erreurs

pour moi sa marche nikel merci

Raver2046 & hypnowarez.org rulezz

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!!!!