En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1224461 visiteurs

 19 visiteurs en ligne

Nous contacter

Contact

Langue utilisateur

Ouvrir un Formulaire dans la langue de l'utilisateur

Enregistrer dans le dossier de l'application un fichier texte NomduForm_FRA.ini qui contiendra les trois valeurs nécessaires séparées par une Tabulation: Nom du Contrôle (Tab) Propriété (Tab) Valeur

lblEtiquette-a-Traduire (tab) Caption (tab) Libellé de mon étiquette
txtZonedeTexte-a-Traduire (tab) ControlTipText (tab) Texte d'aide à afficher
cboZonedeListe-a-Remplir (tab) Rowsource (tab) valeur1;valeur2;valeur3;valeur4

Penser à récupérer la Fonction API LangueAbregee pour lire les paramètres régionaux.

Voilà, il ne reste plus qu'à laisser le formulaire lire le fichier .ini à l'ouverture :
 

Private Sub Form_Open(Cancel As Integer)
    Call PopulateControls
End Sub

   

Sub PopulateControls()
    On Error Resume Next
    Dim F As Integer
    Dim LeFichier As String
    Dim txtLine As String
    Dim arrayLine As Variant

    LeFichier = Left(CurrentDb.Name, InStrRev(CurrentDb.Name, "", -1)) _
                & Me.Name & "_" & LangueAbregee() & ".ini"

    F = FreeFile

    Open LeFichier For Input As #F
    If Err.Number > 0 Then Exit Sub

    Do While Not EOF(F)
        Line Input #F, txtLine
        arrayLine = Split(txtLine, vbTab)
        Me(arrayLine(0)).Properties(arrayLine(1)) = arrayLine(2)
    Loop

    Close #F
End Sub

Catégorie : - Formulaires
Page lue 8857 fois
Vous êtes ici :   Accueil » Langue utilisateur