Traduction pb callbynameRésolu

Question

Bonjour,



voil&#224; mon probl&#232;me:



Je souhaite effectuer  la traduction d'un logiciel de la fa&#231;on suivante.



On lit un fichier *.lng comme ci dessous:



Expl : Fran&#231;ais.lng:

[Form1]

Label1(0):caption:YOUPI

label1(1):caption:RETEST

command1:caption:YOUPI

!NEXT



Une fonction permettant de lire le fichier stocke dans un tableau tmp(2) les valeurs de la facon suivante:



tmp=split(Cline,":")  (Cline est la ligne lut dans le fichier)



une varaible Block r&#233;cup&#232;re aussi la valeur entre [] ici Form1



une fois cela fait on obtient (pour une ligne):

tmp(0)=label1(0) ; tmp(1)=caption ; tmp(2)=YOUPI



Le but &#233;tant donc de modifier &#224; l'aide de CallByName la propri&#233;t&#233; de
Form1.label1(0).caption en lui affectant la valeur de tmp(2)



ce qui donnerait :

Callbyname Block & tmp(0), tmp(1),vblet,tmp(2)



Sauf que la je suis block&#233; car callbyname recquiert un objet et je ne sais pas comment faire

pour qu'un objet r&#233;f&#233;rence Form1.label1(0) car block & tmp(0) est de type string.



Ma question est certainement sp&#233;ciale voire d&#233;bile mais bon ...



Merci d'avance

ShareVB · Accepted Answer

salut,

tu fais un truc dans le genre de :

Dim f As Form
For Each f In Forms
    If f.Name = Block
 Then
        Exit For
    End If
Next
'si pas d'index
CallByName f.Controls(tmp(0)), tmp(1), VbLet, tmp(2)
'si index : tmp(3) = l'index
CallByName f.Controls(tmp(0)).Item(tmp(3)), tmp(1), VbLet, tmp(2)

ShareVB

azghamoth · Answer

Merci beaucoup c'est exactement ce qu'il me fallait.

Traduction pb callbyname

2 réponses

Discussions similaires