Mercurial > silverbladetech

comparison Glimpse/Model/BrokenBinding.vb @ 59:3591c26bd63e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
MVVMLight added
author Steven Hollidge <stevenhollidge@hotmail.com>
date Sat, 21 Apr 2012 19:20:28 +0100
parents
children
comparison
equal deleted inserted replaced
58:241e2f22ed3c 59:3591c26bd63e
1 
2 Public Class BrokenBinding
3
4 #Region " Declarations "
5
6 Private _strControlName As String = String.Empty
7 Private _strControlTypeName As String = String.Empty
8 Private _strPath As String = String.Empty
9 Private _strPropertyName As String = String.Empty
10
11 #End Region
12
13 #Region " Properties "
14
15 Public ReadOnly Property ControlName() As String
16 Get
17
18 If String.IsNullOrEmpty(_strControlName) Then
19 Return "(none)"
20
21 Else
22 Return _strControlName
23 End If
24
25 End Get
26 End Property
27
28 Public ReadOnly Property ControlTypeName() As String
29 Get
30 Return _strControlTypeName
31 End Get
32 End Property
33
34 Public ReadOnly Property Path() As String
35 Get
36 Return _strPath
37 End Get
38 End Property
39
40 Public ReadOnly Property PropertyName() As String
41 Get
42 Return _strPropertyName
43 End Get
44 End Property
45
46 #End Region
47
48 #Region " Constructor "
49
50 Public Sub New(ByVal strControlName As String, ByVal strControlTypeName As String, ByVal strPropertyName As String, ByVal strPath As String)
51 _strControlName = strControlName
52 _strControlTypeName = strControlTypeName
53 _strPropertyName = strPropertyName
54 _strPath = strPath
55 End Sub
56
57 #End Region
58
59 #Region " Methods "
60
61 Public Overrides Function ToString() As String
62 Return String.Format("Control Name: {0}, Type: {1}, Property: {2}, Path: {3}", Me.ControlName, Me.ControlTypeName, Me.PropertyName, Me.Path)
63 End Function
64
65 #End Region
66
67 End Class