Fonction "INDIRECT"Résolu

Question

Salut tout le monde

Y'a 'il par hasard un &#233;quivalent de la fonction "INDIRECT" dans VB.

J'ai essay&#233; &#231;a mais &#231;a ne marche pas :

Private Type ExterVar
   NomVar As String
   Valeur As Long
End Type 
Private Sub TestVar()
Dim Mytab As ExterVar
Dim strTest As String
    
    strTest = "NomVar"
    Mytab.(strTest) = "test"        '--> &#231;a marche pas 
    
End Sub

Merci d'avance.

 Fiko ;-)

cs_CanisLupus · Accepted Answer

Salut,

En VB6, je ne vois que quelquechose comme &#231;a :
  
'...

  strTest = "NomVar"
  
  For i = LBound(Mytab) To UBound(Mytab)
    If Mytab(i).NomVar = strTest Then
      Mytab(i).Valeur = "test"
      Exit For
    End If
  Next

'...

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

olixelle · Answer

sinon ya les hastable en .net 

Rollerman

fiko81 · Answer

J'ai du mal avec vs.net.... pourtant j'aimerais bien m'y mettre un jour.

 Fiko ;-)

Gobillot · Answer

un Treeview pourrait le faire
   
si j'ai ajout&#233; "NomVar" comme &#233;tant une clef ---> nom de variable

    et "xxxx" &#233;tant la valeur.

    Set nod1 = TreeView.Nodes.Add("Root1", tvwChild, "NomVar", "xxxx")





    Dim strTest As String

    

    strTest = "NomVar"

        

    On Error Resume Next   'dans le cas o&#249; la clef n'existe pas

'    je peux modifier la valeur


    TreeView.Nodes(strTest).Text = "test"




Daniel

Fonction "INDIRECT"

4 réponses

Discussions similaires