bonjour,
Je voudrais personnaliser la class ToolStripItem
Voici un exemple simple de ce que je fais.
Mais le problème c'est que les sous menu apparaisse bien dans mon MenuStrip mais sans le text.
Merci de votre aide
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
20
21
22
23
24
25
26
27
28 Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim P1 As New cls_Personne("TOTO", "TATA") Dim P2 As New cls_Personne("LULU", "LILI") Menu_Personne.DropDownItems.Add(P1) Menu_Personne.DropDownItems.Add(P2) End Sub End Class Public Class cls_Personne Inherits ToolStripItem Private _Nom As String = "" Private _Prenom As String = "" Public Sub New(ByVal strNom As String, ByVal strprenom As String) _Nom = strNom _Prenom = strprenom Me.Name = strNom Me.Text = strNom End Sub End Class
Partager