Dll pour multilangues

Soyez le premier à donner votre avis sur cette source.

Vue 8 258 fois - Téléchargée 914 fois

Description

Petite DLL pour utilisation d'une application ou d'un site internet en ASP en plusieures langues.

Source / Exemple :


Public Function GetMsg(InLanguage As String, InMsgNo As String) As String
    Dim FileLng As String, StringOutNumber As String
    Dim StringOutFR As String, StringOutEN As String, StringOutDE As String, StringOutIT As String
    FileLng = App.Path + "\messages.lng"
    Open FileLng For Input As #1
    Do While Not EOF(1)
        Input #1, StringOutNumber, StringOutFR, StringOutEN, StringOutDE, StringOutIT
        If StringOutNumber = InMsgNo Then
            Select Case UCase(InLanguage)
                Case "FR"
                    GetMsg = StringOutFR
                Case "EN"
                    GetMsg = StringOutEN
                Case "DE"
                    GetMsg = StringOutDE
                Case "IT"
                    GetMsg = StringOutIT
            End Select
            Exit Do
        End If
    Loop
    Close #1
    If Len(GetMsg) < 1 Then
        Select Case UCase(InLanguage)
            Case "FR"
                GetMsg = "Message " + InMsgNo + " pas trouvé."
            Case "EN"
                GetMsg = "Message " + InMsgNo + " not found."
            Case "DE"
                GetMsg = "Gefundene Mitteilung " + InMsgNo + " nicht."
            Case "IT"
                GetMsg = "Messaggio " + InMsgNo + " non trovato."
        End Select
    End If
End Function

Conclusion :


Lire le fichier "Exemple d'utilisation en VB6 ou ASP.txt" dans le ZIP pour exemple d'utilisation

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
54
Date d'inscription
mardi 23 juillet 2002
Statut
Membre
Dernière intervention
16 septembre 2008

Try again MAHDIIAG
Messages postés
34
Date d'inscription
lundi 9 mai 2011
Statut
Membre
Dernière intervention
21 mai 2012

je n'arrive pas à compiler cet exemple :(
Messages postés
122
Date d'inscription
dimanche 19 mars 2006
Statut
Membre
Dernière intervention
18 juillet 2009

salut
celà semble très important,mais pouvez vous expliquer comment utiliser cette dll, par exemple pour changer vers la langue arabe.
merci
Messages postés
143
Date d'inscription
dimanche 28 septembre 2003
Statut
Membre
Dernière intervention
6 septembre 2011

Hello Danette

Bon prog. pour divers languages pour le Help et ToolTipText et autres..

Merci

A plus sur VBFrance.com
42wawaw42
Note 10/10

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.