[Résolu] Souci d'occupation mémoire

Souci d'occupation mémoire [Résolu] - VB/VBA/VBS - Programmation

Marsh Posté le 21-09-2005 à 08:19:15    

Salut à tous
 
Je suis en train de faire un chtit tuc sous VB et je veux faire une application multilingue. J'ai un peu sorti le char d'assault pour faire la traduction, mais ça marche...
 
FileNumber = FreeFile
 
        'read the "General.txt" file to translate all forms
Open App.Path & "\Datas\Langage\" & sLangage & "\General.txt" For Input As #FileNumber
Input #FileNumber, sLine
Do While Not EOF(FileNumber)
    If sLine = "[UFBackup]" Then
        Do While sLine <> "[UFMain]"
            Input #FileNumber, sControl, sCaption
            If sControl <> "" Then
                UFBackup.Controls(sControl).Caption = sCaption
            End If
            sLine = sCaption
        Loop
        bFinished1 = True
    ElseIf sLine = "[UFMain]" Then
        Do While sLine <> "[UFWelcome]"
            Input #FileNumber, sControl, sCaption
            If sControl <> "" Then
                UFMain.Controls(sControl).Caption = sCaption
            End If
            sLine = sCaption
        Loop
        bFinished2 = True
    ElseIf sLine = "[UFWelcome]" Then
        Do While Not EOF(FileNumber)
            Input #FileNumber, sControl, sCaption
            If sControl <> "" Then
                UFWelcome.Controls(sControl).Caption = sCaption
            End If
            sLine = sCaption
        Loop
        bFinished3 = True
    End If
                'in case of problem...
    If bFinished1 = False And bFinished2 = False And bFinished3 = False Then
    MsgBox "File General.txt corrupted or absent", vbCriticalError, "Error"
    Exit Sub
    End If
     
Loop
 
Close #FileNumber
 
Le problème c'est qu'à la fin il laisse des trucs en mémoire (lorsque je ferme toutes les Forms par "Unload Me", le programme continue à tourner, ce qui est visible en lançant le gestionnaire des taches...).
Quelqu'un pourrait me dire pourquoi ??
 
Merci de votre aide


Message édité par ziold le 19-10-2005 à 10:06:41
Reply

Marsh Posté le 21-09-2005 à 08:19:15   

Reply

Marsh Posté le 06-10-2005 à 08:38:39    

up

Reply

Marsh Posté le 06-10-2005 à 17:32:23    

l'instruction "End" (tout court, sans rien derrière) devrait remédier à ton problème, ça fermera toute ton appli sans rien oublier. Attention quand même parce que ça ne déclenchera pas les évenments form_unload de tes fenêtres (oui, c'est un peu brutal comme instruction.)


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 10-10-2005 à 08:47:41    

Merci bien je vais tester ça !!

Reply

Marsh Posté le 10-10-2005 à 11:03:29    

ça marche !! Merci beaucoup...

Reply

Marsh Posté le 10-10-2005 à 13:03:33    

de rien :)


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed