Public Class MaClasse Private MonNom as String Private MaValeur as Integer Public Sub New(ByVal pValeur as integer, ByVal pNom as String) MaValeur=pValeur MonNom=pNom End Sub Public Property ReadOnly Valeur() as Integer Get Return MValeur End Get End Property Public Overrides Function ToString() As String Return MonNom End Function End Class
MaListBox.Items.Add(New MaClasse(1,"Valeur1")) MaListBox.Items.Add(New MaClasse(5,"Valeur5"))
Valeur=DirectCast(MaListBox.SelectedItem,MaClasse).Valeur