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

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

编辑:说三道四文库 发布时间:2017-11-22 05:25
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
2012专利排行榜 IBM位列第一、Google增长最快! 微软赞黑客并称Windows RT越狱非安全漏洞所致 周报第46期:GitHub历史上最糟糕宕机事故回放及反省 著名计算机黑客Aaron Swartz自杀身亡 移动周报:移动互联网行业技术趋势前瞻 旁门左道:让移动游戏下载量暴涨的邪门功夫 可植入身体:“可穿戴计算”时代来临 Web服务器份额:Apache仍居首,Nginx将超IIS 防税务欺诈:挪威财政部将开源收银机代码 响应式设计实战:3人+1.5个月 IE10优化版cnBeta诞生记 不听乔布斯劝告:“不专心”的Google照样干得好 躲过一劫!苹果不锁杂志类APP介绍截图 Oracle发布软件更新修复Java漏洞 设计师将吞噬工程师吗? 开源产品系列:小巧灵活的Web框架web.py Windows Server 2012 VHDX格式揭秘 Rovio将赶超Zynga 成为全球最受欢迎游戏公司 Netflix基于AWS的大数据平台Hadoop架构解析 微软开始提供Windows Embedded测试版系统 Aaron Swartz自杀原因存疑 引发互联网连锁反应 重金吸引开发者 BlackBerry10应用36小时增1.5万 把数据中心搬入“空间站” Dell和Intel对OpenStack新兴公司Mirantis投资 快讯:马云自5月10日起不再担任CEO职务 Web工程师必备的43款可视化工具 中国电信天翼开放平台2012年度数据:API调用量破亿 iOS走向开放:UC浏览器iPhone版实现云下载 让Dreamweaver支持cshtml (MVC Razor环境) iOS付费榜首:日历应用Fantastical开发者专访 玩转AdMob移动广告:捕鱼达人的猎财之道 12306抢票插件拖垮GitHub 我的项目改变目录后打不开,怎么办? 多CPU机器,同时可有几个线程处于运行状态? 高分求高效高斯模糊算法。。 如何判断软件是否过期 是不是运行ASP.Net应用的服务器必须安装.Net FrameWork呢?还是只要有Win2000 Server和IIS就行。 谈情说爱 清除内存中用call调用的脚本文件? 一个很老的问题,如何避免CListCtrl闪烁。 请大家给看看程序:avi视频读取和重建 研究数字图像处理应该那些知识? 图片上传并显示实例(VB+SqlServer2000) SQL语言中 怎样将CHAR型转换成INT型? 級連更新... 怎么实现回车自动跳到下一个位置 如何在光标处插入字符? CSSCLASS高手关注,我想把ListBox、DropDownList样式改为平面,而且颜色边框为1颜色不为灰色,用CssClass具体怎么写呢?越详细越好?多谢 求一招:::怎么对付那些那了代码就不给钱的家伙???? =========发誓:远离csdn!================ phpmyadmin为何安装不成功? 谁有crystal reports的电子书。 这个radio的返回值是什么? 离开csdn,公布密码!!!!!!!!! 新手!求界面问题的答案! javascript面相对象的编程 IMail邮件系统的问题 七月七,我不在她身旁. 可是很想她.我爱她. 高分!求一简单问题。 今天七月七了,代表所有单身人员向全体女单身同胞问好,同时也祝成双成对的人永远快乐!! 请问php中二维数组怎么定义和初始化? 难题---SQL Panel2.Width/2;应该怎样改 求: Rational XDE 2003 (带破解的),分不够可以再加,要多少给多少,很急! 这个存储过程怎样调用? 在有限区域中打印文本,文本长度若超出,则压缩间距,否则正常显示 急,高手请进! 如何重新加载select? 怎样做一个网页编辑器(windows form)大家给个思路 强烈建议 删除 {{轰动上海大学的偷拍事件录像下载地址 (yy795188 ) }}的贴子,否则版主失职 用Authorware能够作出象隐藏在框架里的菜单吗? 我的程序需要定期执行一次,怎么写呢? 请各位大侠帮忙分析分析,我大概还有300分的可用分,解决的话,全送你了(300分) 日历 这是Mysql的BUG吗--彬、斌--如何分别查询 如何利用XML中的xsl进行信息的交换 为什么我新建项目时不行? 求教:有没有象outlook一样的文件管理软件?? 怎樣利用datalink和可更新快照進行雙机數据同步一制備份?急救!急救!在線等待!! 我学flash怎样才能入门了~~!我现在不知道怎么下手~~! 请问这个ASP文件怎么转成JS文件以便调用?? 急:那位仁兄提供存取BLOB字段的代码,数据库为ORACLE. 求书?(急) 12根长方体的立柱,长2.6m,宽0.9m,给柱子涂油漆,每平方分米用油漆0.5kg.需要多少油漆? 反噬是什么意思 目送阅读答案 等底等高的圆锥与圆柱,体积相差120dm³,求圆锥和圆柱的体积各是多少? 等底等高的圆锥与圆柱,圆锥体积比圆柱少60dm³,求圆锥与圆柱的体积各是多少? 等底等高的圆柱和圆锥的体积之和是48dm³圆锥比圆柱的体积小() 一个圆柱和一个圆锥等底等高,它们的体积相差14dm³,这个圆柱的体积是多少?这个圆锥的体积是多少? <施公案>,<济公传>,<彭公案>,<三侠武义>,<古文观止>都是谁写的? 彭公案是谁写的要朝代和国籍 中国神秘古老巫术请大家介绍一下中国各个地域各个民族的神秘古老的巫术(越全面越好),谢谢. 中国的巫术具体是些什么? 涉案金额240亿 “万家购物”网络传QE3“瘦身”延期 新兴市场仍需未雨背景资料:欧盟20年大事记公安部要求公安机关对暴力伤医行为坚决吉林松原10分钟内连发两次地震 东北世界勤俭日 请从身边小事做起浦发银行设立伦敦代表处巴西“张开双臂”欢迎中国企业投资卫计委:将逐步探索新农合跨省就医结报吉林松原前郭尔罗斯蒙古族自治县发生5华媒聚焦三中全会:中国新改革“分好蛋华润万家试水跨境电商 传统零售企业转安东石油的油田环保技术正式开始施工作盘点那些控制流英雄 唐三藏居然登顶《我是女王》完全版海报当心资金缺口,促进基础设施投资车主将如何受益于机动车维修管理新规定孩子们需要的教育金卫医疗公布2013 / 2014年茶的国饮地位未来会被咖啡取代吗?李克强:加强寄递安全和监管 打造“放苹果Beats Music向泰勒·斯
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘