Permalink
Fetching contributors…
Cannot retrieve contributors at this time
23 lines (19 sloc) 532 Bytes
Imports System.Text
Namespace ExpenseIt
''' <summary>
''' Interaction logic for ExpenseItHome.xaml
''' </summary>
Partial Public Class ExpenseItHome
Inherits Page
Public Sub New()
InitializeComponent()
End Sub
'<Snippet27>
Private Sub Button_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
' View Expense Report
Dim expenseReportPage As New ExpenseReportPage(Me.peopleListBox.SelectedItem)
Me.NavigationService.Navigate(expenseReportPage)
End Sub
'</Snippet27>
End Class
End Namespace