Discussion :

[bubu92]

Bonjour à tous,

j'ai 2 Forms, Form1 et Form2. Dans chacune d'entre elles il y a une Sub nommée "SubTest".

J'ai une 3eme Form a partir de laquelle je souhaiterais créer une instance de soit Form1,
soit Form2, et je n'sais pas comment m'y prendre pour le faire avec une seule variable.
J'ai essayé :

Code :

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

1
2
3
4
5
6
7
8
9
Dim f As Form
 
If...Then
	f = New Form1
Else
	f = New Form2
End If
 
Call f.SubTest

mais évidement ".SubTest" n'existe pas.

Comment faire ?

Merci d'avance

[Phil Rob]

Bonjour,

Le code que tu monstres est plausible.
Mais peux-tu vérifier que les Sub sont bien déclarées FRIEND ou PUBLIC ?
Si elles sont PRIVATE, normal que ça ne fonctionne pas.

[Pol63]

il faut faire une interface
une interface est un contrat qu'une classe doit respecter

Code :

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

1
2
3
public interface IFormWithSubTest
    Sub SubTest()
end interface

ensuite chaque form doit implémenter l'interface de la manière suivante

Code :

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

public partial class Form1 implements IFormWithSubTest

le fait d'implémenter l'interface va ajouter la méthode automatiquement (supprime ou renomme ta méthode actuelle pour ne pas interférer, puis colle le code dans la méthode créée)

ensuite sur form3 il faut faire

Code :

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

1
2
3
4
5
6
7
8
9
Dim f As IFormWithSubTest
 
If...Then
	f = New Form1
Else
	f = New Form2
End If
 
f.SubTest()

f sera à la fois un IFormWithSubTest et soit un form1 soit un form2 (directcast peut être utilisé pour caster sur une interface)

[bubu92]

@Phil Rob oui, les Sub sont bien Public.

Merci Pol63 pour toutes ces infos.

En fait j'ai juste remplacé

Code :

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

Dim f As Form

par

Code :

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

Dim f As Object

J'ai pas compris pourquoi, et ça m'embête un peu, mais ça fonctionne.

[Phil Rob]

Merci pour le feedback et tant mieux si tu es dépanné.

Toutefois, déclarer un objet de type Object n'est jamais une bonne chose.

Mais es-tu vraiment obligé d'instancier tes Form ?

Le code suivant devrait fonctionner aussi et il ne serait pas le plus mauvais si tu n'as pas besoin de plusieurs instances simultanées du même Form :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
' ************* Dim f As Form
 
If...Then
	' f = New Form1
  Form1.SubTest
Else
	'  f = New Form2
  Form2.SubTest
End If
 
' Call f.SubTest

Bonne soirée,

[bubu92]

Form1 et Form2 (en fait il y en a d'autres) correspondent a des types de fichier à ouvrir.
J'ai fait une Form pour chaque types de fichiers gérés. Et toutes ces Forms je les
sélectionne ensuite comme fenêtre MDI par l'intermédiaire d'une liste déroulante
pour afficher l'un ou l'autre fichier à la demande de l'utilisateur.
La Sub commune permettant de charger le fichier précédemment sélectionné.
En écrivant j'me rend compte que ça aurait peut-être été plus intelligent de passer le nom
du fichier en paramètre de la Sub New(), non ? Mais si pour une raison quelconque le
chargement du fichier est impossible, est-ce que je peux détruire la Form alors qu'a ce
moment je serai dans New() ? pour éviter d'afficher une fenêtre vide.

[Pol63]

En écrivant je me rend compte que ça aurait peut-être été plus intelligent de passer le nom
du fichier en paramètre de la Sub New(), non ?

surement, mais il est encore temps

Mais si pour une raison quelconque le
chargement du fichier est impossible, est-ce que je peux détruire la Form alors qu'a ce
moment je serai dans New() ? pour éviter d'afficher une fenêtre vide.

oui, ca dépend ce que tu appelles impossible
il faudrait plus de détail pour trouver le meilleur moyen
après sur le comment il y a au moins 2 choix, soit la fenêtre s'ouvre mais affiche un message d'erreur, soit tu peux thrower dans le constructeur (et il faut un try catch)
throw new applicationexception(un message) (l'appelant catch et peut afficher le message)

[bubu92]

Merci pour tous ces précieux conseils.
N'empêche que j'aurais bien aimé comprendre pourquoi y trouve la Sub quand c'est
un Object mais pas quand c'est une Form. Je vais chercher et je pense qu'on peut
considérer le sujet comme clos :-)

[Pol63]

parce que ton visual studio est paramétré en mode noob (mode par défaut seulement pour vb.net)
qui autorise à écrire n'importe ou presque
le mode mieux c'est option strict on (ou option explicit on je sais plus) qui évite de faire des bugs

sur object il se doute bien que tu vas mettre des trucs dedans donc il te laisse être sûr de toi (ce qui nécessite un cast explicite en mode pas noob)
et si tu mets un button dans ta variable de type object et que tu arrives sur la ligne call SubTest dessus ca va planter à l'exécution
le mode pas noob évite des plantages à l'exécution à cause de code pas sûr en interdisant à la compilation d'écrire ca (nécessite un cast est dans certains cas la possibilité du cast est vérifiée)


sur Form (cette classe est dans le framework) la méthode SubTest n'existe pas
Form1 hérite de Form donc tu as le droit de mettre une intsance Form1 dans une variable de type Form, mais celà n'implique pas que tout ce que tu pourras mettre dans cette variable sera un Form1 et donc aura cette méthode

l'interface est ce qu'il y a de plus propre

[Phil Rob]

Cela me parait bien compliqué ...

Mais bon, tu as une solution qui fonctionne.
Toutefois, si tu as le temps d'améliorer ton système, tu pourrais implémenter (sans jeu de mots) la proposition de Pol63.

Bonne soirée,