RESSOURCE DE LANGUE EXTERNE DANS UN FICHIER TEXTE , Source N°6570

Information sur la source

Catégorie :Divers Niveau : Débutant Date de création : 28/03/2003 Date de mise à jour : 28/03/2003 01:16:40 Vu / téléchargé: 4 368 / 358

Auteur : fredlynx

Site perso

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (7)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

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

'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

'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

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

French.lng874 octets
frmMain.frm 2 310 octets
frmMain.frx12 octets
Image1.jpg 40 252 octets
Language.bas 12 411 octets
LanguePjt.vbp 689 octets

Télécharger le zip

Sources du même auteur

Toutes les sources de fredlynx

Sources de la même categorie

Toutes les sources de la catégorie Divers

Commentaires

Commentaire de bigane le 02/04/2003 23:41:21

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
Commentaire de fredlynx le 02/04/2003 23:45:09 administrateur CS

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 ...
Commentaire de bigane le 03/04/2003 08:26:48

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.
Commentaire de fredlynx le 03/04/2003 08:31:26 administrateur CS

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 :)
Commentaire de bigane le 03/04/2003 09:39:40

Pour les royaltiiiiis, il y a longtemps que j'ai oublié la définition..
;-)
Commentaire de PatDeLaYaute le 23/10/2004 14:28:23

Excellent code,

ca simplifie la vie.

Merci
Commentaire de Philippe734 le 28/11/2004 17:44:13

cela déchire, comme d'hab, j'aime bien tes codes lynx :)

merci