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

在vb中如何调用(*.chm)的帮助文件

编辑:说三道四文库 发布时间:2017-10-20 02:34
HTML文档下载 WORD文档下载 PDF文档下载
请教在vb中如何调用(*.chm)的帮助文件!请将方法详细说明,分有的是。
可能还需要加入这个
Option Explicit
Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)
htmlhelp Me.hwnd, App.Path & "\help.chm", 0, 0


在模块中加入:

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
方法很多
★为*.chm的地址
1.
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
Const SW_SHOWNORMAL = 1

Private Sub Command1_Click()
ShellExecute 0, "OPEN", "★", "", App.Path, SW_SHOWNORMAL
End Sub





2.最简单
shell "★"



3.
Private Declare Function GetActiveWindow Lib "user32" () As Long
private sub command1_click()
ShellExecute GetActiveWindow(), "Open", "★", "", 0&, 1
end sub
shell方法不行,我试过了!
我这可以,奇怪。
那其他两个应该可以吧
关注!
还有一个简单方法
app.helpfile="kk.chm"

激活时用 sendkeys "{F1}"
参考,有非常详细的说明(在VB中调用CHM 帮助的几种方法 )
http://expert.csdn.net/Expert/topic/1726/1726332.xml?temp=.3988153
别人写的引用来让你学习:

在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的说明资料)。 
谢谢大家!ok了。
VB如何改变 NT 预设的打印机? VB如何改变 Windows 预设的打印机 VB如何关闭其他程序 VB如何过滤键盘录入 VB如何获得Windows95已经运行的时间 VB如何检测左右键同时按下? VB如何检查您的电脑是否打开 ActiveDesktop? VB如何将程序建立成“启动”文件夹的捷径? VB如何将程序建立成「启动」资料夹的捷径。 VB如何结束 Shell 所启动的程序? VB如何拦截键盘输入 如何判定VB调用的一个EXE程序已经结束. VB如何判断某一个Drive是否为光碟机? VB如何清空回收站? VB如何取得汉字的区位码 VB如何去优化你的VB程序 VB如何让点阵打印机每次印出一行? VB如何设计一个可中断循环的按钮。 VB如何实现VB程序登录密码加密 VB如何使程序不出现在任务列表中 VB如何使键盘、Mouse失效(JournalPlayBack Hook) VB如何使用 DBGrid VB如何突破 TextBox 32K 的限制? VB如何为执行程序加上参数? VB如何压缩较长的全路径文件名中的路径 (Path) 字串长度? VB如何在VB中实现密码的读取 如何在VB中使用命令行参数 VB如何在内存中的指定位置取数据? VB如何在已经存在的文本的textbox添加新的一行 VB如何在資料庫中存入單引號? VB如何正确使用VB6访问Access2000数据库 用ASP如何在access中删除和添加数据(在线等待) 从一个表里进行查询,查询结果有多条记录,如何我只想要其中的某一条,请问如何取出。 请问:怎样编程来来虚拟网卡? .net目前是什么版本?在哪可以下载到新的安装盘?回答有效100分! 各位,一个重要的问题关于doc.send(false)问题(急!!) 请问:怎样编程来来虚拟网卡? WAP中如何读取手机号码?高分相送!马上给分! 有什么办法可以知道我的共享盘是什么时候创立的,并且知道人家访问过我的共享盘中的哪些文件 答题,大家帮我看看怎么让这个session的改变在页面上显示出来~~~~~~~~~~~~~~~~~~(开始写错了~~) 请教各位DX:关于iframe中显示图片的问题 xp的桌面问题 急!!注册数据库的问题 IBM软件清库存(大优惠) linux 9.0 安装后无法启动,请帮助 请问delphi怎么读取xml文件中的内容? IBM软件清库存(大优惠) 〉〉〉〉〉〉〉〉求一份对旧系统进行分析、整合、优化的文档 又是闪烁,头大! 简单问题,请紧急指导.(在线) help help : fortran + dll = ? 奇怪的现象:判断不了SQL sum()查询结果!!! 2003高考试题 设置访问表命令:“access-list 2 permit 10.0.0.0 0.0.0.255”中10.0.0.0 和 0.0.0.255分别指什么? 请问谁知道这是什么缘故啊? 如何计算cpu和memory的一般的使用上限 在delphi中使用什么报表控件打印的报表效果较好 谁知道db或dbf头文件的格式? 急急 NMFtp中我想从ftp服务器下载指定文件扩展名的文件,该怎么办? 初始化页面的时候,如何使TextMode="Password"的asp:textbox有默认值显示? IBM软件清库存(大优惠) 又是可恶的乱码问题 struts与数据库!在线等待! 如何开发asp.net程序(基于vb) vc++的链接错误 如何用程序动态的获得activex控件的方法属性事件信息 请教:使用web.xml做资源约束时如何由自己的程序来做用户验证 请问:怎样编程来来虚拟网卡? 急!创建LOOKUP的问题 如何计算cpu和memory的一般的使用上限 新问题请教! 老问题:从Excel文件里把数据导入导数据库中 有汇编玩的非常牛的人吗??? 字符串操作的简单问题 学习J2EE需要装什么软件? >>有关记录的问题??<< 请高手指教:出现“ORA12663:服务器未提供客户机要求的服务”问题,怎么解决? 大侠救我! 动态sql问题请教,谢谢 填充combobox的问题 windowsxp不能创建拨号连接 怎樣轉換時間格式 Green Light(Radio Edit)歌词谁有阿.我没钱了加不了悬赏了.麻烦好心人告诉下哈. 纸上得来终觉浅,绝知此事要躬行的意思快 《童年》中精彩片段精彩片段中要有外祖父 最好有外祖父的性格特点外祖父要在这个精彩片段中,要有人物描写,人物性格特点有没有染坊失火这个片段还有娜塔莉亚舅母难产死了这个片段的 If your watch is a quartz or a sel-fwinding one,there will be no such trable. 翻译 纸上得来终觉浅,绝知此事要躬行是什么意思? 英文单词S开头的Forever S_____ You 都可以填什么?要所有的.最好是正面的词不要贬义词 I'm going to ( )the radio station.yon must ( )the red light.A.closes down B.look out for C.look out of D.take you around E.the end of F.would like to 填空并翻译 《纸上来得终觉浅,绝知此事要躬行》的意思 童年 的精彩片段400字的 如何翻译这句英文?用比较正式的语气 “Such activity will be billable to you.”Such activity will be billable to you.关键这个billable在这里是什么意思?是可以开账单?还是需要收费? 纸上得来终觉浅,绝知此事要躬行的含义是什么? 童年第六章精彩片段 什么是激素耐药? “卫鞅”指的是 若x为任意实数时,二次三项式x²-6x+c的值都不小于0,则常数c满足的条件是 高一语文必修1《劝学》《师说》《赤壁赋》中重要的名句,考试经常考的句子, 纸上得来终觉浅后一句 若x为任意实数时,二次三项式x^2-6x+c的值都不小于0,则常数c满足的条件是()A.c≥0 B.c≥9 C.c>0 D.c>9注意说为什么 下列句子用了什么修辞方法(借喻、倒喻、博喻) 花好比人的脸庞, 树好比人的姿态我这辈子只是在生活的道上盲目的前冲,一时踹了一个泥潭,一时踏折一枝草花,只是这无目的的奔驰. 纸上得来终觉浅,下一句 若x为任意实数,二次三项式x²-6x+c得值都不小于0,则常数c满足的条件 A l'origine,je n'étais pas un enfant heureux什么意思 纸上得来终觉浅.下一句是? 若x为任意实数时,二次三项式x的平方-6x+c的值都不小于0,则常数c的取值范围是什么? Chaque jour est un jour calme et heureux 如题 纸上得来终觉浅的下一句? 若x为任何实数,二次三项式x²-6x+c的值都不小于0,则常数c满足的条件是( )若x为任何实数,二次三项式x²-6x+c的值都不小于0,则常数c满足的条件是( ) A.c≧0 B.c≧9 C.>0 D.>9 英语翻译L'amour profond n'est pas facile.Soyez heureux. 纸上得来终觉浅下一句是什么? 以S开头的 单词例如:SHORT 必须4各字母以上的 La vie est comme un drame,mais je n'est pas le protagoniste de ce drame的意思是什么? 英语翻译我是在销售进口葡萄酒的,最近在一款法国葡萄酒瓶上看到d'après Yslaire Victor Hugo 我知道是雨果,但是这样接起来又是什么意思呢?Victor Hugo d'après Yslaire Last night,a fire broke out in Ann's house in Manchester.Ann's 21 were out of town for the weekend when something wrong in the room caused the fire to start in the middle of the night.The 22 was waken up by the family dog,Danny,who was barking loudly 纸上得来终觉浅 绝知此事要躬行的意思 "纸上得来终觉浅,绝知此事要躬行"的意思纸上得来终觉浅,绝知此事要躬行问渠哪得清如许,为有源头活水来.世事洞明皆学问,人情练达即文章.千淘万漉虽辛苦,吹尽狂沙始到金.落红不是无情物 对于二次三项式X2-10X+36,小颖同学做出如下结论:无论X取什么实数,它的值一定大于零.你是否同意她的说你是否同意她的说法?说明你的理由.并求出它的最小值 S开头的词和意思关于医生 有一道法语题目,是用tout,toute,tous,toutes改写句子,但有个句子,意思都看不明白,就不知道怎么改了Est-ce que vos amis sont venus? 对于二次三项式x平方-10x 36,小颖作出以下结论:无论x取什么实数它的值一定大于零 卫鞅变法成功的原因之一 用一个四字短语概括 滑轮比赛的分类,及中国的滑轮运动员介绍,还有自由式轮滑穿的鞋是什么样的? 对于二次三项式x²-10x+36,小米同学作出以下结论:无论x取什么实数,它的值一定大于零.你是否同意说 执行下述两条指令后:Move BL,7FH ADD BL,58H OF=?,CF=?,ZF=?作为有符号数,运算结果是否正确?作为无符号数,运算结果是否正确?为什么? 求教一道法语题 Avant nous, aucun etranger ne s'etait aventure dans ce coin. 这句话什么意思啊Avant nous, aucun etranger ne s'etait aventure dans ce coin.A Personne n'etait jamais venu ici avant nousB Un seul etranger etait venu dans le Run With You 歌词 2次函数1.已知二次函数y=-x*2+2x+3 1)自变量x在什么范围内,y随x的增大而增大?何时y随x的增大而减小?并求出函数的最大值和最小值.2)当x为何值时,y>0?何时y 1.在图10所示的装置中,A、B是动滑轮,C是定滑轮,D是轮轴,D的轮半径R=10厘米,轴半径r=5厘米,物重G=500牛顿,每个动滑轮重P=50牛顿.如果不计绳重和摩擦,各段绳的方向保持相平行,那么:(1)为把重物 advice advise suggestion区别是什么?最后三十块了. 辩论It's good for high school students to write books英文中文均可最好英文正方反方均可 初三2次函数社区内要建一片绿地,因地形所限,其形状为直角梯形,两边借用夹角为135度的两面墙,另外两边总长为60m的铁条花边.(1)求梯形的面积S和高x之间的函数关系式.(2)求梯形的高x的 修改病句(用修改符号在原句上修改) 1 当奥运圣火在中国大地传递时,让我们看到了无数感人的场面.2 在学校春游筹备会上,各相关部门交换了广泛的意见.3 家长不能过分溺爱自己的孩子,这 马来西亚有大约一半的领土位于加里曼丹岛上,那么马来西亚是岛国还是大陆国 初三2次函数 8m的篮球运动员在距蓝板4m处跳起投篮,球在运动员头上方0.25m处出手,球运行路线可以用y=-0.2x*x+3.5来描述,那么1)球能达到的最大高度是多少?2)球出手时,运动员跳离地面的高度是多 当奥运圣火在杭州传递时,让我们看到了无数感人的画面修改病句 write good paper 是什么意思 初三2次函数题已知抛物线y=x^2-(2k-1)x+4k-6与x轴交于原点异侧两点A(x1,0),B(x2,0),它的对称轴与X轴交于点N(x3,0),若 A,B两点键的距离小于6.⑴求K的取值范围⑵试判断,是否存在K值,使过点A和N能作圆 '学雷锋活动在中华大地实施'这句的病句修改 1945年加里曼丹岛有多少人口 纸上得来终觉浅,绝知此事要躬行. a bag of wind 世界新闻报窃听丑闻开审 卡梅伦政府威叙利亚电子军自称攻破奥巴马推特账户日本9月份失业率降至4%摄影发烧友新宠:3D打印遮光罩(图)翘臀又嘟嘴 壮汉翻拍“性感照”遭吐槽美国在罗马尼亚反导基地开工建设【高清暴风雨影响法国数万家庭用电暴风雨影响法国数万家庭用电16岁少女网聊遭2名男子下药轮奸 醒男子将手伸进女子短裤乱摸日媒:中日论坛达成共识力避冲突 赵启中央财政采取多种措施 加快拨付农业综斯诺克国锦赛丁俊晖晋级次轮 手握赛点跨境电商游走政策灰色地带 诸多问题仍“永康车王”陈宏辉集资诈骗14亿 被能源局施压国网加码治顽疾 规划滞后等浙江释疑吴英资产处置:困难重重 已追托雷斯被\"激活\"进绝杀球 穆里尼永康车王非法集资近10亿判无期 曾坐前三季全国物流总额145.7万亿元 几内亚总统为中国房产开发项目奠基网媒记者陵水猴岛与猕猴亲密接触 热带黄健翔:输泰国2球可以接受 名记:四CBA 吉林男篮新赛季重回“魔鬼主场新加坡人口达547万 增速为十年来最孙杨“国歌门”事件引日媒不满 萩野:四川大学锦江学院大一妹子打造军训版时16岁美女竟是诱饵 男子千里寻爱遇传外国留学生热衷赴湘研习传统中医药学法塔赫与哈马斯就巴联合政府重回加沙达金融界专家学者齐聚四川内江共商高新技“萌毒贩”运毒将货忘车厢 司机疑是炸仲量联行:重庆商务环境趋国际化 高端朴泰桓大赞宁泽涛游得快 坦言自己需要中国国家画院首次联手四省画院办联展亮中国驻日使馆举行国庆65周年招待会金属家具很机械?不!它们很智能“十一”期间新疆铁路预计发送旅客77武警巴州森林支队爱民助民行动纪实佳木斯市政府要求严肃处理交警醉驾路虎心怀感恩前行:一位新疆服刑人员的重生武警新疆森林总队扎实推进新兵政治复查
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘