Public Class Form1 Dim MonObjet As MaClasse Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load MonObjet = New MaClasse("test") TreeView1.Nodes.Add(MonObjet) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MonObjet.MaPropriete = "coucou" End Sub Class MaClasse Inherits TreeNode Sub New(ByVal Texte As String) Me.Text = Texte End Sub Public WriteOnly Property MaPropriete() As String Set(ByVal value As String) Me.Text = value End Set End Property End Class End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question