Discussion :

[Theseus]

Bonjour,

Je débute en VB6 et je voudrais savoir s'il y a moyen d'initialiser des zones de texte dont le nom se trouve dans un tableau. Voici un exemple:

TotalTime(0)="bMo"
TotalTime(1)=8.50

TotalTime(0).Text = TotalTime(1)

...en sachant que bMo est une zone de texte.

Merci d'avance

[Tofalu]

Merci d'editer ton titre
Merci de ta compréhension.

[Theseus]

désolé

[zazaraignée]

Salut

Si j'ai bien compris, le nom de ta zone de texte (propriété Name) est 'bMo'. Donc, le code sera

Code :

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

TotalTime(0) = bMo.Text

Mais si tu avais regardé dans l'aide, tu l'aurais trouvé tout seul.

[Theseus]

non, ce n'est pas çà

TotalTime(0) contient la string "bMo" qui est également le nom de ma zone de texte. Donc, au lieu de faire:

Code :

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

1
2
 
bMo.Text = TotalTime(1)

je voudrai faire:

Code :

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

1
2
 
TotalTime(0).text = TotalTime(1)

[edam]

salut
tu veu utiliser objet edittext.name
si tu un tableau mieu d'utliser leur index

Code :

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

1
2
3
 
   dim TotalTime(5) as string
   bma.text=TotalTime(0)  'par example

c'est plus pratique est moins gourmend des resources

[bhaal76]

ça n'est pas très propre, mais ça a le mérite de fonctionné

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command1_Click()
    Dim TotalTime(1) As String
 
    TotalTime(0) = "text1"
    TotalTime(1) = "bonjour"
 
    For Each e In Controls
        If (LCase(e.Name) = LCase(TotalTime(0))) Then
            e.Text = TotalTime(1)
            Exit For
        End If
    Next
End Sub

[Tofalu]

Bonjour, plus simple peut être :

Code :

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

Me.controls(TotalTime(0)).text=TotalTime(1)

A tester

[bhaal76]

Bien vue ...

j'ai testé, ça marche

[Theseus]

merci beaucoup!
ça marche impécablement, ça m'évite un énorme select case pas beau