CREER UNE APPLICATION MULTILINGUE VRAIMENT TRES FACILEMENT (+ EDITEUR DE LANGUE)

Signaler
Messages postés
2501
Date d'inscription
jeudi 14 juillet 2005
Statut
Contributeur
Dernière intervention
5 juin 2016
-
 nelson -
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/41142-creer-une-application-multilingue-vraiment-tres-facilement-editeur-de-langue

génial tout simplement génial
m2rtech
Messages postés
239
Date d'inscription
mercredi 9 octobre 2002
Statut
Membre
Dernière intervention
20 février 2012

ta source est vraiment super, bravo !!!

j'ai egalement apprécié l'ajout du support SSTab, mais celui ci ne semble par marcher.
la mise ne oeuvre a été d'ajouter les bouts de code à la fin de ta précédente source
mais sans résultats.
le fait de désactiver le "On error resume next", fait planter le programme avec une erreur tableau.

as tu des infos ?

merci par avance
jmbourreau
Messages postés
17
Date d'inscription
lundi 19 avril 2004
Statut
Membre
Dernière intervention
4 avril 2007

Bonjour à tous,
J'ai ajouté le support des SSTab (voir code ci-dessous a ajouter au ctrl). Par contre je bute sur le TreeView. En effet j'ai ajouté la ligne "If TypeOf Obj Is TreeView Then" mais le treeview n'est pas détecté, donc ne passe pas dans la boucle. Si quelqu'un a une idée...



Public Sub LoadControlsCaption()

If TypeOf Obj Is SSTab Then
'on prend les captions des tab

'vérifie que le tag est Ok
If InStr(1, Obj.Tag, "lang_ok", vbBinaryCompare) Then
'c'est bon, ol loade

'récupère le nombre d'éléments
Y = Val(Me.GetString(s & "|Count"))

'ajoute les éléments
For X = 0 To Y
Obj.TabCaption(X) = Me.GetString(s & "|Item" & Trim$(Str$(X)))
Next X

End If

End if

End Sub

'=========================================================================================
Public Sub WriteIniFileFormIDEform()

If TypeOf Obj Is SSTab Then

'vérifie que le Tag est OK
If InStr(1, Obj.Tag, "lang_ok", vbBinaryCompare) Then
'c'est bon, on sauvegarde

'récupère le nombre d'éléments
LetPref mParent.Name, s & "|Count", Obj.Tabs.Count, sFile
Y = Val(Me.GetString(s & "|Count"))

'ajoute les éléments
For X = 0 To Y
LetPref mParent.Name, s & "|Item" & Trim$(Str$(X)), Obj.TabCaption(X), sFile
Next X

End If

End if

End Sub
violent_ken
Messages postés
1822
Date d'inscription
mardi 31 mai 2005
Statut
Membre
Dernière intervention
26 octobre 2010

Bonjour, oui, mon OCX peut supporter autant de langues que souhaité.
@+
m2rtech
Messages postés
239
Date d'inscription
mercredi 9 octobre 2002
Statut
Membre
Dernière intervention
20 février 2012

Bonjour,

Désolé j'ai pas lu tous les posts, mais ton ocx peut il supporter plus de 2 langues?