Souci d'occupation mémoire [Résolu] - VB/VBA/VBS - Programmation
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.)
Marsh Posté le 10-10-2005 à 13:03:33
de rien
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