The WPF / Silverlight Zone

1. Read the question carefully
2. Understand that English isn't everyone's first language so be lenient of bad spelling and grammar
3. If a question is poorly phrased then either ask for clarification, ignore it, or mark it down. Insults are not welcome
4. If the question is inappropriate then click the 'vote to remove message' button

1. Choose the correct forum for your message. Posting a VB.NET question in the C++ forum will end in tears.
    
   
2. Be specific! Don't ask "can someone send me the code to create an application that does 'X'. Pinpoint exactly what it is you need help with.
    
   
3. Keep the subject line brief, but descriptive. eg "File Serialization problem"
    
   
4. Keep the question as brief as possible. If you have to include code, include the smallest snippet of code you can.
    
   
5. Be careful when including code that you haven't made a typo. Typing mistakes can become the focal point instead of the actual question you asked.
    
   
6. Do not remove or empty a message if others have replied. Keep the thread intact and available for others to search and read. If your problem was answered then edit your message and add "[Solved]" to the subject line of the original post, and cast an approval vote to the one or several answers that really helped you.
    
   
7. If you are posting source code with your question, place it inside <pre></pre> tags. We advise you also check the "Encode "<" (and other HTML) characters when pasting" checkbox before pasting anything inside the PRE block, and make sure "Use HTML in this post" check box is checked.
    
   
8. Be courteous and DON'T SHOUT. Everyone here helps because they enjoy helping others, not because it's their job.
    
   
9. Please do not post links to your question into an unrelated forum such as the lounge. It will be deleted. Likewise, do not post the same question in more than one forum.
    
   
10. Do not be abusive, offensive, inappropriate or harass anyone on the boards. Doing so will get you kicked off and banned. Play nice.
     
    
11. If you have a school or university assignment, assume that your teacher or lecturer is also reading these forums.
     
    
12. No advertising or soliciting.
     
    
13. We reserve the right to move your posts to a more appropriate forum or to delete anything deemed inappropriate or illegal.

An unhandled exception of type 'System.StackOverflowException' in WindowsBase.dll

Del Ert = new Del(setImage);
  images.Dispatcher.Invoke (ert, new object [] {images, url});

Del

public delegate void Del (Image images, string url);

<toolkit:DataGrid
      ItemsSource="{Binding LogList}">
</toolkit:DataGrid>

Public Class Person
    Implements IPerson, INotifyPropertyChanged
 
#Region "Events"
    Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
#End Region
 
#Region "Variables"
    Private _guid As Guid
    Private _firstName As String
    Private _lastName As String
    Private _MiddleName As String
    Private _sex As String
    Private _created As DateTime
    Private _modified As DateTime
#End Region
 
#Region "Properties"
    Public ReadOnly Property GUID As Guid Implements IPerson.GUID
        Get
            Return _guid
        End Get
    End Property
 
    Public ReadOnly Property Created As Date Implements IPerson.Created
        Get
            Return _created
        End Get
    End Property
 
    Public ReadOnly Property Modified As Date Implements IPerson.Modified
        Get
            Return _modified
        End Get
    End Property
 
    Public Property FirstName As String Implements IPerson.FirstName
        Get
            Return _firstName
        End Get
        Set(value As String)
            _firstName = value
            OnPropertyChanged(New PropertyChangedEventArgs("FirstName"))
        End Set
    End Property
 
    Public Property LastName As String Implements IPerson.LastName
        Get
            Return _lastName
        End Get
        Set(value As String)
            _lastName = value
            OnPropertyChanged(New PropertyChangedEventArgs("LastName"))
        End Set
    End Property
 
    Public Property MiddleName As String Implements IPerson.MiddleName
        Get
            Return _MiddleName
        End Get
        Set(value As String)
            _MiddleName = value
            OnPropertyChanged(New PropertyChangedEventArgs("MiddleName"))
        End Set
    End Property
 
    Public Property Sex As String Implements IPerson.Sex
        Get
            Return _sex
        End Get
        Set(value As String)
            _sex = value
            OnPropertyChanged(New PropertyChangedEventArgs("Sex"))
        End Set
    End Property
#End Region
 
#Region "Methods"
    Public Sub New(guid As Guid, Optional created As DateTime = Nothing, Optional modified As DateTime = Nothing)
        Me._guid = guid
        Me._created = created
        Me._modified = modified
    End Sub
 
    Public Sub OnPropertyChanged(ByVal e As PropertyChangedEventArgs)
        If Not PropertyChangedEvent Is Nothing Then
            RaiseEvent PropertyChanged(Me, e)
        End If
    End Sub
#End Region

Public Shared Function GetAllEmployees() As ObservableCollection(Of Employee)
        Dim connection As New MySqlConnection(connectionString)
        Dim command As New MySqlCommand
        command.Connection = connection
        command.CommandText = StoredProcedures.GetProcedureName(StoredProceduresEnum.GET_ALL_EMPLOYEES)
        command.CommandType = CommandType.StoredProcedure
 
        Dim ds As New DataSet
        Dim adapter As New MySqlDataAdapter
        adapter.SelectCommand = command
        adapter.Fill(ds)
 
        Dim employees As New ObservableCollection(Of Employee)
        Dim employee As Employee
 
        For Each row As DataRow In ds.Tables(0).Rows
            employee = New Employee(New Guid)
            With employee
                'TODO: Finish setting properties
                .FirstName = row.Item("FirstName").ToString
                .MiddleName = row.Item("MiddleName").ToString
                .LastName = row.Item("LastName").ToString
                .Sex = row.Item("Sex").ToString
                .IDNumber = row.Item("IDNumber").ToString
 
                employees.Add(employee)
            End With
        Next
        Return employees
    End Function

<ListBox Name="lstEmployees" Grid.Column="0" Grid.RowSpan="2" MinWidth="150" Margin="5,5,5,5" VirtualizingPanel.IsVirtualizing="True" >
            <ListBox.ItemTemplate>
                <DataTemplate>
                    <Border Margin="5" BorderThickness="1" BorderBrush="SteelBlue" CornerRadius="4">
                        <Grid Margin="3">
                            <Grid.RowDefinitions>
                                <RowDefinition></RowDefinition>
                                <RowDefinition></RowDefinition>
                            </Grid.RowDefinitions>
                            <TextBlock FontWeight="Bold">
                                <TextBlock.Text>
                                    <MultiBinding StringFormat=" {0}, {1} ">
                                        <Binding Path="LastName" />
                                        <Binding Path="FirstName" />
                                    </MultiBinding>
                                </TextBlock.Text>
                            </TextBlock>
                            <TextBlock Grid.Row="1">
                                <TextBlock.Text>
                                    <MultiBinding StringFormat="ID: {0}">
                                        <Binding Path="IDNumber" />
                                    </MultiBinding>
                                </TextBlock.Text>
                            </TextBlock>
                        </Grid>
                    </Border>
                </DataTemplate>
            </ListBox.ItemTemplate>
        </ListBox>
 
        <Grid x:Name="entryFieldsGrid" Grid.Column="2" Margin="5,5,5,5" Width="Auto" DataContext="{Binding ElementName=lstEmployees, Path=SelectedItem}">
            <Grid.ColumnDefinitions>
                <ColumnDefinition Width="Auto"/>
                <ColumnDefinition Width="*"/>
            </Grid.ColumnDefinitions>
            <Grid.RowDefinitions>
                <RowDefinition Height="Auto" />
                <RowDefinition Height="Auto" />
                <RowDefinition Height="Auto" />
                <RowDefinition Height="Auto" />
                <RowDefinition Height="Auto" />
                <RowDefinition Height="Auto" />
            </Grid.RowDefinitions>
            <StackPanel Orientation="Horizontal" Grid.Row="0" >
                <TextBlock Text="First Name:" Padding="0,0,5,0" />
                <TextBox x:Name="firstName" Width="150" Text="{Binding Path=FirstName}"/>
                <TextBlock Text="Middle Name:" Padding="5,0,5,0"/>
                <TextBox x:Name="middleName" Width="150" Text="{Binding Path=MiddleName}"/>
                <TextBlock Text="Last Name:" Padding="5,0,5,0"/>
                <TextBox x:Name="lastName" Width="150" Text="{Binding Path=LastName}"/>
            </StackPanel>
            <StackPanel Orientation="Horizontal" Grid.Row="1">
                <TextBlock Text="Sex:" Padding="0,0,5,0" />
                <ComboBox x:Name="cboSex" IsEditable="False" SelectedValue="{Binding Path=Sex}" DisplayMemberPath="Sex" SelectedValuePath="Sex">
                    
                </ComboBox>
            </StackPanel>
        </Grid>

<ComboBoxItem></ComboBoxItem>
<ComboBoxItem>M</ComboBoxItem>
<ComboBoxItem>F</ComboBoxItem>

Class Test
    Public Enum Something As Integer
        <Description("Something happended")> Something
        <Description("Nothing happended")> Nothing_
    End Enum
 
    Private pEnumer As Something = -1
    Public Property Enumer() As Something
        Get
            Return pEnumer
        End Get
        Set(ByVal value As Something)
            pEnumer = value
        End Set
    End Property
End Class

Public Class EnumComboBox
        Inherits ComboBox
 
        Private _EnumList As New List(Of EnumerationMember)
 
        Private pEnumItemsSorce As [Enum]
        Public Property EnumItemsSorce() As [Enum]
            Get
                Return pEnumItemsSorce
            End Get
            Set(ByVal value As [Enum])
                pEnumItemsSorce = value
                Me.ItemsSource = [Enum].GetValues(value.GetType)
 
            End Set
        End Property
 

        Public Function GetEnumItemSource(obj As DependencyObject) As [Enum]
            Return EnumItemsSorce
        End Function
 
        Public Sub SetEnumItemSource(obj As DependencyObject, value As [Enum])
            EnumItemsSorce = value
        End Sub
 
        ' Using a DependencyProperty as the backing store for Enum.  This enables animation, styling, binding, etc...
        Public Shared ReadOnly EnumItemSourceProperty As DependencyProperty = DependencyProperty.RegisterAttached("EnumItemSource", GetType([Enum]), GetType(EnumComboBox), New PropertyMetadata(Nothing, AddressOf OnEnumItemSourceChanged))
 
        Private Shared Sub OnEnumItemSourceChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
            Dim control = TryCast(sender, ItemsControl)
 
            If control IsNot Nothing Then
                If e.NewValue IsNot Nothing Then
                    Dim _enum = [Enum].GetValues(TryCast(e.NewValue, Type))
                    control.ItemsSource = _enum
                End If
            End If
        End Sub
 
        Protected Overrides Sub OnItemContainerStyleSelectorChanged(oldItemContainerStyleSelector As System.Windows.Controls.StyleSelector, newItemContainerStyleSelector As System.Windows.Controls.StyleSelector)
            MyBase.OnItemContainerStyleSelectorChanged(oldItemContainerStyleSelector, newItemContainerStyleSelector)
        End Sub
 
        Protected Overrides Sub OnSelectionChanged(e As System.Windows.Controls.SelectionChangedEventArgs)
            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 = enumValue.GetDescription(enumValue) _
            }).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