Récupérer la valeur d'une variable à partir d'une chaîne : GetVarValue ou autre

Signaler
Messages postés
19
Date d'inscription
dimanche 26 janvier 2003
Statut
Membre
Dernière intervention
19 décembre 2008
-
Messages postés
19
Date d'inscription
dimanche 26 janvier 2003
Statut
Membre
Dernière intervention
19 décembre 2008
-
Bonjour,

Je souhaite récupérer la valeur d'une variable, dans le même style que la fonction Val()
Le but est d'éviter un traitement long, variables par variables (ou par tableau), du sytle

    lVK = GetVarValue("VK_" & Mid$(sVK, lIndex, 1))

au lieu de
    If sVK "0" Then lVK VK_NUMPAD0    ElseIf sVk "1" Then lVK VK_NUMPAD1
    ...

J'ai trouvé sur le net une fonction GetVarValue mais la propriété Vars ne semble pas fonctionner en VB6

Private Function GetVarValue(name As String) As String
    For i = 0 To UBound(Vars)
        If Vars(i).Nom = name Then
            GetVarValue = Vars(i).Valeur
            Exit Function
        End If
    Next i
End Function

Existe-il une solution (même avec des api genre copymemory) ?

D'avance merci.

2 réponses

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
68
pas faisable...

une alternative, manipuler des propriété d'un objet, via son nom (voir CallByName)
Messages postés
19
Date d'inscription
dimanche 26 janvier 2003
Statut
Membre
Dernière intervention
19 décembre 2008

Bonjour,

La manipulation des propriétés d'un objet semble assez complexe par rapport à ce que je veux faire.

J'ai donc effectué une série de test (If, ElseIf...) en essayant de les optimiser au maximum.

Merci en tous cas pour cette réponse