Discussion :

[Herve_be]

Bonjour,
Une application est constituées de 3 fonctionnalités chacune accessible via un bouton qui charge la Form correspondante.

Voici comment je charge les Forms

Code :

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

1
2
3
4
Dim Prgm(3) As Object
Set Prgm(1) = A 'c'est le nom de la Form
Set Prgm(2) = B
Set Prgm(3) = C

Quand on clique sur un des boutons

Code :

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

1
2
Private Sub Programme_Click(Index As Integer)
Load Prgm(Index)

Le problème est que si on clique 2 fois sur le même bouton le Form Load event est à nouveau exécuté.
Avant de faire le Load je voudrais vérifier si la Form est déjà chargée et si c'est le cas simplement lui donner le focus.
J'ai trouvé des solutions qui vérifie si le caption est dans la collection de Forms mais je ne connais pas les caption, seulement le Name.

J'ai aussi essayé ceci mais j'ai "invalid property assignment"

Code :

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

1
2
3
4
Dim frm As Object
For Each frm In Forms
If frm = Prgm(Index) Then Exit Sub
Next

Merci d'avance pour votre aide

[Herve_be]

J'ai trouvé tout seul
If frm = Prgm(Index) ... => If frm is Prgm(Index) ...