[R] Gui Multilanguage par choix d'un fichier langue

[pierrotm777]

Bonjour Tlem,

Je ne comprend pas , j'ai bien tous mes .lng et la même erreur !

[Tlem]

Ha vouiiii, je pense que la fonction _ArrayDelete ne met pas à jour le nombre d'éléments du tableau $aListlang.

Donc pour corriger ceci, remplacez le code :

Code : Tout sélectionner

For $i = ubound($aListlang)-1 To 1 Step - 1
    If $aListlang[$i] = "default.lng" Then _ArrayDelete($aListlang, $i)
Next

Par

Code : Tout sélectionner

For $i = ubound($aListlang)-1 To 1 Step - 1
    If $aListlang[$i] = "default.lng" Then
        _ArrayDelete($aListlang, $i)
        $aListlang[0] = $aListlang[0] - 1
    EndIf
Next

Une autre solution aurait été de ne pas utiliser la valeur 0 du tableau, mais la fonction Ubound qui retourne le nombre d'éléments.
Il aurait fallu dans ce cas remplacer ceci :

Code : Tout sélectionner

Dim $EventID[$aListlang[0]+1]
For $i = 1 to $aListlang[0]
$EventID[$i] = GUICtrlCreateMenuItem($aListlang[$i], $Choix_Langage)
Next

par ceci :

Code : Tout sélectionner

$NbElement = Ubound($aListlang)-1
Dim $EventID[$NbElement+1]
For $i = 1 to $NbElement
    $EventID[$i] = GUICtrlCreateMenuItem($aListlang[$i], $Choix_Langage)
Next

[pierrotm777]

Merci Tlem ,

J'ai testé le premier exemple qui fonctionne super bien .

Merci beaucoup,

Pierre