sdk/samples/WPFSamples/DataTrigger/visualbasic/places.vb

   1 Imports System
   2 Imports System.Collections.ObjectModel
   3
   4 Public Class Place
   5     ' Methods
   6     Public Sub New(ByVal name As String, ByVal state As String)
   7         Me._name = name
   8         Me._state = state
   9     End Sub
  10
  11
  12     ' Properties
  13     Public Property Name() As String
  14         Get
  15             Return Me._name
  16         End Get
  17         Set(ByVal value As String)
  18             Me._name = value
  19         End Set
  20     End Property
  21
  22     Public Property State() As String
  23         Get
  24             Return Me._state
  25         End Get
  26         Set(ByVal value As String)
  27             Me._state = value
  28         End Set
  29     End Property
  30
  31     ' Fields
  32     Private _name As String
  33     Private _state As String
  34 End Class
  35
  36 Public Class Places
  37     Inherits ObservableCollection(Of Place)
  38
  39     ' Methods
  40     Public Sub New()
  41         MyBase.Add(New Place("Bellevue", "WA"))
  42         MyBase.Add(New Place("Gold Beach", "OR"))
  43         MyBase.Add(New Place("Kirkland", "WA"))
  44         MyBase.Add(New Place("Los Angeles", "CA"))
  45         MyBase.Add(New Place("Portland", "ME"))
  46         MyBase.Add(New Place("Portland", "OR"))
  47         MyBase.Add(New Place("Redmond", "WA"))
  48         MyBase.Add(New Place("San Diego", "CA"))
  49         MyBase.Add(New Place("San Francisco", "CA"))
  50         MyBase.Add(New Place("San Jose", "CA"))
  51         MyBase.Add(New Place("Seattle", "WA"))
  52     End Sub
  53
  54 End Class
  55