Discussion :

[bubu92]

Bonjour

existe t-il un moyen par une Api ou autre, de faire en sorte
que "cd = ab" par l'intermediaire de "t" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
dim ab as long
dim cd as long
dim t as string
 
ab = 10
 
t = "ab"
 
cd = t

Je crois savoir que c'est possible avec certains langage, en inserant
un charactère special devant "t".

[iclic]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
dim ab as long
dim cd as long
dim t as string
 
ab = 10
 
t = CStr(ab)  't = "ab"
 
cd = t

[bubu92]

Merci pour le code mais en fait j'me suis mal fait comprendre
J'aimerais récuperer la valeur d'une variable en utilisant son nom
sous forme de String :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim a1 As Long
Dim a2 As Long
Dim a3 As Long
 
Dim b As Long
 
a1 = 2
a2 = 4
a3 = 6
 
b = ?("a2")

[Overcrash]

Bonjour,

Ben tout simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim a1 As Long
Dim a2 As Long
Dim a3 As Long
 
Dim b As Long
 
a1 = 2
a2 = 4
a3 = 6
 
b = a2

non ?

Ou ceci peut être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Dim a As String
    a = "Et oui "
    b = a & " toto"
    MsgBox (b)

Avec la concaténation.

[DarkVader]

VB ne gère pas nativement les variables dynamiques - il faut contourner.

[DarkVader]

Bonsoir,
toujours à retardement,
Les variables dynamiques à l'image de celles utilisables en php sont désormais disponibles avec la librairie VB6i.
Elles apportent en plus la possibilité de partager des données entre applications d'une même instance.

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Private Sub Form_Load()
    Me.AutoRedraw = True
    Me.ScaleMode = 1
    Me.Width = 8000
    Me.Height = 2000
    '-------------------
 
 
    '    Dim ab As Long
    '    Dim cd As Long
    '    Dim t As String
    '
    '    ab = 10
    '
    '    t = "ab"
    '
    '    cd = t
 
    Dim Val1 As Long, val2 As Long
    Dim VarName As String
 
    ' § doit être défini en fonction de la portée voulue'
    ' § a dans ce contexte une portée locale            '
    Dim § As New §GLOBALS
 
    VarName = "myVar"
    Val1 = 10
 
    §(VarName) = Val1
    val2 = §(VarName)
 
    Me.Print VarName, §(VarName), , Val1, val2
 
 
    ' par contre comme suit, ...                        '
    val2 = 0
    §GLOBALS(VarName) = Val1
    val2 = §GLOBALS(VarName)
 
    ' aura le même effet mais ...                       '
    Me.Print VarName, §GLOBALS(VarName), , Val1, val2
End Sub
 
Private Sub Form_Activate()
    Wait 3000
    Me.Print
    Me.ForeColor = vbRed
    Me.FontBold = True
    Me.Print "La variable  §GLOBALS('myVar') = " & §GLOBALS("myVar") & " définie ainsi aura une portée SUPER GLOBALE"
End Sub