ExpandoObject Class

Dim sampleObject As Object = New ExpandoObject()

dynamic sampleObject = new ExpandoObject();

sampleObject.Test = "Dynamic Property"
outputBlock.Text &= sampleObject.test & vbCrLf
outputBlock.Text &= sampleObject.test.GetType().ToString() & vbCrLf
' This code example produces the following output:
' Dynamic Property
' System.String

sampleObject.test = "Dynamic Property";
outputBlock.Text += sampleObject.test + "\n";
outputBlock.Text += sampleObject.test.GetType() + "\n";
// This code example produces the following output:
// Dynamic Property
// System.String

sampleObject.Number = 10
sampleObject.Increment = Function() sampleObject.Number + 1
' Before calling the Increment method.
outputBlock.Text &= sampleObject.number & vbCrLf

sampleObject.Increment.Invoke()

' After calling the Increment method.
outputBlock.Text &= sampleObject.number & vbCrLf
' This code example produces the following output:
' 10
' 11

sampleObject.number = 10;
sampleObject.Increment = (Action)(() => { sampleObject.number++; });

// Before calling the Increment method.
outputBlock.Text += sampleObject.number + "\n";

sampleObject.Increment();

// After calling the Increment method.
outputBlock.Text += sampleObject.number + "\n";
// This code example produces the following output:
// 10
// 11

Public Sub Demo(ByVal outputBlock As System.Windows.Controls.TextBlock)
   Dim employee, manager As Object

   employee = New ExpandoObject()
   employee.Name = "John Smith"
   employee.Age = 33

   manager = New ExpandoObject()
   manager.Name = "Allison Brown"
   manager.Age = 42
   manager.TeamSize = 10

   WritePerson(outputBlock, manager)
   WritePerson(outputBlock, employee)
End Sub

Private Sub WritePerson(ByVal outputBlock As System.Windows.Controls.TextBlock, ByVal person As Object)

     outputBlock.Text += String.Format("{0} is {1} years old.", _
                       person.Name, person.Age) + vbCrLf
   ' The following statement causes an exception
   ' if you pass the employee object.
   ' outputBlock.Text += String.Format("Manages {0} people", person.TeamSize) & vbCrLf

End Sub

class Example
{
   public static void Demo(System.Windows.Controls.TextBlock outputBlock)
   {
      dynamic employee, manager;

      employee = new ExpandoObject();
      employee.Name = "John Smith";
      employee.Age = 33;

      manager = new ExpandoObject();
      manager.Name = "Allison Brown";
      manager.Age = 42;
      manager.TeamSize = 10;

      WritePerson(outputBlock, manager);
      WritePerson(outputBlock, employee);
   }
   private static void WritePerson(System.Windows.Controls.TextBlock outputBlock, dynamic person)
   {
      outputBlock.Text += String.Format("{0} is {1} years old.\n",
                        person.Name, person.Age);
      // The following statement causes an exception
      // if you pass the employee object.
      // outputBlock.Text += String.Format("Manages {0} people\n", person.TeamSize);
   }
}
// This code example produces the following output:
// John Smith is 33 years old.
// Allison Brown is 42 years old.

Dim employee As Object = New ExpandoObject()
employee.Name = "John Smith"
employee.Age = 33
For Each member In CType(employee, IDictionary(Of String, Object))
   outputBlock.Text &= member.Key & ": " & member.Value & vbCrLf
Next
' This code example produces the following output:
' Name: John Smith
' Age: 33

dynamic employee = new ExpandoObject();
employee.Name = "John Smith";
employee.Age = 33;

foreach (var property in (IDictionary<String, Object>)employee)
{
   outputBlock.Text += property.Key + ": " + property.Value + "\n";
}
// This code example produces the following output:
// Name: John Smith
// Age: 33

Dim employee As Object = New ExpandoObject()
employee.Name = "John Smith"
  CType(employee, IDictionary(Of String, Object)).Remove("Name")

dynamic employee = new ExpandoObject();
employee.Name = "John Smith";
((IDictionary<String, Object>)employee).Remove("Name");

' Add "Imports System.ComponentModel" line 
' to the beginning of the file.
Sub Main(outputBlock As System.Windows.Controls.TextBlock)
   Dim employee As Object = New ExpandoObject
     AddHandler CType(employee, INotifyPropertyChanged).PropertyChanged, _
         AddressOf HandlePropertyChanges
   employee.Name = "John Smith"
End Sub

 Private Sub HandlePropertyChanges(ByVal sender As Object, ByVal e As PropertyChangedEventArgs)
   outputBlock.Text += String.Format("{0} has changed.", e.PropertyName) & vbCrLf
End Sub

// Add "using System.ComponentModel;" line 
// to the beginning of the file.
class Program
{
   static System.Windows.Controls.TextBlock outputBlock;

   static void Demo(System.Windows.Controls.TextBlock outputBlock)
   {
      Program.outputBlock = outputBlock;

      dynamic employee = new ExpandoObject();
      ((INotifyPropertyChanged)employee).PropertyChanged +=
          new PropertyChangedEventHandler(HandlePropertyChanges);
      employee.Name = "John Smith";
   }

   private static void HandlePropertyChanges(
       object sender, PropertyChangedEventArgs e)
   {
      outputBlock.Text += String.Format("{0} has changed.", e.PropertyName) + "\n";
   }
}