Ce petit module vous permet d'ajouter un fichier de ressource externe pour avoir plusieurs langues dans votre programme...
Sont + votre programme est déjà fait il va générer automatiquement 90% des textes....
-Dans tous vos form_load ajouter : WriteResLanguage me lancer votre prog ouvrer toutes les feuilles une fois (ATTENTION 1 seule fois) ... le prog va ecrire un fichier French.lng...
- Remplacer le WriteResLanguage Me par LoadResLanguage Me puis relancer votre prog...
Source / Exemple :
'Dans la feuille de démarrage il quand même ajouter le chemin du fichier :)
Private Sub Form_Load()
'Chemin vers le fichier
m_CDDBLngFile = App.Path & "\french.lng"
'Chargement des ressources de la form
LoadResLanguage Me
End Sub
2 avril 2003 à 23:41
merci
bigane
2 avril 2003 à 23:45
Dans le code d'orrigine il y avait:
Case "Menu"
If ctl.Caption <> "-" Then
ctl.Caption = LoadResLng(CtlID)
End If
Il a disparu ? :)
Non je plaisante regarde bien les menus, enfin la bare de menu standard est traitée ...
3 avril 2003 à 08:26
Je pense aussi que ton code peut être utilisé dans un autre but :
j'ai en charge une application développée par une autre société et ayant près d'une centaine de form (97 pour être précis). Certaines form sont très chargées et chaque contrôle possède un tooltip. Or, c'est bien connu, les informaticiens ne sont pas fort en orthographe...
Quelques retouches de ton code vont me permettre de "dumper" tous les textes dans un fichier de façon automatique. Comme le listing est très explicit, c'est facile ensuite de retrouver le contrôle à corriger.
Je pense modifier les Form_QueryUnload() pour y insérer cette ligne WriteResLanguage me.
Un simple programme ouvrant les 97 fichiers *.frm pour y ajouter cette fonction dervait m'aider dans ma besogne.
Reste à modifier WriteResLanguage pour éviter la redondance d'information. Je pense à
Open App.Path & "" & Frm.name & ".txt"
For output As #10
La concaténation des .txt sera alors un jeu d'enfant.
Merci.
3 avril 2003 à 08:31
Content d'avoir pu rendre service à quelqu'un :)
3 avril 2003 à 09:39
;-)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.