Ressource de langue externe dans un fichier texte

Soyez le premier à donner votre avis sur cette source.

Vue 8 190 fois - Téléchargée 616 fois

Description

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

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_bigane Messages postés 46 Date d'inscription lundi 4 février 2002 Statut Membre Dernière intervention 12 février 2004
2 avril 2003 à 23:41
Un code avec pas mal d'idées. Il y a longtemps que je cherchais ce type de code. il y a une notion non abordée : celle des menus. C'est justement ce type de personnalisation qui m'intéressait. Il faut alors utiliser une api32 pour modifier les textes, mais l'idée de base peut être reprise. De plus on peut modifier ce concept pour insérer les textes dans un véritable fichier ressource. l'api loadresstring pourra alors être utilisée...
merci
bigane
fredlynx Messages postés 662 Date d'inscription mercredi 16 janvier 2002 Statut Modérateur Dernière intervention 16 octobre 2010 1
2 avril 2003 à 23:45
HumHum les menus ne sont pas abordés ?
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 ...
cs_bigane Messages postés 46 Date d'inscription lundi 4 février 2002 Statut Membre Dernière intervention 12 février 2004
3 avril 2003 à 08:26
Ok, bien vu, les menus sont gérés.
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.
fredlynx Messages postés 662 Date d'inscription mercredi 16 janvier 2002 Statut Modérateur Dernière intervention 16 octobre 2010 1
3 avril 2003 à 08:31
Bon alors comment on fait pour les royaltissssssssss (tu as raison les programmeurs son mauvais en OrtHografe lol )...
Content d'avoir pu rendre service à quelqu'un :)
cs_bigane Messages postés 46 Date d'inscription lundi 4 février 2002 Statut Membre Dernière intervention 12 février 2004
3 avril 2003 à 09:39
Pour les royaltiiiiis, il y a longtemps que j'ai oublié la définition..
;-)

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.