98 lines
3.8 KiB
VB.net
98 lines
3.8 KiB
VB.net
Public Class frmHelp
|
|
Public InitialUrl As String = ""
|
|
Public Sub SetInitialLocation(ByVal NewUrl As String)
|
|
InitialUrl = NewUrl
|
|
End Sub
|
|
|
|
Private Sub frmHelp_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
|
If InitialUrl <> "" Then
|
|
HelpRenderer.Navigate(InitialUrl)
|
|
Else
|
|
HelpRenderer.Navigate("http://emaculation.com/doku.php")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub GoHome_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GoHome.Click
|
|
HelpRenderer.Navigate("http://emaculation.com/doku.php")
|
|
End Sub
|
|
|
|
Private Sub GoBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GoBack.Click
|
|
If HelpRenderer.CanGoBack = True Then
|
|
HelpRenderer.GoBack()
|
|
Else
|
|
GoBack.Enabled = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub GoForward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GoForward.Click
|
|
If HelpRenderer.CanGoForward = True Then
|
|
HelpRenderer.GoForward()
|
|
Else
|
|
GoForward.Enabled = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub HelpRenderer_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles HelpRenderer.DocumentCompleted
|
|
If HelpRenderer.CanGoBack = True Then
|
|
GoBack.Enabled = True
|
|
Else
|
|
GoBack.Enabled = False
|
|
End If
|
|
If HelpRenderer.CanGoForward = True Then
|
|
GoForward.Enabled = True
|
|
Else
|
|
GoForward.Enabled = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub SearchBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles SearchBox.GotFocus
|
|
SearchBox.ForeColor = System.Windows.Forms.Control.DefaultForeColor
|
|
If SearchBox.Text = "Search..." Then
|
|
SearchBox.Text = ""
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub SearchBox_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles SearchBox.LostFocus
|
|
If SearchBox.Text = "" Then
|
|
SearchBox.Text = "Search..."
|
|
End If
|
|
SearchBox.ForeColor = Color.Gray
|
|
End Sub
|
|
|
|
Private Sub SearchBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles SearchBox.KeyDown
|
|
e.Handled = True
|
|
If e.KeyData = Keys.Return Then
|
|
SearchStart_Click(Nothing, Nothing)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub SearchBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles SearchBox.KeyPress
|
|
If Char.IsControl(e.KeyChar) = True Then
|
|
e.Handled = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub SearchBox_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles SearchBox.KeyUp
|
|
e.Handled = True
|
|
End Sub
|
|
|
|
Private Sub SearchBox_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SearchBox.TextChanged
|
|
If SearchBox.Text <> "" Then
|
|
SearchStart.Enabled = True
|
|
ElseIf SearchBox.Text = "Search..." Then
|
|
SearchStart.Enabled = False
|
|
Else
|
|
SearchStart.Enabled = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub SearchStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchStart.Click
|
|
Dim SearchTerm As String = SearchBox.Text
|
|
Dim SearchUrl As String = "https://www.emaculation.com/doku.php/mac_emulation?do=search&q="
|
|
HelpRenderer.Navigate(SearchUrl + SearchTerm)
|
|
End Sub
|
|
|
|
Private Sub frmHelp_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
|
|
HelpRenderer.Height = Me.ClientSize.Height - NavigationBar.Height
|
|
End Sub
|
|
End Class |