Discussion :

[Claude_Azoulai]

Bonjour à tous

J'ai (encore) un petit problème avec VB6 que j'avais quitté pour migrer vers VB.NET.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Command4_Click()
Dim NbrCtrls As Integer
Dim i As Integer
Dim C As Control
    NbrCtrls = Me.Controls.Count
    For i = 0 To NbrCtrls - 1
       C = Me.Control(i)
    Next
End Sub

Le programme plante sur la ligne "C = Me.Control(i)" avec le message suivant :

Erreur de compilation
Méthode ou membre de données introuvable

En fait, je veux pouvoir modifier tous les contrôles qui se trouvent sur la feuille.

Ma syntaxe n'est pas la bonne, mais l'aide VB6 se fait de plus en plus rare et je ne peux pas installer la librairie MSDN sur mon ordinateur 64 bits.
Si quelqu'un peut m'aider, il sera le bienvenu.

Claude Azoulai

[SfJ5Rpw8]

bonjour,

il manque un s ...

[Aniki]

Le programme plante sur la ligne "C = Me.Control(i)"

Essaye avec C = Me.Controls(i).

Edit: Grillé...

[Claude_Azoulai]

Malheureusement non, j'avais déja essayé mais j'ai recommencé pour être sur.
Le message d'erreur est le suivant:
Variable objet ou variable bloc Width non définie

Parcontre, je viens d'essayer une autre méthode elle semble fonctionner.

Code :

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

1
2
3
4
 
    For Each C In Me
        MsgBox (C.Name)
    Next

Je vais essayer de continuer sur cette voie
Merci à vous deux pour votre aide

Claude Azoulai

[SfJ5Rpw8]

Code :

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

set C = Me.Controls(i)

[Claude_Azoulai]

Comme je suis content !!!!!!

L'instruction avec Set fonctionne sans problème.

Maintenant que je suis passé à VB.NET, je trouve que VB6 est plus difficile, mais ce doit être du radotage d'un presque octogénaire (il me manque 1 an)

Merci à toi

Claude Azoulai