sdk/samples/WPFSamples/DataBindingLab/visualbasic/addproductwindow.xaml.vb

   1 Partial Public Class AddProductWindow
   2     Inherits Window
   3
   4     Public Sub New()
   5         InitializeComponent()
   6     End Sub
   7
   8     Private Sub SubmitProduct(ByVal sender As Object, ByVal e As RoutedEventArgs)
   9         Dim item As AuctionItem = CType((Me.DataContext), AuctionItem)
  10         CType(Application.Current, DataBindingLabApp).AuctionItems.Add(item)
  11         Me.Close()
  12     End Sub
  13
  14     Private Sub OnInit(ByVal sender As Object, ByVal e As RoutedEventArgs)
  15         Me.DataContext = New AuctionItem("Type your description here", ProductCategory.DVDs, 1, DateTime.Now, CType(Application.Current, DataBindingLabApp).CurrentUser, SpecialFeatures.None)
  16     End Sub
  17
  18 End Class