1.先建立一个.h头文件,定义一些常量,如下
#define 总体介绍 0
#define 字段关联 1
……
其中“总体介绍”是别名,0是你的HelpContextID
2、然后在html help workshop 中在左边的垂直按钮中第四个按钮:htmlhelp api information,点击map-header file,找到那个头文件;在alias中add,在第一个文本框中,输入你头文件中的别名,如:“总体介绍”,在下面的下拉框中,输入实际对应的哪个.htm文件。
#define 总体介绍 0
#define 字段关联 1
……
其中“总体介绍”是别名,0是你的HelpContextID
2、然后在html help workshop 中在左边的垂直按钮中第四个按钮:htmlhelp api information,点击map-header file,找到那个头文件;在alias中add,在第一个文本框中,输入你头文件中的别名,如:“总体介绍”,在下面的下拉框中,输入实际对应的哪个.htm文件。
解决方案 »
- VB是不是所有语言中最拉圾的一门语言?
- 怎样用ADO或者其他一些办法,在打开某个.MDB文件时为独占,不能复制粘贴该文件。
- 如何在窗体上显示超级连接,点击后打开ie显示相应网站?还有电击后打开outlook发送信件。
- 从串口读入8位二进制数据转换成数字显示到表格中
- 错误2147217883,谁能解决?
- 高分:如何对一个Frame中的所有控件进行循环? 急!!
- 如何把文本文件中的光标移动到文本的最后?
- 急!!当我从指定路径读取JPG格式的图片时,LOADIMAGE()总是返回零,,,,,
- 如何在VB中加载flash?
- 如何用pictureBox显示对打印文本的预览,谢谢指教,来那分吧
- 我是新手,想自学VB,请问各位高手VB入门的书籍有哪些?
- 当Linux作为FTP服务器时,使用VB的Inet控件连接,出现了问题,大侠能帮着看看吗?谢谢
谢谢你,按你的方法已其本成功,但还有一点小问题,现将代码贴上,请提点。
Private Sub mnuHelpContents_Click()
Dim nRet As Integer
If Len(App.HelpFile) = 0 Then
MsgBox "无帮助文件", vbInformation, Me.Caption
Else
On Error Resume Next
nRet = htmlhelp(Me.hWnd, App.HelpFile, 0, 0)
If Err.Number <> 0 Then
MsgBox Err.Description
End If
End If
End Sub
经检测:在此出现了溢出错误(overflow),应如何解决?在其它地方按F1已出现相应在主题。
另外:我想请你把information types的用途及添方法再加一点后,我想将它归入FAQ,以供初学者学习的方便。还有,chenxin790311(逍遥鱼)说的我虽然不懂,也未用到,但为了给答题者以资鼓励,给一点点分(比如1分,2分),你没意见吧?!
If Dir(AppPath & "help\hh.exe") <> vbNullString Then
If Dir(AppPath & "Help\jxzzs.chm") = vbNullString Then
MsgBox "帮助文件丢失," & AppPath & "Help\jxzzs.chm", vbInformation, "提示"
Exit Sub
End If
Shell AppPath & "help\hh.exe " & AppPath & "Help\jxzzs.chm", vbNormalFocus
Else
If Dir(AppPath & "Help\hh.exe") = vbNullString Then
MsgBox "帮助支持文件丢失," & AppPath & "Help\hh.exe", vbInformation, "提示"
End If
End If
Exit Sub
ErrorHandler:
If Err Then
MsgBox Err.Description, vbInformation, "提示"
Err.Clear
End If
End Sub
这是我使用帮助文件时候的代码。可能方法不一样吧。我制作帮助文件的时候不跟应用程序发生关系啊。只是做好以后用hh.exe调用一下就好了
App.HelpFile = 带路径的帮助文件名