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
Quand on clique sur un des boutons
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
Le problème est que si on clique 2 fois sur le même bouton le Form Load event est à nouveau exécuté.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Private Sub Programme_Click(Index As Integer) Load Prgm(Index)
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"
Merci d'avance pour votre aide
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
Partager