Demetrio Cassarino
47 lines
2.0 KiB
VB.net
47 lines
2.0 KiB
VB.net
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
|