Help file

I need to add a help file to this application I am working on. Other than telling the project where the help file is, I have no clue how to compile a help file. Can anyone assist in this endeavor.

Thanks,

Bryan

Visual basic comes with two tools (on the cd) a help compiler and an html help compiler.

This is new to me also Spetnik....what are they called and were are they located on the CD?

Thanks
ErocM

Download the HTML Help Workshop from MS. There is a link in
the useful links post in Tutor's Corner (unless they have moved
the page yet again).

its like finding a needle in a hay stack !!

I looked and I looked....but I never found !

wow....I spoke to soon, I found it minutes after I posted this....but on Microsoft's site....here it is for those who care !


msdn.microsoft.com/library/default.asp?url=/library/en-us/htmlhelp/html/hwMicrosoftHTMLHelpDownloads.asp (http://msdn.microsoft.com/library/default.asp?url=/library/en-us/htmlhelp/html/hwMicrosoftHTMLHelpDownloads.asp)

It was right where I said it was.
http://www.visualbasicforum.com/showthread.php?s=&postid=91910#post91910

You might need this to call your help file ... found on net

=================================
Private Sub mnuHelpContents_Click()

Dim strFile As String
Dim objHelp As CHelp

Set objHelp = New CHelp

strFile = App.Path & "\myhelp.chm"

Call objHelp.Show(strFile, "Index")

Set objHelp = Nothing
End Sub
=================================
along with this class mod.
Option Explicit


'// Constant declarations
Private Const HH_DISPLAY_TOPIC = &H0
Private Const HH_HELP_CONTEXT = &HF

'// API declaration
Private Declare Function HtmlHelp Lib _
"hhctrl.ocx" Alias "HtmlHelpA" _
(ByVal hwndCaller As Long, _
ByVal pszFile As String, _
ByVal uCommand As Long, ByVal dwData As Long) _
As Long

Public Sub Show(NewFile As String, _
Optional WindowPane As String, Optional ContextID)

Dim strFile As String
Dim hRet As Long

strFile = NewFile

If Len(WindowPane) Then
'you need to include > symbol with the file name
strFile = Trim(strFile) & ">" & Trim(WindowPane)
End If

If IsMissing(ContextID) Then
hRet = HtmlHelp(0, strFile, HH_DISPLAY_TOPIC, ByVal 0&)
Else
hRet = HtmlHelp(0, strFile, HH_HELP_CONTEXT, ContextID)
End If
End Sub
================================