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