CurionLib Dynamic Data Entry Forms

Imports FirstFloor.ModernUI.Windows.Controls
Imports System.Dynamic
Imports Curion.WPF.Controls

Public Class FormExpandoObject
	Private obj As Object
	Sub New()
		InitializeComponent()
		Dim expando As New ExpandoObject
		obj = expando
		'If you don't set property values, text boxes will be used...
		obj.Name = "Larry"
		obj.Phone = "555-1212"
		obj.Age = 51
		obj.IsActive = True
		obj.Hired = #5/15/2013#
		ctlForm.Title = StringTitle("ExpandoObject", Windows.HorizontalAlignment.Left)
		ctlForm.DataContext = obj
	End Sub
	Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
		Call ShowResults(obj)
	End Sub
End Class