WPF

Kenneth Haugland wrote:

mewaning when I change the combobox index the property in the Test class also changes

Kenneth Haugland wrote:

without any XAML

Private Sub cmbEnumComboBox_SelectionChanged(sender As System.Object, e As System.Windows.Controls.SelectionChangedEventArgs) Handles cmbEnumComboBox.SelectionChanged
    t.Enumer = cmbEnumComboBox.EnumItemsSorce
End Sub

Imports System.ComponentModel

Namespace WPF
    Public Class COmboBoxAttached
        Inherits ComboBox

        Private _EnumList As New List(Of EnumerationMember)

        Private DontRebind As Boolean = False

        Private pEnumItemsSorce As [Enum]
        Public Property EnumItemsSorce() As [Enum]
            Get
                Return pEnumItemsSorce
            End Get
            Set(value As [Enum])
                If Not DontRebind Then
                    GetValues(value)
                    Me.ItemsSource = _EnumList
                    Me.DisplayMemberPath = "Description"
                    Me.SelectedValue = "Value"
                End If

                DontRebind = False
                pEnumItemsSorce = value
            End Set
        End Property

        Protected Overrides Sub OnSelectionChanged(e As System.Windows.Controls.SelectionChangedEventArgs)

            If Me.SelectedValue IsNot Nothing Then
                DontRebind = True
                EnumItemsSorce = DirectCast(Me.SelectedValue, EnumerationMember).Value
            End If

            MyBase.OnSelectionChanged(e)
        End Sub

        Private _enumType As Type

        Private Sub GetValues(ByVal E As [Enum])
            Dim result As New List(Of String)

            Dim _enumType As Type
            _enumType = E.GetType
            Dim enumValues = [Enum].GetValues(_enumType)

            Dim f = (From enumValue In enumValues Select New EnumerationMember() With { _
              .Value = enumValue, _
              .Description = DirectCast(enumValue, [Enum]).GetDescription _
            }).ToList

            _EnumList = f
        End Sub

        Private Function GetDescription(enumValue As Object) As String
            Dim descriptionAttribute = TryCast(_enumType.GetField(enumValue.ToString()).GetCustomAttributes(GetType(ComponentModel.DescriptionAttribute), False).FirstOrDefault(), ComponentModel.DescriptionAttribute)
            Return If(descriptionAttribute IsNot Nothing, descriptionAttribute.Description, enumValue.ToString())
        End Function

        Public Class EnumerationMember

            Public Property Description() As String
                Get
                    Return m_Description
                End Get
                Set(value As String)
                    m_Description = value
                End Set
            End Property
            Private m_Description As String
            Public Property Value() As Object
                Get
                    Return m_Value
                End Get
                Set(value As Object)
                    m_Value = value
                End Set
            End Property
            Private m_Value As Object
        End Class
    End Class
End Namespace