sdk/samples/WPFSamples/TabControlUsingItemTemplate/visualbasic/data.vb

   1 Imports System.Collections.ObjectModel
   2
   3 Public Class TabItemData
   4
   5     Private _header As String
   6     Private _content As String
   7
   8     Public Sub New(ByVal header As String, ByVal content As String)
   9
  10         _header = header
  11         _content = content
  12
  13     End Sub
  14
  15     Public ReadOnly Property Header() As String
  16         Get
  17             Return _header
  18         End Get
  19     End Property
  20
  21
  22
  23     Public ReadOnly Property Content() As String
  24         Get
  25             Return _content
  26         End Get
  27     End Property
  28
  29
  30 End Class
  31
  32
  33
  34 Public Class TabList
  35     Inherits ObservableCollection(Of TabItemData)
  36     Public Sub New()
  37
  38         MyBase.New()
  39
  40         Add(New TabItemData("Header 1", "Content 1"))
  41         Add(New TabItemData("Header 2", "Content 2"))
  42         Add(New TabItemData("Header 3", "Content 3"))
  43
  44     End Sub
  45 End Class