mirror of
https://github.com/staxrip/staxrip.git
synced 2026-10-22 09:23:18 +08:00
Frank Skare
117 lines
3.5 KiB
VB.net
117 lines
3.5 KiB
VB.net
|
|
Imports StaxRip.UI
|
|
|
|
Public Class HelpForm
|
|
Inherits FormBase
|
|
|
|
#Region " Designer "
|
|
<System.Diagnostics.DebuggerNonUserCode()>
|
|
Protected Overloads Overrides Sub Dispose(disposing As Boolean)
|
|
If disposing AndAlso components IsNot Nothing Then
|
|
components.Dispose()
|
|
End If
|
|
MyBase.Dispose(disposing)
|
|
End Sub
|
|
|
|
Private components As System.ComponentModel.IContainer
|
|
|
|
Friend WithEvents Browser As System.Windows.Forms.WebBrowser
|
|
<System.Diagnostics.DebuggerStepThrough()>
|
|
Private Sub InitializeComponent()
|
|
Me.Browser = New System.Windows.Forms.WebBrowser()
|
|
Me.SuspendLayout()
|
|
'
|
|
'Browser
|
|
'
|
|
Me.Browser.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.Browser.Location = New System.Drawing.Point(0, 0)
|
|
Me.Browser.Name = "Browser"
|
|
Me.Browser.Size = New System.Drawing.Size(1218, 791)
|
|
Me.Browser.TabIndex = 0
|
|
'
|
|
'HelpForm
|
|
'
|
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(288.0!, 288.0!)
|
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
|
|
Me.ClientSize = New System.Drawing.Size(1218, 791)
|
|
Me.Controls.Add(Me.Browser)
|
|
Me.KeyPreview = True
|
|
Me.Margin = New System.Windows.Forms.Padding(6, 6, 6, 6)
|
|
Me.Name = "HelpForm"
|
|
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
Sub New()
|
|
InitializeComponent()
|
|
RestoreClientSize(50, 35)
|
|
Icon = g.Icon
|
|
End Sub
|
|
|
|
Private DocumentValue As HelpDocument
|
|
|
|
Property Doc() As HelpDocument
|
|
Get
|
|
If DocumentValue Is Nothing Then
|
|
Dim path = Folder.Temp + Guid.NewGuid.ToString + ".htm"
|
|
AddHandler g.MainForm.Disposed, Sub() FileHelp.Delete(path)
|
|
DocumentValue = New HelpDocument(path)
|
|
End If
|
|
|
|
Return DocumentValue
|
|
End Get
|
|
Set(Value As HelpDocument)
|
|
DocumentValue = Value
|
|
End Set
|
|
End Property
|
|
|
|
Overloads Shared Sub ShowDialog(heading As String, tips As StringPairList)
|
|
ShowDialog(heading, tips, Nothing)
|
|
End Sub
|
|
|
|
Overloads Shared Sub ShowDialog(heading As String, tips As StringPairList, summary As String)
|
|
Dim form As New HelpForm()
|
|
form.Doc.WriteStart(heading)
|
|
|
|
If Not summary Is Nothing Then
|
|
form.Doc.WriteParagraph(summary)
|
|
End If
|
|
|
|
form.Doc.WriteTips(tips)
|
|
form.Show()
|
|
End Sub
|
|
|
|
Protected Overrides Sub OnFormClosed(e As FormClosedEventArgs)
|
|
Dispose()
|
|
End Sub
|
|
|
|
Sub Browser_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles Browser.DocumentCompleted
|
|
WebBrowserHelp.ResetTextSize(Browser)
|
|
End Sub
|
|
|
|
Sub Browser_Navigated(sender As Object, e As WebBrowserNavigatedEventArgs) Handles Browser.Navigated
|
|
If Browser.DocumentTitle <> "" Then
|
|
Text = Browser.DocumentTitle
|
|
ElseIf File.Exists(e.Url.LocalPath) Then
|
|
Text = e.Url.LocalPath.Base
|
|
End If
|
|
End Sub
|
|
|
|
Shadows Sub Show()
|
|
MyBase.Show()
|
|
|
|
If Not DocumentValue Is Nothing Then
|
|
DocumentValue.WriteDocument(Browser)
|
|
End If
|
|
End Sub
|
|
|
|
Sub Browser_Navigating(sender As Object, e As WebBrowserNavigatingEventArgs) Handles Browser.Navigating
|
|
If e.Url.AbsoluteUri.StartsWith("http") Then
|
|
e.Cancel = True
|
|
g.ShellExecute(e.Url.ToString)
|
|
End If
|
|
End Sub
|
|
End Class
|