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

如何在vb中调用chm帮助文件?

编辑:说三道四文库 发布时间:2017-10-18 07:29
HTML文档下载 WORD文档下载 PDF文档下载
在工程属性中设置帮助文件名,这样在任何地方F1都会唤出CHM
'API声明
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpszOp As String, ByVal lpszFile As String, ByVal lpszParams As String, ByVal LpszDir As String, ByVal FsShowCmd As Long) As Long
Public Const SW_SHOW = 5

'使用方法,如点击帮助菜单
ShellExecute 0, "Open", App.Path & "\Help.chm", "", "", SW_SHOW 
谢谢,但我如你所说使用第二种方法时,出现编译错误,告诉我声明错误!
两个都是好办法。另加一个:
1。建立帮助类。
2。通过类来调用帮助。
此好处是支持别的驱动事件。如:左右键等。
直接用SHELL函数不行吗
或者用OLE控件也可以啊
设好工程的帮助文件名,需要的地方如下
i = HtmlHelp(Me.hWnd, App.HelpFile & "::/index.htm", HH_DISPLAY_TOPIC, 0)
'有关声明

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
      
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 Const HH_DISPLAY_SEARCH = &H2
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

要想用public声明,你就把他放到一个模块文件里
On Error Resume Next
    
    Dim AppDir As String
    Dim HelpFile As String
    AppDir = App.Path
    If Right(App.Path, 1) <> "\" Then
        AppDir = AppDir & "\"
    End If
    HelpFile = AppDir & "HelpFile.chm"
    
    Call Shell("hh.exe " & HelpFile, vbMaximizedFocus)

    'HH.exe 是Windows 自己带的一个可执行文件,在windows文件夹下就有,
不用什么API文件,那个多麻烦呀。OK
Dim yourHELP As Long
Dim HelpChmFile As String
HelpChmFile = App.Path & "\" & "flydragon.chm"
yourHELP = ShellExecute(0&, vbNullString, HelpChmFile, vbNullString, vbNullString, vbNormalFocus)
短短几句话就OK了,不用API的!
楼上的,难道ShellExecute不是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

Dim yourHELP As Long
Dim HelpChmFile As String
HelpChmFile = App.Path & "\" & "flydragon.chm"
yourHELP = ShellExecute(0&, vbNullString, HelpChmFile, vbNullString, vbNullString, vbNormalFocus) 
我的妈呀,这些人怎么搞得这么复杂?算你们会一点API?不需要API,很简单的,commondialog中不就有调用help的方法吗?
gz
Oracle和微软的抱团,以及对抗Amazon霸主的5个可用点 Agile已死 Agility长存? 论程序员的自我修炼 Github女员工因遭性别歧视离职 继七年iPhone、四年iPad后,苹果的下一城:Healthbook 普元CTO焦烈焱:专注于基础软件 在Spark上的深入实践 Python 3.4.0正式发布 未添加任何新语法特性 谷歌受困邮件挖掘丑闻,企图抹掉庭审记录 Python 3.4.0发布,增加了多个功能模块 美的+阿里,“云端”战略第一把火是智慧家居 对产业互联网战略的战术思考——争夺企业信息入口的战争 加入Cassandra,OpenStack发力DBaaS生态圈 死磕Google Keep,微软正式发布Mac免费版OneNote 《近匠》安管云CTO石磊:降维安全的开放平台 2014 Unity亚洲开发者大会&#183;中国站讲师名单议题全部出炉 【独家专访】红旗Linux元老:猎猎红旗永飘扬 借助三大技巧 助你提升API状态页面 集成GemFire,Hadoop生态圈的又一把火 次世代光照体验:Unity 5面世,功能系统全升级 深入浅出,以咖啡店为例演示Web应用程序扩展 百度Clouda:可依赖的实时JavaScript开发框架 Oracle发布Java 8正式版及JDK 8 编程语言中一些令人抓狂的规则 廉颇未老,微软股价创14年新高 中国云计算大会PPT集萃(三):核心架构及应用实践 特性是增多了,但是Google的云服务仍然不温不火 全国云计算大数据创新项目评选活动正式启动 【独家专访】Perl发明者首次来华:将在OSTC大会分享其编程人生 腾讯核心创始人张志东半年后卸任首席技术官 改任终身荣誉顾问和学院讲师 咱们约会吧,Web设计师教你不一样的语言 开发者不容错过的10款免费JavaScript游戏引擎 中文乱码的问题 !!谁在VMWare 3.2里装过RedHat 9.0和RedFlag 3.0,请看看这些问题(100分)!! 如何使在输入框选中的文字在提交后仍然显示在输入框中? 无法创建asp.net应用程序 高手在上,请问怎么样在win2k中实现关闭程序和绘图[内详] 初学者问:如何在listview中查找其中一行? 怎样在调试窗口中看到变量值? 郁闷中,狂散分。。。。。。 DCOM怎么使用? 想做一个地区门户一般要包含那些栏目?? 线程 怎么能让DELPHI编出来的程序最小化以后进入到系统托盘? C++问题,请进来帮忙! help me ~!!! 以下行为究竟是关闭端口还是使用端口 callzjy(【剑客西门吹雪原来是仁者帮帮主...】) 怎么翻了这么多老帖子出来了??? 求原代码下载 大家都在干什么? 有什么东东大家可以一起研究研究? 初学者问:如何在listview中查找其中一行? fortran语言的高手请进,分数不够再加 我是一个刚刚步入JAVA世界的小鸟 恳请得到大家的帮助 。。 ActiveForm发布问题。 怎么能让DELPHI编出的程序像QQ一样可以自动隐藏? 一个关于dll的例子,运行不了,请帮忙看一下。 程序打包 BCB产生调试符号的问题 为什么要4张1寸的,1张2寸的照片?要这么多干什么/ 请问怎么样用C#遍厉注册表? 请问大家如何做一个实时的屏幕抓取的程序啊,是实时 各位大哥大姐帮帮小弟,先谢谢了!!! 用Delphi开发的WebService能否在NT4的IIS上面运行? 键盘纪录问题 一个窗体有多个按钮,怎样让一个按钮成为默认按钮? 关于MYSQL_CONNECT(),有点疑问 ASP.net好像也不能替代JavaScript吧? 网络游戏外挂之我所见(7) 键盘纪录问题 键盘记录问题 我为谁哭泣.. sql小问题 大家快帮帮我吧,我快崩溃了 谁知道VisualAge for Java 3.5的help打不开该怎么办?(能解决问题必给分) 网络游戏外挂之我所见(7) 谁知道VisualAge for Java 3.5的help打不开该怎么办?(能解决问题必给分) Access数据记录复制? 急﹗﹗﹗ 关于数据库表的问题 cpu设计学习的问题 也许是很土的问题 哪位兄弟能帮我VB做的dll转成标准的dll。 关于过程与模块的菜鸟百思不得其解的简单问题,兼散分。 用过其他集成开发环境的请进。 充电器上5A 10A 15A He's under the tree.(改为一般疑问句) 三相四线漏电开关能否把3个相线并联后用在单相电中?手头有个3相4线漏电开关,担心用电高峰用单相电流不够,想把3个相线柱子并联,这样是否可以增加单相输出电流?比如额定三相20A的可以变6 请问胶体电池的优点有哪些? 英语200字作业 你如何看待google谷歌公司退出中国大陆市场的原因,影响中美之间在审查制度上的区别如何? 三相四线电,有个切袋机(是单相电的)外壳接到水管漏电开关跳?三相四线电(原来是请电工安装的三相电,但他没有给我拉接地线),切袋机(是单相电的)金属外壳接到水管漏电开关跳?我 要是想要使用10A的熔丝 但手头只有15A和5A的熔丝 怎么办?(两条方案)想不通如果是两条5A串联 那么只要电流过了5A不是两条都熔断了么.等于没效果啊 = = 碳排放交易市场怎样申请 因式分解:(m+n)^2-6(m+n)+9 什么是胶体电池 生活在距今约180多万年前的()西侯度猿人已经有了简单原始的渔猎生活.白天不懂夜的29452 13+15+17+…+197+199 几十年前,我只有十来岁,还在贫困的农村,那时候还不知道香蕉为何物.一次他母亲带他去参加在县城远方亲戚的婚礼.在宴会上,他平生第一次见到了香蕉,黄灿灿的,月亮一样的形状,透着诱人的 如何切入碳交易市场 某过街天桥的设计图是梯形ABCD,桥面CD与地面AB平行,DC=62米,AB=88米,左斜面BC与地面AB的夹角为30度,立柱DE垂直于AB于E立柱CF垂直于AB于F,求桥面DC与地面AB距离(精确0.1米) 小儿7个月了,打算一天让他吃半根香蕉,有人说香蕉凉性不能吃,易拉肚,请专家指点.自己觉得香蕉是个好水果,可以补充钙吧,所以想让孩子每天吃香蕉.现在7个月了还没长牙,又不想让吃买的钙 半圆的周长怎么求 如图,ABCD为倾角α=37°的矩形斜面,其中AB与底边CD平行,AB=0.6m,BC与AD平行,BC=0.8m,斜面上物体的质量是2kg,与斜面间的摩擦因数为0.5,在平行斜面的恒力F的作用下,由静止开始沿斜面的对角线从B运动 将两颗相同的种子种在一片肥沃的土地上和一片贫疾的土地上那个先发芽?为什么理由 三角形边长分别为33米,19米,24米.求面积 高电压和低电压是以多少伏分的呀? 高电压、低电压是怎么划分的啊 三角形边长分别是42米、44米、24米求面积因是面积补偿争议 低电压和高电压的范围是多少? 如图 AB是半圆的直径 直线MN切半圆于C,AM⊥MN BN⊥MN 如果AM=a BN=b 那么半圆直径是多少? 英语翻译:“琐碎的事情”有没有一个词代表“琐碎的事情”呢?用在iBT口语中. 有两个规格相同的灯泡L1L2,把它们连入同一电路中,并用两个开关S1S2控制它们.要求:当只闭合S1是,L1发光,L2不发光;当只闭合S2是,L1L2都不发光;当S!S2都闭合时,L1L2都发光,请画出这个电路的电 AB是半圆的直径.直线MN切半圆于点C,AM⊥MN,BM⊥MN,若MA=4,NB=3,求直径AB的长 英语中一些琐碎的问题有时候对英语感觉很无语,例如吧:bit的现在分词我觉得应双写t加ing,但他就非要是biting.做题中遇到要填一个词“noise levels”但我觉得level不需要加s啊?再例如,no后跟单 直流高电压的产生? 直线MN切半圆于P,AB为O的直径,AM⊥MN于M,BN⊥MN,若AM=a,BN=b,则AB的长为?梯形AMBN的面积为? 问几个琐碎的英语问题、1、情感(名词)用英语怎么写、是可数的吗?2、翻译一个句子、它不但是感情而且是行动.(用not only...but also)3、“快乐大本营”用英语怎么翻译或者是无法翻译?4 移动 通话时间到多少秒就算2分钟?如题 青海湖的含盐量算什么湖?如题 什麼是水压 高电压充电器充低电压电池,串个电阻行吗如48伏充电器充12伏电池 .tar.bz2的解包问题我在linux中用tar -xvf没法打开用tar -xjvf 可以打开请问 -xjvf 琐碎的事 用英语怎么讲 转盘刚转的一刹那.盘上物体的摩擦力方向我知道当转盘转动后.物体的摩擦力方向是向圆心的.可当转盘刚转动的一刹那.物体的摩擦力方向向哪里? 过半圆O上的一点C作直径AB的垂线,垂足为D,圆O1切AB于点E,切CD于点F,内切半圆于G.求证:AC=AEG在BC弧上 琐碎翻译成英文 在电路中,有一个高电压电池和一个低电压的,二者正负极相反,并连有一个电阻,当电路接通时,低电压电池会消耗能量,那此时它应该是电源还是负载呢? 5a-1/8=7/4 半圆的直径为40与半圆内切的动圆与直径AB切与M设动圆半径为yAM长为x求解析式 已知三角形ABC三条边长分别是18,24,30则最长边上的中线是多少 三名同学量体重,小影,小佳俩人的平均体重是43千克,加上小明的体重后,他们三人的平均体重就增加了2千克.小明的体重是多少 青海湖的美,美在湖水蓝,令人醉 仿写 写出四位中国奥运会冠军和他(她)从事的项目 a big mess 的意思 青海湖的湖水有什么特点?为什么会有这样的特点呢? 电池组:关于电池组 12V 20AH与24V 20AH,两个都是输出2.0A电流,容量是否一样?功率如何计算? I’ll clean up my mess when I’ve buried him.my mess在这里是什么意思呢? 我叫徐建蕾 想给自己取个英文名 希望大家帮我取一个好听点的英文名 我有一个48V20A的直流电瓶,怎么转换成220V交流电,具体需要什么元件?市场是否好买? 蛋生鸡先?蛋生鸡还是鸡生蛋先? 青海湖、湖水面积有多少平方米 我一会儿出去用英语怎么说i am gong out _____ _____ 我把CAD图平面图放进去我要怎么算比例尺呢 我叫兮希望大家帮我取个好听点的英文名要加读音备注哦 高一物理问题A.B两质点从同一点开始沿直线运动,右图中的①、②分别为二者的υ-t图线,则下列判断中正确的 欧洲政治联盟计划受挫俄总理七小时安徽行:听民乐品徽茶 在俄罗斯总理梅德韦杰夫访问安徽包公祠(俄总理参观包公祠 向俄国推介包公(图也门一男子烧死15岁女儿 只因其与未美一公司将开发氦气球太空游 游客可观美观测到迄今最古老星系 距地球131澳琴师自称造出完美小提琴 可与世界名德防长批评美国监控传闻 称欧美关系将泰国一巴士坠山沟致21死 司机驾驶俄公交炸弹袭击或引发连环恐袭 索契冬挪威销毁叙化武受美国热捧 坦言国内压也门一男子烧死15岁女儿 只因其与未日本6名女性涉嫌在网络上上传猥亵视频澳洲一名男子涉嫌逼迫未婚妻致其死亡接美观测到迄今最古老星系 距地球131德防长批评美国监控传闻 称欧美关系将媒体评美国6岁儿童说“杀光中国人”:美国14岁少年被控刺死女教师 据称性澳琴师自称造出完美小提琴 可与世界名澳七旬男子苦等救护车未果 在家中不治省自由式轮滑赛月底开赛朱婷31分难救主雅居乐三千院携手郭富城“走红”里皮回归无悬念?不让守规则者遭殃,是法治应有的正义纳达尔宣布本赛季报销 将安心养伤为1安溪开展电信诈骗财产执行专项行动图片新闻长汀举行《出发地之歌》歌咏比赛难忘那段烽火岁月练“听”力中国农业银行股份有限公司平和县支行与从数字变化看福建老区发展红军,从这里踏上征程红军长征史料以政治远见促中菲关系行稳致远来鹭岛,体验一场台式健检游快递胶带一年可绕赤道425圈杨丽娜:向马铃薯“癌症”宣战省级服务型制造公共服务平台开始申报漳平“安居工程”圆残疾贫困户新房梦
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘