Ressource de langue externe dans un fichier texte

Soyez le premier à donner votre avis sur cette source.

Vue 7 479 fois - Téléchargée 544 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
-
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
-
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
-
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
-
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
-
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.