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

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

编辑:说三道四文库 发布时间:2017-06-23 04:43
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了。
用Delphi编制趣味动画鼠标 用Delphi开发屏幕保护预览程序 用DEPHI3.0实现动画ABOUT窗口-Delphi资料 在Delphi下用Direct Sound 实现混音器组件 在Delphi中使用DirectX BDE的替代品大全(按数据库类型分)-Delphi资料 BDE的替代品大全(按应用类型分)-Delphi资料 bde的组态文件-Delphi资料 DBGrid中的下拉列表和查找字段编程方法-Delphi资料 Delphi 3.0 中 连 接 数 据 库 的 三 种 方 式 Delphi 3.0中连接数据库的三种方式 Delphi 4中开发数据库控件的方法 Delphi:MIDAS中动态强制约束编程 DELPHI 中 自 适 应表 单 的 实 现 Delphi3数据库编程中的查找字段 Delphi3中 连 接 数 据 库 的 三 种 方 法 Delphi编程实现3DS动画的播放 Delphi访问ODBC数据库 Delphi如何实现在一个Dbgrid中显示多数据库 Delphi筛选数据 Delphi数据集过滤技巧 Delphi数据库应用程序开发中图像数据 Delphi下的ADO Delphi在网络数据库中的应用 Delphi中多库关联查询 Delphi中建表 Delphi中数据文件路径的管理 ODBC中的同步与异步执行模式-Delphi资料 SQL编程常见问题-Delphi资料 第11章 中级SQL-Delphi资料 第10章 SQL基础-Delphi资料 存储过程的问题? 如何在PictureBox控件中显示数据库中存储的图象 地址栏不见了!!! @@@@@@@@ TreeView 的问题 @@@@@@@@@@@@@@ 请教:哪里可以下载工具栏控件 怎样不用Delphi6的那个qtintf.dll啊? 对多语言问题的总结,集各位CSDN的智慧,让大家共享之 怎样将string类转化为其他类型,例如... 请问在哪里可以下在IIS 5.0 for Windows NT 4.0? 今天我才明白,我不是那么绝情,那个女孩竟然在我的心里留下了一份震撼 如何检测和修正ghost文件? Friecin(雪客)进来拿分(300分奉上,请高手做答关于MDI和DLL的问题) 想做程序员,考研如何选择 AnsiCompareStr和CompareStr? Behard进来拿分(300分奉上,请高手做答关于MDI和DLL的问题) CDatabase类里获取数据库名的函数是哪个啊? 请问RichEdit中如何在代码中修改选中字符的字体和颜色? 安装 WebSphere应用服务器问题 我发现我怀孕了,不知道是谁的!:( 中国电信 为什么我的打印机打印时会出现重影?? 我怎么把他们一一显示出来在listbox里?代码写出来! 请问BOOT扇区中各个数据的意义。。 有没有一次搞定具体时间的控件 tomcat配置简单的问题 问题:十六大代表需不需要办暂住证? 求教COOKIE的用法! JBuilder 7中如何安装一个Server ### 升级内核 ### 还有一个问题(树型列表) 哪里有Visual InetDev 6.0 下载? "分"到哪里去了? 有关于赋值的问题 技术的挑战,在线等待 有关csdn的一个小的问题? 显示模式的设置 怎么样删除在DATAGRID中选定的行? 如何自动滚动edit控件多行显示时的文字 win2000系统关闭后但不会自动断电源 寻找资料,请帮忙 难啊 统计数据 求:做得漂亮的学校主页 麻烦看一下下面的代码 C#和C++builder比各有什么优缺点?哪一个更灵活更稳定?C#和C++哪个好? bug管理工具有没有web方式的? cs文件中,如何获取confirm对话框的返回值? 如何将jpg的图片加入到sql server 的 image类型的字段中阿,使用ado 配置了win2000的服务器 兄弟们。我在JAVA区竟然得不到答案。只能期望在这里找到帮助了(共200分的问题) 在ACCESS中设置数据表,如何实现数据库中多表间的关联访问,用VC的DAO实现 请用 is,the,baby,she,of,the,family造句. 英语看图作文.一个人拿着鱼杆钓了一条小鱼,他想钓一条大鱼 有两渔夫钓鱼,一人钓了5条另一人钓4条,他们要吃鱼,路过的人也想吃鱼,两个渔翁同意了.于是一人吃了3条过路人给了2.7元最为回报,两渔夫怎样分配才合理 at the moment用什么时态,还有just now 等等等等像这种词组用什么时态,希望一个一个写出来加上时态. 英语翻译不想再受到伤害 ,如果不爱我,女孩,请离我远点! They made the girl cry中cry是不是补语 take down造句帮忙造个句子 _____(thousand)of people lost their homes in the flood连词成句 sofa /is/on/the/comfortable/it/like/very/we/because/sitting(.) 有没有They were worried about the girl sad 用take care to do造句 用一般将来时 _(million) of people lost their lives in the war.怎样填? 含7种颜色的不同英语短语中文翻译 很多桔子,翻译它 He likes to have (apple and milk )for breakfast.就括号提问 英语翻译1.Long ago london was not a clean city .there was a lot of smoke in the air because there were lots of factories this is not true today .the air there is quite clean now 下面几个关于色彩的英文短语1.a white night 2.a white elephant 3.a white crow 4.the White House 5.a white lie 6.white flag7.black sheep8.black tea9.black coffee10.black Dog11.black gold12.green hand13.green tea14.blue day15.blue collar16.b 形容说话声音轻柔,语气温和叫什么言什么语 英语翻译摘要为:摘要:随着经济的增长和社会的进步,在人们生活水平日益提高的同时,人们的生活环境和生活质量却面临下降的威胁,广大旅游者对回归大自然、欣赏大自然美景、享受原野 把...漆成...颜色 英语用什么词组 I drink a glass of milk in breakfast.有错的,找出并改正 英语翻译老师您好,请允许我在此与您分享我的爱好与专长.首先,我十分热爱阅读,当然,我也不是对所有的书籍都很喜爱,我比较喜欢读诗词和散文,最喜欢的杂志是格言,因为那种清新而温馨的 23.He hurried to the booking office only_____that all the tickets had been sold out.选项A.to tell B.to be toldC.telling D.told答案是那个,做什么状语?怎么解释谢谢高手高高瘦 I drink two_____(玻璃杯)of milk for breakfast Newton was one of the greatest scientists ____ever lived.Newton was one of the greatest scientists ____ever lived.A.whom B.which C.what D.that 为什么选D,而不选B Will you please show me the way to the only tall building _______ stands near the post office?A. 不填 B. in which C. that D. where 选哪个啊,不会 连词成句(英语)i,milk,breakfast,drink,for 英语翻译我叫Vera.我十二岁了.我很喜欢读书.我最喜欢的颜色是蓝色.我经常会迷路,所以,如果我迷路了,请你帮助我,英语课要自我介绍,我写的虽然不难,可是涉及到语法不太确定,所以还想请明 美语"我知道了"怎么说 在对讲机里的大片里常说的 Erevy year many people l___ their lives in traffic a _____. 英语翻译不好意思,少了一个that:newton was one of the greatest scientists that ever lived.这里ever lived何解?充当成分是? 在对讲机里的大片里常说的美语"我知道了"怎么说 在对讲机里的大片里常说的 英语翻译填moment 还是 minute 为什么 英语翻译Hello,everybody.My name is...I am ...years old.I am kind and friendly.I like playing computer games and table tennis.And I am interested in collecting stams,too.I am a hard-working student so I can always get good grates.I am good at Engl 美语怎么说053讲:大片 I have got some beef inour fridge.(对some提问) — I wonder if I ____ smoke here.— No,you _______.Could you see the sign “No Smoking” there?— I wonder if I ____ smoke here.— No,you _______.Could you see the sign “No Smoking” there?选项:a、can,needn’t b、shall,won’t c、must, 选择 What he said made us ____.A.laugh B.laughing 用英语怎样说“低调点”处事“低调点” 用英语怎么说? people all over the world eat ricePeople all over the world eat rice.Millions of people in Asia,Africa and South America eat itevery day of their lives.Some people eat almost nothing but rice.Rice is a kind of grass.There are more than 7000 kinds of What he said made us laugh.said和made在句子中做什么成分?said修饰什么? 人为什么儿活,又为什么儿死?人活着到底是为了什么阿?活的好累阿? 吸血鬼日记适合学英语吗?或者老友记更好些? It was not what he said but the way ____ he said it that made all the people laugh.A.in whichB.which\x05C.how\x05D.in that a moment ago与just now的意思分别是什么? 人为什么儿活,又为什么儿死?人活着到底是为了什么阿?活的好累阿? 吸血鬼日记里的经典台词,带英语哒~有木有 Their breakfast is eggs,milk,apples and bananas.这句话有错吗?我个人认为is应为are是语法错误?不知正确吗? The typhoon in Taiwan caused many people___their homes.A.to lose B.lost C.to lost D.lose请说理由 吸血鬼日记第一季mp3还有吗 学英语用, 英语翻译公司系产供销一体化的食品连锁机构;拥有50余家蛋糕连锁店,现数个地市的分公司酝酿诞生,并在快速稳步发展之中,已成为河南省烘焙连锁的第一品牌.公司一直本着“做一家稳步发 The typhoon in Taiwan last month c( ) many people to lose their homes. 英语翻译挖红薯拾柴火野炊点火煮面条 aswell,give up,makefun of,telliokes,makesb do she,be strict,about take care of 用以上短语造句吖~ Thousands of people in Taiwan had no houses to live in after the typhoon.had no houses to live in 划线提问 有一渔翁在钓鱼,别人问他你钓了几条,他说:钓了9个头6个尾8个半截,请问他钓了多少鱼? hunt of什么意思?要是用这个短语造句怎么造? 请问什么品牌的钓线拉力强度比较好?钓到大鱼老断线跑鱼! 有两渔夫钓鱼,一人钓了5条另一人钓4条,他们要吃鱼,路过的人也想吃鱼,渔夫答应了,他们三个一同吃起有两个渔夫在河边钓鱼,每人吃了3条鱼,吃完路过人给他们9.6元.你们帮帮两位渔夫算一算, 请高手给下面几个短语造句!OUT OF TOUCH ,OUT OF TUNE,OUT OF CIGARETTES,OUT OF BREATH,PUT OUT OF ACTION,GO OVER ,RUN OVER ,GET OVER ,TIDE OVER,PRESIDE OVER , Did the people suffer heavy _(lose)in the typhoon 一个渔夫出海钓鱼,晚上回家,妻子问他钓了多少鱼?渔夫答妻子:'六条无头,九条无尾,八条只得一半.'渔夫总共钓到多少条鱼?提示:这一道题玩数字,并不是真的要计算
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘