Click here to Skip to main content
Click here to Skip to main content
Add your own
alternative version

WPF Business Application Series Part 2 of n - Form Notification Control that Binds to the IDataErrorInfo.Error Property

, 2 Apr 2008 CPOL
WPF VB.NET Business Application Form Notification control that binds to business entity objects that implement the IDataErrorInfo interface. The article also covers entity validation with the WPF 3.5 IDataErrorInfo interface.
wpflobparttwo.zip
WPFLOBPartTwo
Core
Core.csi
Core.vbproj.user
My Project
Settings.settings
Themes
WPF
Converters
Custom Controls
CustomToolBarButton
FormNotification
Time Display
Helpers
DemonstrationForms
Business Object
DemonstrationForms.csi
Forms
My Project
Settings.settings
WPFBusiessApplicationSample.suo
WPFBusinessApplicationSample
My Project
MyExtensions
Settings.settings
Resources
Images
Delete.png
DeleteDisabled.png
New.png
NewDisabled.png
rss.png
rss3d.png
Save.png
SaveDisabled.png
Skins
Metallic
OfficeBlack
OfficeBlue
WPFBusiessApplicationSample.csi
WPFBusiessApplicationSample.vbproj.user
WPFToolBarButtonSample.csi
wpflobparttwoupdated2-23-2008.zip
Core.csi
Core.vbproj.user
Settings.settings
DemonstrationForms.csi
Settings.settings
Settings.settings
Delete.png
DeleteDisabled.png
New.png
NewDisabled.png
rss.png
rss3d.png
Save.png
SaveDisabled.png
WPFBusiessApplicationSample.csi
WPFBusiessApplicationSample.vbproj.user
WPFToolBarButtonSample.csi
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Reflection
Imports System.Text
Imports System.Windows

'WARNING - This is DEMO CODE ONLY.  Please do not code your
'business objects like this.  This is just to get some
'functionality to demo the FormNotification control only.
'
'Future articles will have real business objects and a data access layer
'
Public Class Customer
    Implements INotifyPropertyChanged
    Implements IDataErrorInfo

#Region " Declarations "

    Private _strFirstName As String = String.Empty
    Private _strLastName As String = String.Empty

#End Region

#Region " Events "

    Public Event PropertyChanged(ByVal sender As Object, ByVal e As System.ComponentModel.PropertyChangedEventArgs) Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged

#End Region

#Region " Properties "

    Public ReadOnly Property [Error]() As String Implements System.ComponentModel.IDataErrorInfo.Error
        Get
            Return Me.CheckProperties(String.Empty)
        End Get
    End Property

    Public Property FirstName() As String
        Get
            Return _strFirstName
        End Get
        Set(ByVal value As String)
            _strFirstName = value
            RaisePropertyChanged("FirstName")
        End Set
    End Property

    Default Public ReadOnly Property Item(ByVal strPropertyName As String) As String Implements System.ComponentModel.IDataErrorInfo.Item
        Get
            Return Me.CheckProperties(strPropertyName)
        End Get
    End Property

    Public Property LastName() As String
        Get
            Return _strLastName
        End Get
        Set(ByVal value As String)
            _strLastName = value
            RaisePropertyChanged("LastName")
        End Set
    End Property

#End Region

#Region " Methods "

    Private Function CheckProperties(ByVal strPropertyName As String) As String

        Dim strResult As String = String.Empty

        If String.IsNullOrEmpty(strPropertyName) OrElse String.Compare(strPropertyName, "FirstName", True) = 0 Then

            If String.IsNullOrEmpty(_strFirstName) Then
                strResult = "First Name is a required field."
            End If

        End If

        If String.IsNullOrEmpty(strPropertyName) OrElse String.Compare(strPropertyName, "LastName", True) = 0 Then

            If String.IsNullOrEmpty(_strLastName) Then

                If strResult.Length <> 0 Then
                    strResult += vbCrLf & vbCrLf
                End If

                strResult += "Last Name is a required field."
            End If

        End If

        Return strResult

    End Function

    Public Function IsValid() As Boolean

        If Me.Error.Length = 0 Then
            Return True

        Else

            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs("Error"))
            Return False
        End If

    End Function

    Protected Sub RaisePropertyChanged(ByVal strPropertyName As String)

        RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(strPropertyName))
        RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs("Error"))

    End Sub

#End Region

End Class

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Share

About the Author

Karl Shifflett
Architect Gayle Manufacturing Company
United States United States
Karl loves .NET, WPF, WCF, ASP.NET, VB.NET and C#.
 
Awards:
 
  • December 2008 VB.NET Code Project Article Award
  • 2009 Code Project MVP
  • 2008 Code Project MVP
  • 2008 Microsoft MVP - Client App Dev
  • December 2007 VB.NET Code Project Article Award
  • Gold Medal Winner at IBM's 1998 PROIV Programming Contest in Las Vegas
Click here to check out my Blog
 
Click here to learn about Mole 2010 debugging tool for Visual Studio 2010
 
Click here to read about XAML Power Toys
 

Just a grain of sand on the worlds beaches.

Follow on   Twitter

| Advertise | Privacy | Terms of Use | Mobile
Web01 | 2.8.141220.1 | Last Updated 2 Apr 2008
Article Copyright 2008 by Karl Shifflett
Everything else Copyright © CodeProject, 1999-2014
Layout: fixed | fluid