说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在VB中怎么调用CHM的格式帮助文件.

编辑:说三道四文库 发布时间:2017-05-28 03:01
HTML文档下载 WORD文档下载 PDF文档下载
在VB中怎么调用CHM的格式帮助文件.
HWND HtmlHelp(HWND hwndCaller, 
LPCSTR pszFile, UINT uCommand, DWORD 
dwData);

---- 按照说明,参数hwndCaller是窗口的句柄,pszFile是HTML帮助文件的路径和名称, uCommand表明执行的操作,dwData是uCommand参数所必需的值。它包含在哪个文件中,如何将它转为VB的格式呢?仔细对帮助文件进行研究,帮助文件中提到:HTMLHELP函数被包含在hhctrl.ocx文件中。于是就得到了HTMLHELP函数在VB中的声明: 
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

如果我要根据窗体上的内容来,直接跳到帮助文件的某一页,怎么办?
方法一(通过调用帮助的api 推荐~)
Private Declare Function HtmlHelpA Lib "hhctrl.ocx" (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Long) As Long

Private Sub Command1_Click()
    HtmlHelpA Me.hWnd, "C:\WINDOWS\HELP\CALC.CHM", 0, 0 '注意路径
End Sub

方法二(通过运行chm文件)
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

ShellExecute 0, "open", "C:\WINDOWS\HELP\CALC.CHM", 0, 0, 1
最简单的方法,不久前刚试过
private sub command1_click()
  shell "hh.exe 文件名.chm"
end sub
最简单的方法,不久前刚试过
private sub command1_click()
  shell "hh.exe 文件名.chm"
end sub

hh.exe 在c:\windows里,可以copy到你程序所在的目录里
不用copy hh.exe了,只要这样:
声明API ShellExecute:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

在要执行CHM的地方写:
Dim ret
ret=ShellExecute(Me.hWnd,"Open",App.Path & "\Example.chm",vbNullString,vbNullString,vbNull)
就可以了。
最简单的方法,不久前刚试过
private sub command1_click()
  shell "文件名.chm"
end sub
不行呀,总是第一页,如果我要一点击就进入第10页,我做法为:
Private Sub Command1_Click()
    HtmlHelpA Me.hWnd, "C:\WINDOWS\HELP\CALC.CHM", 1, 10 
End Sub
可不能实现?怎办?
试试看(一)
Private Sub Command1_Click()
    HtmlHelpA Me.hWnd, "C:\WINDOWS\HELP\CALC.CHM::xxx.htm", 1, 10 
End Sub
试试看(二)
Private Sub Command1_Click()
    ShellExecute 0, "open", "C:\WINDOWS\HELP\CALC.CHM::xxx.htm", 0, 0, 1
End Sub

注:xxx.htm 是你想调的网页
Private Declare Function htmlhelp Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal hwnd As Long, ByVal lpHelpFile As String, ByVal wCommand As Long, ByVal dwData As Long) As Long

'显示指定的帮助文件(STRHELPFILENAME[CHM类型])中的指定网页(STRHTMLFILENAME),成功返回帮助窗口句柄,错误返回0
Public Function fun_ShowHelp(ByVal hwnd As Long, ByVal strHelpFileName As String, Optional ByVal strHtmlFileName As String) As Long
    Dim lRet As Long
    If IsMissing(strHtmlFileName) Then
        lRet = htmlhelp(hwnd, strHelpFileName, 0, 0)
    Else
        lRet = htmlhelp(hwnd, strHelpFileName & "::/" & strHtmlFileName, 0, 0)
    End If
    fun_ShowHelp = lRet
End Function
精简Delphi数据库应用系统 精简Delphi数据库应用系统-定制BDE驱动程序 精简数据库应用系统-Delphi资料 开 发 基 于ORACLE7 数 据 库 的 管 理 信 息 系 统-Delphi资料 开 发AS/400 应 用 系 统: PB5 与Delphi3 的 比 较 利 用Delphi 开 发 响 应 用 户 输 入 的 数 据 库 查 询Web Server 程 利用Delphi开发响应用户输入的数据库查询Web Server程序 利用Tbatch组件完成数据批处理-Delphi资料 如 何 恢 复Sybase SQL Anywhere 的 数 据 库-Delphi资料 如何捕捉KEY VIOLATION等错误-Delphi资料 如何得到SQL返回的计算结果-Delphi资料 如何动态的读取Delphi中的PopupMenu的Caption ? 如何动态设置DBGRID。比如,动态设置DBGRID的COLUMNS。及如何在数值数据格式成千分位 如何返回BDE的状态信息?-Delphi资料 如何控制关键字段的重复输入及报错-Delphi资料 如何设置Microsoft SQL Server 全文索引服务 ?-Delphi资料 如何设置多用户环境的PARADOX数据库-Delphi资料 如何实现在一个Dbgrid中显示多数据库-Delphi资料 如何用SQL查询日期型字段?-Delphi资料 如何在数据库中存放avi文件-Delphi资料 如何在注册表中注册BDE-Delphi资料 筛选数据-Delphi资料 实现不同数据库系统之间的数据转移-Delphi资料 使 用WISQL32 同 时 访 问SQL SERVER 和SYBASE 数 据 库Delphi资 使用Session构件可以在打开有密码的库时不用输入密码-Delphi资料 使用SQL实现字段数据的模糊查询-Delphi资料 数据表的索引被损坏了怎么办-Delphi资料 数据库的密码、日期显示-Delphi资料 数据库应用程序开发中图像数据的存取技术-Delphi资料 数据库中图像数据的存取技术-Delphi资料 数据库转换-Delphi资料 oracle8.1.7的数据库备份文件怎样恢复到oracle8i上 ? 怎样屏蔽flash的右键菜单,弹出自己的菜单? 我想问一下有没有不写入数据库用ASP代码可以查看当天的浏览访问量 灌水区的水越来越没质量了,你觉得呢? 按钮消息响应的问题,详细请看进去再看 异常详细信息: System.Data.OleDb.OleDbException: 无法启动应用程序。工作组信息文件丢失,或是已被其它用户以独占方式打开。 求助,网页制作0=={=========>(在线等,送分) 谁能告诉我《C++Builder 5编程实例与技巧》这本书在哪儿可以下载到完整的电子版!高分感谢! 请教如何将一张图片旋转? 关于流媒体和vc++的结合,高人请进!! 关于DataOutputStream和DataInputStream求教 会DirectX的一起来讨论! 4444 菜鸟求助~~~ help me 刚才发现www2.google.com www3.google.com也不能访问了,见鬼:( 我想停止window2000[域控制器]的389端口,但我不知服务是不是LDAP,因为我想占用端口389 各位!帮个忙! 帮忙啊!因为很着急,只有在技术论坛发了,大家原谅 电子地图 上海的程序员都在哪里"混"? 如何最小化所有窗口? 你们有谁读大学一学年要交近1000元书籍费? 帮忙啊!因为很着急,只有在技术论坛发了,大家原谅 asp中如何使用ADO实现对sql数据库操作 求助,网页制作0=={=========>(在线等,送分) 我在用mcisendcommond()函数时,总提示设备类型出错,是什摸原因? 紧急求教高分相送100分。 怎么判断女孩喜欢你? CSDN的首页能登录吗? C 与 C++ 到底有什么不同?? 偶然发现的mysql排序问题 是否有专业PL/SQL编辑器(能够提供类似VC的类成员或方法提示、格式自动排版等功能)可以下载 ?? 关于条码编程 非常急,请各位帮忙想想办法 怎样实现同一窗口的不同字体大小的显示 请问谁有HTTP代理服务器内容检查与病毒检查的代码 在程序流程中要等待几秒,应该调用什么函数啊 请问各位高手,哪有C++ Builder 教程可供下载? 有没有办法使用VC控制键盘做Reset动作,即键盘自测的动作。 怎样建立一个企业的WEB网站 高程考试寻求帮助 新店开张,欢迎光临 考试论证 四级挂了,考试挂了!这是不是大学底谷~~~~~~~~~~什么是高潮? Windows 2000 服务器,工作机,客户机权限问题!! 如何获知某个目录里都有哪些文件? FastReport好还是ReportBuilder好? 高手们!帮忙看一下这段源程序! cdo编程高手看过来! ★★★TQuery的RequestLive=true时查询日期的问题★★★ 油的分子是否比水的大? 如何判断用电器短路——电流为什么不走这条导线?如图,当S1,S2都闭合时,为什么电流不走R2和电压表而导致R2和电压表短路?究竟怎样判断短路?怎样判断电流是否走这条导线?如图 塑料袋为什么漏油不漏水我们常用塑料袋装一些油炸食品,然而放在桌子上经常有渗出的痕迹!我觉得应该是露出来的 但是要是装上水就没有问题了桌面上也没有水的痕迹! 真不明白这是什 水和油为什么不容不是说分子会运动吗最好详细解释一下谢谢啊 什么是18k金钻石戒指?求婚用的话,哪个牌子更好?求解答. 藤野先生中哪些语句体现了鲁迅的爱国主义 油分子大,还是水分子大如题 谢谢了急! 电流是否宁走导线也不走用电器? 豆芽放在塑料袋里一段时间后塑料袋里有水珠?将一包吸干水分的新鲜豆芽装在塑料袋里.密封放在黑暗环境中12个小时后,塑料袋壁上有水珠,用温度计测量豆芽的温度,发现比周围环境的温度高 超声波在陶瓷中的传播速度是多少? 温度计制作需要考虑的因素为什么制作温度计要考虑比热容,还要考虑密度吗?(请不要说凝固点和熔点)例如水银... 为什么用塑料袋套住脚在被子里睡一觉后 塑料袋里有水珠 轮廓要素和中心要素的形位公差标注有什么区别? 如图,△ABC和△CDE都是等边三角形,求证AD=BE 甲中塑料袋内的水珠是由于蒸腾作用和______产生的 7.8. 如图,△ABC和△CDE是等边三角形.求证BE=AD其中,BC是直线,AE不是直线 在藤野先生这篇课文中,作者的思想感情具体在哪里体现 超声波在不同物质中的传播速度有何规律( )[exam=254] 有没有防震防撞的塑料包装温度计,就是在原有温度计外再包一层塑料会导致读数失真吗 藤野先生选读文章,这30—32段传达出作者怎样的情感,从那些词语可以看出“万岁!”他们都拍掌欢呼起来.  这种欢呼,是每看一片都有的,但在我,这一声却特别听得刺耳.此后回到中国来,我看 超声波的纵波和横波在不同介质中的传播速度? 鱼吃了塑料温度计!急!急!急!我养的猫鱼长度约40公分,把鱼缸内直径4CM的塑料温度计吞了.哪位大师指点一下.回答的好.分都给你们了.谢谢啊. 宇宙的空间存在什么气体,人不穿宇航服会即时死亡吗?宇宙是一切生命都不能生存吗?人如果流失于宇宙中,会即时死亡吗?还是因没痒气过分来钟才死亡.死亡飘浮于宇宙尸体会腐烂吗? 18k金钻石是什么意思 道路转弯半径指的是内径、外径,还是中线? 人不穿宇航服,在宇宙中能活多久? 请问手表的18K金与间金有什么不同,18K金是个什么概念? 7,8,9, 人在太空中不穿宇航服会爆炸吗? 麻烦高人帮我解释一下这个公式是怎么来的IB=UCC-UBE/RB+(1+β)RE 这个除以βRE是什么意思啊,另外 这个UCC-UBC/RB+RE得到的是IE吗? 冷水机组水管中水流一般是层流还是湍流我就是想算下沿程阻力系数, 消防车有哪些 18k素金是什么意思? 天气热了,开冷水机的模具上的水管外会有水珠,容易流在模具上.有什么好办法呢 常见的消防车有哪些? 是表示金的含量吗? 宇宙飞船在太空中如何变轨,加速呢?就是,如果是通过喷气的话,那么在真空中,没有空气的反作用力,为什么会加速呢? 请问这是什么消防车? 以下是两个方法.希望最好能解释下意思猴子吃桃问题.猴子第一天摘下若干个桃子,当即吃了一半,还不过瘾,又多吃了一个.第二天早上又将剩下的桃子吃掉一半,又多吃了一个.以后每天早上都 在一个长6分米,高4分米的长方体玻璃缸中装了些水,把一个正方体铁块浸没在水中水面上升了2.5厘米,这个正方体铁块的体积是( )立方厘米 藤野先生句子赏析 最后一句 煤炭转化为二氧化碳,煤灰等,有没有新物质形成? 宇宙飞船怎样在太空中加速、转弯? 《藤野先生》中“中国是弱国.也无怪他们疑惑”这句的赏析 350字秋天的落叶作文怎么写 MBTI职业性格测试看不懂, 宇宙飞船加速问题宇宙飞船的能量可以用核反应提供吗?是不是缺少控制它的材料? 秋天的 作文600字最好是秋天的落叶10月25日前要 晚上喝蜂蜜水好吗?晚上睡前喝杯蜂蜜水对身体有好处吗? PU管(工业的那种气动管)可以作为饮用水管吗?本人采用的是4毫米的.那样子可以吗?它有没有含有害物质?请高人回答. 酸性的条件下 钠离子 铝离子 氯离子 硫酸根离子能共存吗 喝药时能用蜂蜜水吗 为什么塑料袋不渗水?有些东西渗水如卫生纸,有些东西不渗水如塑料袋. 超声波的水中传播速度 超声波(横波或纵波)在水、有机玻璃、钢中的传播速度是多少,随温度变化,有无公式? 水管装上软管怎么就变小了好多 函数y=x^2的图像平移向量a,得到函数解析式是y=(x+1)^2+2,那么a等于? 用电器两端接上导线,为什么电流不走用电器,只走导线ne 为什么塑料袋里盛水,水不会渗透出来?请问一楼 为什么塑料袋的高分子结构没有提供给水分子可以穿透的间隙?请问三楼 为什么水分子比塑料袋的间隙大,怎么知道的?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘