Mega Code Archive

 

Categories / VB.Net Tutorial / WPF

 

Set and get data from Application Current Properties

<Window x: Class="BookApp.Window1"     xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"     xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"     Title="BookApp" Height="300" Width="300">     <Grid>       <Button Click="MyClickEvent" Name="btnGo">Go</Button>     </Grid> </Window> //File:Window.xaml.vb Imports System Imports System.Collections.Generic Imports System.Text Imports System.Windows Imports System.Windows.Controls Imports System.Windows.Data Imports System.Windows.Documents Imports System.Windows.Input Imports System.Windows.Media Imports System.Windows.Media.Imaging Imports System.Windows.Shapes Namespace BookApp   Public Partial Class Window1     Inherits System.Windows.Window     Public Sub New()       InitializeComponent()       Dim x As New Book()       x.author = "A"       x.title = "title"       x.price = CDec(9.99)       Application.Current.Properties("Book") = x     End Sub     Private Sub MyClickEvent(sender As Object, e As RoutedEventArgs)       Dim y As Book = DirectCast(Application.Current.Properties("Book"), Book)       MessageBox.Show(y.title, y.author, MessageBoxButton.OK, MessageBoxImage.Hand)     End Sub   End Class   Public Class Book     Public price As Decimal     Public title As String     Public author As String   End Class End Namespace