Initial

EDOKA/Utils/HHctrlapi.vb

@@ -0,0 +1,82 @@
+Public Class HHctrlapi
+
+    Dim DummyControl As New Control()
+    Dim MyHelpProvider As New HelpProvider()
+
+    Const SW_MAXIMIZE As Integer = 3
+    Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Int32, ByVal ByValnCmdShow As Int32) As Int32
+
+
+    Public Sub New()
+        MyHelpProvider.HelpNamespace = Application.StartupPath + "\EDOKA-Hilfe.chm"
+    End Sub
+
+    Public Function ShowHelpTopic()
+        Help.ShowHelp(DummyControl, MyHelpProvider.HelpNamespace)
+    End Function
+
+    Public Function ShowHelpToc(ByVal context As String)
+        Help.ShowHelp(DummyControl, MyHelpProvider.HelpNamespace, context + ".htm")
+    End Function
+
+    Public Function ShowHelpIndex()
+        Help.ShowHelpIndex(DummyControl, MyHelpProvider.HelpNamespace)
+    End Function
+
+
+    Public Function ShowSearch()
+        Help.ShowHelp(DummyControl, MyHelpProvider.HelpNamespace, HelpNavigator.Find, "")
+    End Function
+
+    'm_pszHelpFilePath = Application.StartupPath + "\benudok.chm"
+    'Dim searchit As HH_FTS_QUERY
+    'searchit.cbStruct = Len(searchit)
+    'searchit.fUniCodeStrings = 0&
+    'searchit.pszSearchQuery = ""
+    'searchit.iProximity = 0&
+    'searchit.fStemmedSearch = 0&
+    'searchit.fTitleOnly = 0&
+    'searchit.fExecute = 0&
+    'searchit.pszWindow = ""
+    'HTMLHelp_Search(0&, m_pszHelpFilePath, HH_DISPLAY_SEARCH, searchit)
+
+
+    'Public Const HH_DISPLAY_TOPIC As Short = &H0    ' select last opened tab, [display a specified topic]
+    'Public Const HH_DISPLAY_TOC As Short = &H1      ' select contents tab, [display a specified topic]
+    'Public Const HH_DISPLAY_INDEX As Short = &H2    ' select index tab and searches for a keyword
+    'Public Const HH_DISPLAY_SEARCH As Short = &H3   ' select search tab and perform a search
+    'Public Const HH_HELP_CONTEXT As Short = &HF     ' display mapped numeric value in dwData
+
+
+    'Private Const HH_FTS_DEFAULT_PROXIMITY = (-1)
+    'Public Structure HH_FTS_QUERY
+    '    Public cbStruct As Integer ' Sizeof structure in bytes.
+    '    Public fUniCodeStrings As Boolean ' TRUE if all strings areunicode.
+    '    Public pszSearchQuery As String ' String containing the search query.
+    '    Public iProximity As Long ' Word proximity.
+    '    Public fStemmedSearch As Boolean ' TRUE for StemmedSearch only.
+    '    Public fTitleOnly As Boolean ' TRUE for Title search only.
+    '    Public fExecute As Boolean ' TRUE to initiate the search.
+    '    Public pszWindow As String ' Window to display in
+    'End Structure
+
+    'Private m_pszHelpFilePath As String
+
+    '<System.Runtime.InteropServices.DllImport("hhctrl.ocx", CharSet:=System.Runtime.InteropServices.CharSet.Auto)> _
+    'Public Shared Function HtmlHelp(ByVal hwndCaller As System.Runtime.InteropServices.HandleRef, <System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.LPTStr)> ByVal pszFile As String, ByVal uCommand As Int32, ByVal dwData As Int32) As Int32
+
+    'End Function
+
+    'Public Declare Function HTMLHelp_BaseCall Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal hWnd As IntPtr, ByVal lpHelpFile As String, ByVal uCommand As Int32, ByVal dwData As Int32) As Int32
+
+    'Public Declare Function HTMLHelp_Search Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal hWnd As Long, ByVal lpHelpFile As String, ByVal wCommand As Long, ByRef dwData As HH_FTS_QUERY) As Int32
+
+    '        HTMLHelp_BaseCall(IntPtr.Zero, Application.StartupPath + "\benudok.chm", HH_DISPLAY_TOPIC, 0)
+
+
+    '        HTMLHelp_BaseCall(IntPtr.Zero, Application.StartupPath + "\benudok.chm", HH_DISPLAY_INDEX, 0)
+
+
+
+
+End Class