Discussion :

[Hobbi1]

Bonsoir,

J'ai un projet sous VB 2012 dont plusieurs formulaires possèdent une sorte de barre de titre. Il s'agit de Label et PictureBox colorés et un peu stylés pour rendre un peu plus agréable les formulaires.

Le code pour afficher cette "barre de titre" est dupliqué dans le Load de chaque formulaire.
Comme il n'y a que la largeur de la "barre de titre" qui change ainsi que le texte affiché, je voudrais mettre ce code dans une fonction qui sera appelée par chaque formulaire.

Le problème c'est que je ne sais pas comment faire.
Merci de votre aide

[sinople]

La largeur d'une image qui s'adapte en fonction de la taille d'un formulaire c'est un boulot pour la propriété Anchor (en plus ça fonctionne sur un resize à l'execution contrairement à la technique que je crois deviner selon ton expliquation).

Pour ce qui concerne la réutilisation d'un formulaire type préconfigurer, la méthode la plus correct serait d'utiliser la notion d'héritage. Il y a plein d'info sur le sujet dans les tutoriel du site.

Sinon concernant une méthode commune pour plusieurs type de formulaire (sans recourrir à l'héritage) tu peux définire une méthode dans un module (ou d'une procédure shared d'une quelconque class) en passant le formulaire en paramètre.

Mais c'est tellement moche d'un point de vue programmation objet que je refuse la paternité de cette solution...

[Pol63]

Sinon concernant une méthode commune pour plusieurs type de formulaire (sans recourrir à l'héritage) tu peux définire une méthode dans un module (ou d'une procédure shared d'une quelconque class) en passant le formulaire en paramètre.

Mais c'est tellement moche d'un point de vue programmation objet que je refuse la paternité de cette solution...

Il n'y a rien de moche là dedans, même microsoft a utilisé cette méthode dans le framework à plusieurs endroits ...

[Hobbi1]

Merci tous les 2.
J'ai essayé les 2 méthodes mais je n'y arrive pas

Par exemple, j'ai créé un module avec une fonction publique :

Code :

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

1
2
3
4
5
Module modFormulaire
    Public Sub AfficherTitre(ByRef MaForm As Form)
        MaForm.lblFenetreTitre.Text = "Test"
    End Sub
End Module

Mais j'ai l'erreur

'lblFenetreTitre' n'est pas un membre de 'System.Windows.Forms.Form'

Je veux modifier le texte du Label à travers le module.
Comment faire ?

[Pol63]

il te faut de l'héritage ...

[Hobbi1]

Je progresse. Je suis en train de faire des tests pour apprendre.
J'ai créé un "formulaire modèle" avec notamment une PictureBox qui a sa propriété Anchor = Top, Left, Right

J'ai créée un formulaire Test qui hérite du "formulaire modèle".
Dans dans la MDI, j'appelle le formulaire Test avec ce code :

Code :

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

1
2
3
4
Dim test As New frmTest
test.NomImage = "Test.png"
test.TitreFormulaire = "Test"
test.Show()

Cela fonctionne, sauf pour la taille de la PictureBox. En fait, elle n'est pas redimensionnée à la largeur de la form Test, malgré la propriété Anchor du "formulaire modèle".
Je ne comprends pas.

[sinople]

Anchor va juste faire en sorte que la picture box va s'agrendir ou diminuer avec le formulaire lors d'un resize.

Par contre il faut que la largeur initial du picture box soit équivalente à celui de la form sinon c'est clair que ça ne marchera pas.

[Hobbi1]

OK
Merci sinople

J'ai donc ajouter une propriété au "formulaire modèle" qui contient la largeur du formulaire fils.