Discussion :

[soso78]

Salut,

Voilà, je voudrais dans une boucle examiner tous les contrôles sur une form. Pour cela, j'utilise le code suivant :

Code :

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

1
2
3
4
5
6
 Dim vControl As Control
 
 For Each vControl In frmMain.Controls
    With vControl
    End With
  Next

Le problème étant que ces contrôles se trouve dans un autre conteneur (une autre frame)... donc, comment puis déclarer cette autre frame (frmScreenOut) ?

Je n'y arrive pas... certainement un problème de syntaxe !

Quelqu'un peut-il me dire comment faire ?

Merci par avance.

[Theocourant]

Salut,

Voilà, je voudrais dans une boucle examiner tous les contrôles sur une form. Pour cela, j'utilise le code suivant :

Code :

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

1
2
3
4
5
6
 Dim vControl As Control
 
 For Each vControl In frmMain.Controls
    With vControl
    End With
  Next

Le problème étant que ces contrôles se trouve dans un autre conteneur (une autre frame)... donc, comment puis déclarer cette autre frame (frmScreenOut) ?

Je n'y arrive pas... certainement un problème de syntaxe !

Quelqu'un peut-il me dire comment faire ?

Merci par avance.

Bonjour,

ton code permet de parcourrir tous les contrôles présent sur ton formulaire frmMain qu'ils soient dans une frame ou non.

Je ne comprends donc pas du tout ta question...
Si tu pouvais nous expliquer ce qu'est frmScreenOut ??? formulaire ou frame ????

Est-ce que tu veux parcourrir tous les contrôles sur 2 formualires? si c'est le cas, il faut faire 2 boucles.

J'attends tes réponses.

Théo

[soso78]

Merci de ta réponse, j'ai mal expliqué, donc, je retente :

En fait, mon écran (frmMain.frm) se compose de plusieurs parties (plusieurs contrôles "Frame") sur lequel sont posés d'autres contrôles (textbox, listbox, combo, ...). J'ai nommé ces frames avec les noms suivants :

- frmToolbar,
- frmTables,
- frmScreenOut.

Mon but est d'examiner tous les contrôles qui se trouvent regroupés sous le contrôle frame "frmScreenOut".

J'espère avoir été plus clair ;-).

[ThierryAIM]

Code :

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

1
2
3
4
5
6
7
8
9
Dim vControl As Control
 
    For Each vControl In frmMain.Controls
        On Error Resume Next
        If vControl.Container Is frmScreenOut Then
            Debug.Print vControl.Name
        End If
    Next
    On Error GoTo 0

[soso78]

Merci c'est super !

[OhMonBato]

Esoso tu auras peut etre remarqué une question au dessus qui te demandait ce qu'était FrmTruc, car en règle générale Frm... désigne une form, pour un Frame on appelle Fr...
Il n'y a aucune obligtion à ça évidemment, mais ça rend ton code plus facilement lisible, pour toi d'abord quand tu t'y repenches quelques mois plus tard, pour les autres quand tu peur poses une question

[soso78]

Oui, en effet... ;-).

Ok, j'applique cette règle (j'connaissais pas la notation pour les Frames... !).

[zazaraignée]

Info:

C'est par convention que l'on met des préfixes aux noms composants qu'on ajoute sur une Form (ou au nom de cette Form elle-même). Ces conventions varient d'une boîte à l'autre. Plusieurs ont adopté le standard Microsoft. Plusieurs livres les listent quelque part, soit dans un tableau à l'intérieur d'un chapitre, soit en annexe à la fin du livre... Sinon, il doit bien y avoir sur le site de Ms une de ces listes.

Généralement, ces conventions concernent aussi les noms des objets qu'on crée de toutes pièces, les noms de variables, de constantes, de procédures, etc. et sont bien documentées dans les normes de programmation établies pour la boîte où l'on travaille.

Conseil: Pour éviter toute ambiguïté, annonce toujours de quel type est le composant que tu nommes dans tes explication par le nom que tu lui as donné dans ton programme. Because on n'est pas devins.

Exemple:
J'ai un Frame nommé toto sur une Form et je voudrais...

[ThierryAIM]

un peu de lecture :

http://dominiquemaniez.developpez.com/Nothongroise/

[soso78]

Salut,

Merci pour ces explications sur la notation hongroise. Je regarde cela de plus près.