Option Strict On Option Explicit On Dim pptt As New PowerPointTemplate() Interface IOrder Property OrderID() as Int32 Property Customer() as String Property OrderDate() as DateTime Property OrdersTotal() as Single End Interface Dim orders as IEnumerable(Of Order) = GetOrders()
Dim pptt As New PowerPointTemplate()
Interface IOrder
Property OrderID() as Int32
Property Customer() as String
Property OrderDate() as DateTime
Property OrdersTotal() as Single
End Interface
Dim orders as IEnumerable(Of Order) = GetOrders()
pptt.BindData(orders, "Orders", pptt.CreateDataImportProperties())
|