Nicola Pievani
16 lines
573 B
VB.net
16 lines
573 B
VB.net
Public Class GuideView
|
|
|
|
Private m_GuideViewModel As New GuideViewModel
|
|
Public Shared m_Language As String
|
|
Sub New(Owner As Window, GuideViewModel As GuideViewModel)
|
|
MyBase.New(Owner)
|
|
' This call is required by the designer.
|
|
InitializeComponent()
|
|
' Add any initialization after the InitializeComponent() call.
|
|
Me.DataContext = GuideViewModel
|
|
m_GuideViewModel = GuideViewModel
|
|
DoorBrowser.Navigate(New Uri(IniFile.m_sHelpDir & "\" & m_Language & "\" & GuideViewModel.m_AddressGuide))
|
|
End Sub
|
|
|
|
End Class
|