Imports EgtUILib

Public Class GuideV

   Private m_GuideVM As GuideVM
   Public Shared m_Language As String

   Sub New(Owner As Window, GuideVM As GuideVM)
      MyBase.New(Owner)
      ' This call is required by the designer.
      InitializeComponent()
      ' Add any initialization after the InitializeComponent() call.
      Me.DataContext = GuideVM
      m_GuideVM = GuideVM
      ' Per evitare richieste di approvare esecuzione javascript :
      ' - impostare possibilità di eseguire script in locale da Windows
      ' - si cambia il riferimento al disco C: nel modo seguente
      ' Prova della lettura di un file chm (Help)
      'System.Windows.Forms.Help.ShowHelp(Nothing, "c:\EgtData\EgtDOORCreator\Help\Prova\HelpNDoc tutorial.chm")
      Dim sHelpDir As String = String.Empty
      If OptionModule.m_SmartHelp = HelpPage.LocalHost Then
         sHelpDir = IniFile.m_sHelpDir.Replace("C:", "file://127.0.0.1/c$")
         DoorBrowser.Source = New Uri(sHelpDir & "\" & m_Language & "\" & GuideVM.m_AddressGuide & ".html")
      ElseIf OptionModule.m_SmartHelp = HelpPage.WebBrowserVB Then
         sHelpDir = IniFile.m_sHelpDir
         DoorBrowser.Source = New Uri(sHelpDir & "\" & m_Language & "\" & GuideVM.m_AddressGuide & ".html")
      Else
         sHelpDir = IniFile.m_sHelpDir
         Try
            Process.Start(sHelpDir & "\" & m_Language & "\" & GuideVM.m_AddressGuide & ".html")
         Catch ex As Exception
            EgtOutLog("Errore nel caricamento pagina Help")
         End Try
      End If

      'If OptionModule.m_SmartHelp Then sHelpDir = IniFile.m_sHelpDir Else sHelpDir = IniFile.m_sHelpDir.Replace("C:", "file://127.0.0.1/c$")
      '' DoorBrowser.Navigate(New Uri(sHelpDir & "\" & m_Language & "\" & GuideVM.m_AddressGuide & ".html"))
      'Try
      '   Process.Start(sHelpDir & "\" & m_Language & "\" & GuideVM.m_AddressGuide & ".html")
      'Catch ex As Exception
      '   EgtOutLog("Errore nel caricamento pagina Help")
      'End Try

   End Sub

End Class