Bonjour,
J'ai créé une form afin de personnalisé une messagebox car j'ai besoin d'adapter le texte de la fenetre et des boutons.
Je l'ai créé dans un projet différents car j'ai pour objectif de le réutiliser ultérieurement voir plusieurs fois dans mon appli.
J'aurai donc besoin de créer des propriété personnalisé afin de définir "dynamiquement" le texte de mes boutons et de la messagebox.
J'ai donc fait cela, mais je ne vois pas les propriétés apparaitre.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Public Class w_msgbox Property Msgbox_Titre As String Property Msgbox_Texte As String Property Msgbox_But1_texte As String Property Msgbox_But1_name As String Property Msgbox_But2_texte As String Property Msgbox_But2_name As String Sub Msgbox_modif() Me.Text = Msgbox_Titre Me.lab_texte.Text = Msgbox_Texte Me.bt_but1.Text = Msgbox_But1_texte Me.bt_but1.Name = Msgbox_But1_name Me.bt_but2.Text = Msgbox_But2_texte Me.bt_but2.Name = Msgbox_But2_name End Sub End Class
Partager