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

怎样在VB中调用.chm帮助文件?

编辑:说三道四文库 发布时间:2017-05-28 03:00
HTML文档下载 WORD文档下载 PDF文档下载
我想在VB中调用.chm帮助文件,请高手指点。按一下command控件就显示自己编的.chm帮助文件。
如何调用chm帮助文件
我把帮助做成chm格式,请问如何在VB中调用?  
---------------------------------------------------------------  
 
在VB中调用CHM  帮助的几种方法    
 
一个应用程序不论编制得如何完美,在很多情况下用户还是会对如何使用它提出问题。  Visual  Basic  提供了对两种不同帮助系统的支持:传统的  Windows  帮助系统  (WinHelp)和新的  HTML  帮助(CHM帮助)。当我们制作好帮助文件后,就需要在程序的适当位置编写代码进行调用,本文将讨论几种在程序中调用CHM帮助文件的方法。    
方法一 使用F1键:  
这种方法最简单,只需如下代码即可:  
Private  Sub  Form_Load()    
App.HelpFile  =  app.path  &  "\help.chm"  '调用与主程序同目录下的help.chm帮助文件,按F1键调用  
End  Sub  
 
方法二  使用SendKeys方法:  
Private  Sub  Form_Load()    
App.HelpFile  =  app.path  &  "\help.chm"    
End  Sub    
private  Sub  CmdHelp_Click()    
SendKeys  "{F1}"  '发送击键到活动窗口    
End  Sub  
 
方法三  使用Shell函数:  
private  Sub  CmdHelp_Click()  
Shell  "hh.exe  help.chm",  vbNormalFocus  'help.chm为指定的帮助文件,可包含路径。  
End  Sub  
 
方法四  使用HtmlHelp函数:  
先声明如下API:  
Option  Explicit  
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    
'hwndCaller指定调用者的窗口,pszFile指定要调用的文件,uCommand是发送给  HtmlHelp的命令,dwData是uCommand的参数。    
然后在过程中调用:  
private  Sub  CmdHelp_Click()  
dim  i  as  string  
i  =  app.path  &  "\help.chm"  '用变量i记录与主程序同目录下的help.chm帮助文件  
HtmlHelpA  Form1.hWnd,  i,  0,  0  
End  Sub  
 
方法五  使用ShellExecute函数:  
先声明如下API:  
Option  Explicit  
'声明API函数用于异步打开一个文档  
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  
Private  Const  SW_SHOWNORMAL  =  1  
然后在过程中调用:  
private  Sub  CmdHelp_Click()  
dim  a  as  long  
Dim  b  As  String  
b  =  App.Path  &  "\help.chm"  '用变量b记录与主程序同目录下的help.chm帮助文件  
a  =  ShellExecute  (0,  "open",  b,  "",  "",  SW_SHOWNORMAL)  
End  Sub  
以上五种方法各有优缺点,从代码的简单上讲,建议使用第二种方法。从功能上讲,建议使用第五种方法,因其不只用于打开CHM帮助文件,还可用同样的格式打开、打印或查找一个文件或文档(参见该API的说明资料)。    


               问题解决,请结贴!
可以在工程/属性/通用页框中添加你的帮助文件
'******************************************* Html help 声明
Public Const HH_DISPLAY_TOPIC = &H0
Public Const HH_SET_WIN_TYPE = &H4
Public Const HH_GET_WIN_TYPE = &H5
Public Const HH_GET_WIN_HANDLE = &H6
Public Const HH_DISPLAY_TEXT_POPUP = &HE   ' Display string resource ID or
                                          ' text in a pop-up window.
Public Const HH_HELP_CONTEXT = &HF         ' Display mapped numeric value in
                                          ' dwData.
Public Const HH_TP_HELP_CONTEXTMENU = &H10 ' Text pop-up help, similar to
                                          ' WinHelp's HELP_CONTEXTMENU.
Public Const HH_TP_HELP_WM_HELP = &H11     ' text pop-up help, similar to
                                          ' WinHelp's HELP_WM_HELP.

Public 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
'*******************************************

'调用*.chm中的某个页面

Private Sub cmd_style_Click()
    Dim hwndHelp As Long
    hwndHelp = HtmlHelp(hwnd, App.Path & "\MakeScript.chm::/eb_style.htm#1", HH_DISPLAY_TOPIC, 0)
End Sub
百度高德小米网易杭研讲师登场 SDCC 2013第二批议题发布(图) [开源推荐]JS-Git:一款纯JavaScript实现的Git项目 良心企业Lavabit、Slient Mail相继关闭,美国云安全已死? 一周观察:LXC真的是PaaS的未来吗? [企业开源系列]Google背后的开源力量 合作: “云”潮中淘金的金钥匙 Windows 8.1尚未发布 Build 9471版遭泄露网爆高清大图 Imangi创始人:我眼中的App Store 职业设计生涯:打造世界上最小巧最强大手电 【SDCC 2013】Coding For Fun活动火热招募中! YARN之上的大数据框架REEF:微软出品,是否值得期待? 创建大数据公司之前你需知晓5件事 前途渺茫,考虑出售的黑莓还能找到买家吗? 帮助开发者轻松管理项目的8款在线工具 现代Web应用开发者必备的六大技能 JavaScript异步编程好助手:Promise模式 功能解析:Red语言推出0.3.3新版本 可穿戴?可吞咽!UI和UX的悄然转变 华为刘成:讲述开发者联盟的故事 出尔反尔,Amazon咬文嚼字玩转私有云 创业公司SOASTA:曾帮助伦敦奥运会官网进行云负载测试 金山云进一步聚焦云存储 Facebook公布用户数据:美国移动用户占比78% Zynga开源服务器监控工具zPerfmon 上海海事大学王洁:打造物流教学科研应用云平台生态系统 15个步骤创立技术公司,并收获千万用户(二) HTML5发展慢热 开发者热情不减 NimbleBit孪生兄弟创始人:最后悔没有专注和扩大品牌 将对Windows形成挑战:谷歌在Chrome OS中默认支持Office 微软的企业社交大动作:Yammer发布移动SDK 谷歌开源Gumbo:纯C语言实现的HTML5解析库 ??怎样用asp程序把一段html代码转换成纯文本格式? 下拉数据窗口不能下拉是什么原因啊? 有关用VB做数据库的简单问题、ComboBox控件问题! 大家帮我看看这段程序为什么值为0 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 服务器,工作机,客户机权限问题!! 如何获知某个目录里都有哪些文件? 在括号中填上恰当的词:1.悬泉瀑布,飞欶( )期间.2.( )清( )荣( )峻( )茂,良多趣味. 油的分子是否比水的大? 如何判断用电器短路——电流为什么不走这条导线?如图,当S1,S2都闭合时,为什么电流不走R2和电压表而导致R2和电压表短路?究竟怎样判断短路?怎样判断电流是否走这条导线?如图 围绕“今天真热啊”为开头,并围绕这个中心意思写一段话. 水和油为什么不容不是说分子会运动吗最好详细解释一下谢谢啊 什么是18k金钻石戒指?求婚用的话,哪个牌子更好?求解答. 孔和轴的公差带大小是由什么决定的 油分子大,还是水分子大如题 谢谢了急! 电流是否宁走导线也不走用电器? (10)已知锌与稀硫酸反应为放热反应已知锌与稀硫酸反应为放热反应,某学生为了探究其反应过程中的速率变化,用排水集气法收集反应放出的氢气,实验记录如下:时间(min)12345氢气体积(mL)3012028 超声波在陶瓷中的传播速度是多少? 温度计制作需要考虑的因素为什么制作温度计要考虑比热容,还要考虑密度吗?(请不要说凝固点和熔点)例如水银... 《藤野先生》语句品析但一位先生却以为这客店也包办囚人的饭食,我住在那里不相宜,几次三番,几次三番地说.我虽然觉得客店兼办囚人的饭食和我不相干,然而好意难却,也只得别寻相宜的住 轮廓要素和中心要素的形位公差标注有什么区别? 如图,△ABC和△CDE都是等边三角形,求证AD=BE 青城山里面的青青园宾馆在地震中倒了吗如题,不知道有没有人知道这件事啊 显微镜观察到细胞标本偏左上方 怎么解决 7.8. 当机体受到伤害性刺激时,神经系统和内分泌系统都有哪些反应?有何生理意义? 用水重结晶乙酰苯胺,在溶解过程中有无油珠状物出现?如有油珠出现应如何处理? 超声波在不同物质中的传播速度有何规律( )[exam=254] 天文望远镜的物镜口径做得较大,是为了--------------------?如题啊.thanks you 在对肿瘤的免疫监视中,起重要作用的细胞是什么? 超声波的纵波和横波在不同介质中的传播速度? 阅读下面材料 写出寓意山野里,一株骄傲的白玉兰芳香四溢. 啄木鸟总是啄个不停.“太吵了,赶快离开!你打扰了我的美梦.”白玉兰说.啄木鸟默默的离开了.白玉兰只留下一群如花般的黄鹂相 免疫具有( )抗原侵入,( )体内衰老,死亡或损伤的细胞,监视,( )和( )体内产生的异常的功能 18k金钻石是什么意思 阅读下列材料,然后写出其中包含的寓意小姑娘又问苹果:“苹果,你为什么没有长成小瓣呢?是为了让我一个人独吃吗?”“不!”苹果回答,“是为了让你能完整地把我奉献出去.” 下列属于免疫监视功能的是A.呼吸道粘膜纤毛清除异物的作用B.人体随时清除体内的肿瘤细胞C.胃酸杀死胃内的细菌D.噬食体内衰老、死亡、损伤的细胞 请问手表的18K金与间金有什么不同,18K金是个什么概念? 阅读下列材料,写出爸爸的意思.女儿将一位生病的同学送到医院,诊断治疗后又将同学送回家,回到自己家里时才想其一件事.女儿对爸爸说:“爸,我忘了跟您买生日礼物.”爸爸笑着对女儿说: 细胞免疫最终怎么清除抗原的?说到了使靶细胞裂解使其中的抗原暴露出来,然后怎么清除抗原?是进行体液免疫么?还是T细胞又怎样了? 麻烦高人帮我解释一下这个公式是怎么来的IB=UCC-UBE/RB+(1+β)RE 这个除以βRE是什么意思啊,另外 这个UCC-UBC/RB+RE得到的是IE吗? 求问橡胶止水带需要检测哪些项目? 藤野先生一文中最能表现鲁迅对藤野先生怀念之情的词语是 18k素金是什么意思? 根据意思写“一”字开头的成语: 如何理解《藤野先生》一文中的“也许”一词? 是表示金的含量吗? 写“一”字开头的成语1、比喻互相配合,互相呼应.2、形容一水之隔,往来方便.3、知道、理解得不够全面透彻.4、一眼就可以看清楚.5、形容十分规矩、严肃.如:形容阅读速度很快。一目十行 关于尺寸公差带的问题 我想要加工一个Φ190H8Φ150H8的零件 请问公差带分别是多少 以下是两个方法.希望最好能解释下意思猴子吃桃问题.猴子第一天摘下若干个桃子,当即吃了一半,还不过瘾,又多吃了一个.第二天早上又将剩下的桃子吃掉一半,又多吃了一个.以后每天早上都 写几个“一”字开头的成语. 秋天的落叶作文,五年级350到400字左右, 煤炭转化为二氧化碳,煤灰等,有没有新物质形成? 仿照例子写出词语例:亮晶晶明___ 毛____ 软______ 喜_______ 凉________ 350字秋天的落叶作文怎么写 MBTI职业性格测试看不懂, 按要求或仿照例子写出有关词语描写天空的四字词语例:ABCC银光闪闪:( )( )( )( )例:ABAC自私自利:( )( )( )( )例:AABC奄奄一息:( )( )( )( ) 秋天的 作文600字最好是秋天的落叶10月25日前要 晚上喝蜂蜜水好吗?晚上睡前喝杯蜂蜜水对身体有好处吗? 仿照例子分别写词语1.例:白雪—雪白 2.例:相互—互相急用啊 酸性的条件下 钠离子 铝离子 氯离子 硫酸根离子能共存吗 喝药时能用蜂蜜水吗 铁离子和SCN根离子能共存吗 超声波的水中传播速度 超声波(横波或纵波)在水、有机玻璃、钢中的传播速度是多少,随温度变化,有无公式? ‘悬泉瀑布,飞漱其间.’中悬泉瀑布的逐字意思和四字总体意思, 函数y=x^2的图像平移向量a,得到函数解析式是y=(x+1)^2+2,那么a等于? 用电器两端接上导线,为什么电流不走用电器,只走导线ne
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘