WPF VB.Net Tutorial

    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="MasterDetailBinding"
    xmlns:local="clr-namespace:WpfApplication1">
  
    
      
        
          
            
              
                
                  
                  
                  
                

              

            
            
              
                
                  
                  
                

              

            
            
              
                
                  
                  
                

              

            
          

        

      
      
        
          
            
              
                
                  
                  
                  
                

              

            
            
              
                
                  
                  
                  
                

              

            
            
              
                
                  
                  
                  
                

              

            
          

        

      
    
  

  
    
      
      
    

    
      
    

    Companies:
    
      
        
          
        

      

    
    
      
      
    
    
      
        
          
            
            (age: )
          

        

      

    
    
      
      
    
    
      
        
          
        

      

    
  

//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Documents
Imports System.Windows.Media
Imports System.Windows.Shapes
Imports System.Collections.ObjectModel
Namespace WpfApplication1
  Public Class Skill
    Private m_description As String
    Public Property Description() As String
      Get
        Return m_description
      End Get
      Set
        m_description = value
      End Set
    End Property
  End Class
  Public Class Skills
    Inherits ObservableCollection(Of Skill)
  End Class
  Public Class Employee
    Private m_name As String
    Public Property Name() As String
      Get
        Return m_name
      End Get
      Set
        m_name = value
      End Set
    End Property
    Private m_age As Integer
    Public Property Age() As Integer
      Get
        Return m_age
      End Get
      Set
        m_age = value
      End Set
    End Property
    Private traits As Skills
    Public Property Skills() As Skills
      Get
        Return traits
      End Get
      Set
        traits = value
      End Set
    End Property
  End Class
  Public Class Team
    Inherits ObservableCollection(Of Employee)
  End Class
  Public Class Company
    Private familyName As String
    Public Property CompanyName() As String
      Get
        Return familyName
      End Get
      Set
        familyName = value
      End Set
    End Property
    Private m_members As Team
    Public Property Members() As Team
      Get
        Return m_members
      End Get
      Set
        m_members = value
      End Set
    End Property
  End Class
  Public Class Companies
    Inherits ObservableCollection(Of Company)
  End Class
  Public Partial Class Window1
    Inherits Window
    Public Sub New()
      InitializeComponent()
    End Sub
  End Class
End Namespace