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

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

编辑:说三道四文库 发布时间:2017-12-15 04:46
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了。
技与艺:对话《雨血》系列制作人梁其伟先生 2014年平板电脑或将占PC市场的“半壁江山” 【开源推荐】Nutz:Java项目中SSH框架的最佳替代品 你的数据库准备好过冬了吗 开源将成为SDN最大的风险! “大姨吗”CEO柴可:女性健康白皮书的发布与“大姨吗”的未来 看中国大学生的移动创意激情 第六届英特尔杯软件创新大赛侧记 在哪里工作更好?Facebook大胜Google WDC超链接图:涵盖35亿网页、1280亿超链接 英特尔:机器已扛不住亚洲的空气污染 IE11中全新增强的F12开发人员工具 TUP第31期报名已满 向主讲人《浪潮之巅》吴军提问征集 对话Spark核心作者Ion Stoica:我的编程之路从2KB内存开始 埃洛普出局?微软董事会称Mulally、Satya有望是下任CEO 百度开源平台上线,聚合百度开源项目 盘点TOP500:值得关注的超算,及当下趋势 【BDTC讲师】Tachyon作者:大数据存储以及处理框架经验分享 进一步称霸中国:低端设备让Android在中国每季获3%增长 低端设备撑起Windows Phone市场份额 研发周报:你的数据库准备好过冬了吗 JVM垃圾收集器使用调查:CMS最受欢迎 技术创业不能一味追求“骨感”,必要时丰富自己的5个途径 帷千动媒副总经理兰旭:整合现在,梳理未来! 11月份浏览器份额:IE继续上涨,Chrome仍不温不火 Windows 8令人担忧:8和8.1两版本份额目前仅有9.3% 一周消息树:微软还需更激进的手段——开放Windows Phone 【开源推荐】Genome.js:当DNA遇到开源 Go 1.2发布 着重语言特性的改进 微软资深IE专家邹颂兵:好产品才是竞争的关键 Web应用程序完全测试指南 Python正在取代R,成为数据科学界新宠 怎样禁止XP的自动升级功能啊?? listview的问题! 工作室征名,有礼物送啊! 请问怎样用foxpro自身的数据库做c/s系统,odbc,远程视图怎样用?给个小例子,谢谢! XP下的MEDIAPLAYER可以播放DVD吗?? 高手请进 谢谢回答 我学习了C,想考高程,如何开始啊? 三级都考什么呀?那里有全面一点的介绍? 各位高手,小弟请教一个问题 关于ADOConnection和ADODataSetCommand的问题,请大家帮忙 请问如何在一个JavaScript函数中调用另一段asp程序? 为什么我的XP需要我手动关机啊?? 请问TC3中如何产生一个1至9的随机数? 关于安装 KV 2003 失恋后的第一个中秋!散分! 才学C++的朋友,留个QQ,以便交流. 背投彩电买什么牌子/型号的好?大家出点意见 :) 中秋夜还有谁在技术版,问一个关于javascript的问题! Project 2002 快速下载 中秋,女友陪别人去了,我就来这里和大家共度佳节吧…… 现在上网真的很无耐,无耐。。。 HttpContext.Current?? 我们中秋,他们911! 一个表中,怎么写SQL使得不够5位的记录在后面自动加零补够5位! 以Post提交表单时的一个小问题 Socket可以实现这样的功能吗? 如何取消Linux 中的单用户模式 ? 怎样固定生成窗口的大小? 为什么在panel中不能响应image的onclick事件? 在CSDN过中秋节的兄弟们,来坐坐吧! 怎样关闭cformview派生的视图? 各位大虾,有谁知道怎么配置连接池呀,我以前配的,现在有点记不起来了,最好能说清楚点,谢谢!重分酬谢! 如何使位图在文档类视图中显示出来! 怎样快速获得一幅图像所用的颜色的总数? 错误号问题 如何在ie中直接打开word文件进行浏览、编辑,并保存。 一直都在接分,我也散点分。祝大家中秋快乐!!!!!! 我学应用物理,计算机该怎么自学?100+100=200 大分相送!不够再加(第1部) 有一个问题,怎么配置struts,有没有一个现成的例子呀,望指点,谢谢,也可以发到我的信箱 有CSDN上的兄弟一起过中秋节晚上,今晚不孤独,最后七十分散掉 oracle9i...数据库是提示:ORA-12154: TNS: 无法处理服务名 ? **首先祝大家中秋快乐,然后请问“包程序写入失败”是什么意思???**谢谢:-) 我学应用物理,计算机该怎么自学?100+100=200 大分相送!不够再加(第2部) 如何將數組定義在一段連續的內存空間??急急!!!!! **首先祝大家中秋快乐,然后请问“包程序写入失败”是什么意思???**谢谢:-) 我用这个函数Space$(nSize),提示说工程库没有,需要什么工程库? 两罐啤酒,独过中秋。祝这里的兄弟姐妹中秋快乐! 一个有关datareport的问题 现在有必要学ASP吗? 请教:为什么我不能给被调用包的源代码设置断点,请问是什么原因?怎么解决? 补刚才漏掉的五十分 小学课文文言文《对弈》的内容是什么? 文言文有钱开口 怎样做到开口就是文言文像诸葛亮那样的. 差旅费报销单属于( )A 原始凭证 B 自制原始凭证 C 外来原始凭证 D 累计凭证 如何更换手提箱的脚轮 中间是轮轴 请问slide ,swing ,seesaw 3个单词是否属于同一类型?如果不是一个是选那个?是选第三个吗? 答案是slide,slides,swing,swings 这里的slide跟swing为什么不用过去式?When I was little,my favorite thing o do was to go to the playground and _______ down ________ and _______ on _______.还有,请翻译这个句子 判断题 一个几何体,如果它的主视图、左视图和俯视图中有两个是正方形,那么这个几何体是正常体 最初产生人的地方,距离地球有多少亿亿光年? 数学立体几何的问题...如图,空间四边形ABCD中,E,F,G分别是AB,BC,CD的中点,求证:(1)BD∥平面EFG;(2)AC∥平面EFG. 大力神是啥米碗糕啊?为毛要叫大力神?是大力神队不是杯,抱歉啊 法国两名记者在马里被害 法士兵运送遗穆尔西庭审前夕 埃及发生枪击案致2名华尔街日报竟称钓鱼岛属日本,中国会因奥运冠军孙杨发生交通事故 疑无证驾驶美研发新型间谍机 可一小时内到达全球穆尔西庭审前夕 埃及发生枪击案致2名伊朗最高领袖称美国是微笑的敌人 对核震惊! 镜头揭秘世界各地女人的惊天差叙利亚等国民众观测日偏食天文奇观【高曼德拉生平电影首映 前妻称反映其“苦印度女婴家传怪病 身体多毛酷似狼孩【国家大剧院京郊公益行橘子和苹果微信O2O体验店杭州落户责编:苗 春邮箱:wenhuawan普京敦促基辅当局与乌克兰东南部直接对德国要求召开第二次日内瓦会议处理乌克北美票房:《超凡蜘蛛侠2》登场 票房李克强:深化中非休戚与共、共同发展、李克强:愿毫无保留地同埃方分享经验李克强:要把中埃、中非关系列车升级为合肥最长下穿隧道将通车 龙川路已具备宇宙幽灵香港大亨我的老婆是警花2血色年华神仙大官人进球不成名激荡人生神仙也有江湖一八九三变身辣妹超级神医闾山旅游朝阳沟旅游抚远旅游房山旅游通化旅游余姚旅游益阳旅游东海岛旅游新安江旅游河口旅游天台山旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘