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

在VB中怎么调用CHM的格式帮助文件.

编辑:说三道四文库 发布时间:2017-09-24 02:30
HTML文档下载 WORD文档下载 PDF文档下载
在VB中怎么调用CHM的格式帮助文件.
HWND HtmlHelp(HWND hwndCaller, 
LPCSTR pszFile, UINT uCommand, DWORD 
dwData);

---- 按照说明,参数hwndCaller是窗口的句柄,pszFile是HTML帮助文件的路径和名称, uCommand表明执行的操作,dwData是uCommand参数所必需的值。它包含在哪个文件中,如何将它转为VB的格式呢?仔细对帮助文件进行研究,帮助文件中提到:HTMLHELP函数被包含在hhctrl.ocx文件中。于是就得到了HTMLHELP函数在VB中的声明: 
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

如果我要根据窗体上的内容来,直接跳到帮助文件的某一页,怎么办?
方法一(通过调用帮助的api 推荐~)
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

Private Sub Command1_Click()
    HtmlHelpA Me.hWnd, "C:\WINDOWS\HELP\CALC.CHM", 0, 0 '注意路径
End Sub

方法二(通过运行chm文件)
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

ShellExecute 0, "open", "C:\WINDOWS\HELP\CALC.CHM", 0, 0, 1
最简单的方法,不久前刚试过
private sub command1_click()
  shell "hh.exe 文件名.chm"
end sub
最简单的方法,不久前刚试过
private sub command1_click()
  shell "hh.exe 文件名.chm"
end sub

hh.exe 在c:\windows里,可以copy到你程序所在的目录里
不用copy hh.exe了,只要这样:
声明API ShellExecute:
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

在要执行CHM的地方写:
Dim ret
ret=ShellExecute(Me.hWnd,"Open",App.Path & "\Example.chm",vbNullString,vbNullString,vbNull)
就可以了。
最简单的方法,不久前刚试过
private sub command1_click()
  shell "文件名.chm"
end sub
不行呀,总是第一页,如果我要一点击就进入第10页,我做法为:
Private Sub Command1_Click()
    HtmlHelpA Me.hWnd, "C:\WINDOWS\HELP\CALC.CHM", 1, 10 
End Sub
可不能实现?怎办?
试试看(一)
Private Sub Command1_Click()
    HtmlHelpA Me.hWnd, "C:\WINDOWS\HELP\CALC.CHM::xxx.htm", 1, 10 
End Sub
试试看(二)
Private Sub Command1_Click()
    ShellExecute 0, "open", "C:\WINDOWS\HELP\CALC.CHM::xxx.htm", 0, 0, 1
End Sub

注:xxx.htm 是你想调的网页
Private 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

'显示指定的帮助文件(STRHELPFILENAME[CHM类型])中的指定网页(STRHTMLFILENAME),成功返回帮助窗口句柄,错误返回0
Public Function fun_ShowHelp(ByVal hwnd As Long, ByVal strHelpFileName As String, Optional ByVal strHtmlFileName As String) As Long
    Dim lRet As Long
    If IsMissing(strHtmlFileName) Then
        lRet = htmlhelp(hwnd, strHelpFileName, 0, 0)
    Else
        lRet = htmlhelp(hwnd, strHelpFileName & "::/" & strHtmlFileName, 0, 0)
    End If
    fun_ShowHelp = lRet
End Function
【PPT集萃】十位一线专家分享Spark现状与未来 谁主沉浮,亚马逊和思科角力DaaS市场 忆往昔峥嵘岁月稠——看苹果第一代iPhone的“风骚”往事 开源工具链“大牛”的经验分享:HelloGCC 2013精彩演讲回顾 20个超实用的JavaScript技巧及最佳实践 【开源专访】Linux Deepin:做更好用的Linux桌面系统 访Andy Jassy:感受亚马逊AWS生态观,思考国内外云计算差异 站到风口,最先飞起来的能将服务做到极致的IDC 苹果Siri再获一专利:可使用自然语音输入来搜索和标记图片 研发周报:Google抛弃C语言,采用Go语言重写Go编译器 取其精华 IE11里移除和新增的功能 大胆预测亚马逊即将推出的五大产品或服务 移动周报:GitHub章鱼猫中国之行 三星与LG的新动向:同样的物联网 ,不同的玩法 从Twitter到Tinder,看社交媒体在2013年的沉浮 一周消息树:有道周枫和他的“放养”团队、太极助手惹“非议” Netflix:使用大数据驱动商业决策 “中国杯”游戏极限开发大赛报道 回顾2013软件开发:JavaScript领风骚 京东“宙斯杯”创新应用大赛,百万奖金为“你”而等待 12306上的分布式内存数据技术GemFire Canalys:苹果、三星2014年仍统治平板市场 微软压力山大 Google和苹果的下一个战场 回顾2013科技界大事件:Mayer登Vouge杂志、Ballmer离职 《近匠》第03期:移动开发工具访谈,AVOS Cloud——后端的金刚钻 次世代视觉:Avegant Glyph智能眼镜技术解析 技术栈的选择:从Groupon转向Node.js、淘宝去IOE谈起 首席数据官:一个属于你的时代已经来临 盘点2013年Facebook七大最受欢迎的hack 见证中国开源的力量:“开源力量”2013年度庆典活动亮点汇总 专访APU13讲师、西电朱虎明:概念难以理解成异构编程最大阻力 weblogic 7.0 连mysql的pool出错,看看 毕业论文:各种排序算法的比较与分析。高分求相关资料。 如何将当前页面textarea的内容传递给新打开的页面中的iframe中? 求助:Windows XP 无法安装DirectX SDK? 怎么把64*64 bmp缩小为32*32 菜鸟问题,急需解决,请大家帮忙!! 问一个数据库相连的简单问题 毕业论文:各种排序算法的比较与分析。高分求相关资料。 关于my3b (重阳公子) 的注释的问题,我也在奇怪. 平铺的数据 征集意见:写一个酒店管理系统.分不够再加 vb.net是怎么回事/?在学之前要哪些基础准备? 在VMware如何装SCO UNIX 谁有VMware版的SCO UNIX 5.06啊!!! 如何实现啊?---- 求一个函数! 50分,请大家帮忙寻找这个笔记本网卡驱动紧急求助(Fast Ethernet pc card) 求 Quoted-Printable,8bit编码方式的解码函数 菜COM:DELPHI如何独立编译,WAITING ONLINE 请求速答 请指点 但不知pb是怎么回事 在学之前要哪些基础准备? Authorware新家园,捧捧场哦 各位,那有候捷翻译的《windows 95系统大奥秘》的简体中文版可下啊 关于作用域 反对有些人以爱国或真理为名侮辱我们的政府!!!!! 但不知delphi是怎么回事 在学之前要哪些基础准备? 请问 SET XACT_ABORT ON 怎么用啊 散分!!分不够再加!!! 请问扩展名名为asp的文件怎么打开? [ZT]GOOGLE的彩蛋 看看,怎回事? Xsl:for-each进行循环,如何能从循环中退出!急急急!!!给分 怎样实现更新 DBGrid 选中的多行记录? 有人能帮我看看这个存储过程到底是为什么运行不了吗?晚上结 请教高手 :在一个bean内只能有一个结果集吗? 如何从表单radio中得到它的value值呀. 验证问题 还是没有解决windows NT密码丢失问题啊 求救呀,来看看,谢了 可否用程序动态改变机器名? 动态创建数据窗口的问题 怎么给那么多份啊,为什么我不能给阿 [RMI]为何说找不到stub类? 求购sniffer pro 的使用教程 第一次来水源,散分!! 倾尽家财只为一题,不吝赐教者奉送全部分数 SP1 激活问题,新手求助! 可以解释一下dll是什么吗? 第一次来水源,散分!!(2) 大哥大哥!!!!!!!!!!!!救命 我是初哥! 活动目录问题:如何实现这样的活动目录服务? 请问我在水晶报表里面要每页都显示报表页眉应该怎样设置?万分感谢! Let's watch the soap opera.(改为同义句) ___ ___ ___Let's watch the soap opera.(改为同义句)___ ___ ___ the soap opera? 为什么要设置桥面伸缩装置? 该怎样理解这句话你时怎样理解这句话的:一个人虽然在同不可战胜的厄运的搏斗中毁灭了自己,但他的心灵却因此变得无比高尚.所有这些在一切时代都时最伟大的悲剧. The soap opera is________(bore)Let's watch the sports. 桥车为什么要悬挂装置 我该怎样理解这句话和一个男生相处得时间不长,但感觉还不错,我们今年刚好考到不同的地方上学.可是他说他“预感不会持续太久,我们的关系是维持在语言交流层面上的,总会有没话说的一 穷人帮助穷人的事 快就是自己不富裕、还帮助别人的人。不要有关一个卖茶叶蛋的老奶奶帮助一个瞎爷爷的。是善良/不是感动 桥梁的伸缩端和连续端能存在于一个桥中吗 含“然”字的成语;含“笑”字的成语;含“海”字的成语每一种至少要20个.急——急——急——! 火灾逃生的自救方法,如:绳索自救法,毛巾捂鼻法还有吗? People usually stay in rooms ___air-conditioners in summer 用什么介词 汽车之旅英语怎么翻译 求一次函数的数学题的答案小明以200米每分钟的速度起跑后,先匀加速5分钟,每分钟提高速度20米,又匀速跑10分,试写出这段时间里她跑步的速度Y(单位:米每分)随跑步时间X(单位:每分) For the people who are out of town or for chinese people who stay快说说这句啥意思吧! 英语翻译"新疆是个好地方" 我是一个语文课代表,遇到班上有同学不做作业怎么办? 已知:如图,在□ABCD中,O为AB的中点,求证:∠AOD=∠BOC.要证明过程最好用因为,所以 I don't mind ___to the party.A.not being invited B.not to be invited 除去了泥沙的食盐中,还含有对人体健康不利的物质,如氯化钙,氯化镁等,可以用氯化钠饱和溶液反复冲洗来达到精制的目的.这种方法操作简便,不消耗能源.请你简述其中道理 先花3.5元买了2.5KG苹果,还准备买3KG橙子,橙子的单价是苹果的1.6倍,买橙子应付多少钱?怎样例方程? You can't go to the party if not( ).A.nivite B.invited C.inviting D.be invited翻译,求详解 立体几何:如何求异面直线所成的角? you are cordially invited to a party ______at our insitute at 7:30pm dec.2为什么选to be given 西瓜小叶病怎么防治? 立体几何 异面直线所成角是指哪个角.带图 if you are invited to a party at nine,when do you get there?A.8:45B.9:00C:9:15D.8:30该选哪一个 西瓜猝倒病用什么药防治? 高二立体几何 求异面直线所成角如图 四棱锥S-ABCD的高SO=3,底面边长为2 角ABC为60° O为底面中心 ,E ,F分别为SA和SC中点 求一面直线BF与DE所成的角 :工厂行车,钢丝长3M,用它吊着质量为2.1吨的铸件,行车以2M/S的速速匀速前进当行车突然停止时,钢丝绳受到的拉力是多大? 西瓜生病了刚开始的时候叶子卷…发黄…到下雨的时候叶子像烂掉样,西瓜上还有长一点一点的 一块平行四边形的菜园,底是52.9米,高比底少8.1米.这块菜地的面积大约是多少公顷?(得保留两位小数.) 一条河的两岸有一段是平行的在该河岸的这一段每隔5米有一颗树,河对岸每隔50米有一根电线杆,在这岸离开岸边25米处看对岸,看到对岸相邻的两根电线杆恰好被对岸的两棵树遮住且这棵之间 平面直角坐标系中,将坐标为(0,0),(2,4),(2,0)(4,4)的点用线段依次连接起来形成一个图案:(1)若这四个点的纵坐标保持不变,横坐标变为原来的1/2,将所得的四点依次用线段连接起来, 现在的孩子不爱完成作业是什么原因?我所教的学科是语文,可是班里有几名孩子总是不爱完成作业,有时收作业的时候,有个孩子就在书包里翻作业本,其实他心里很清楚他没有完成作业,可还要 一条河的两岸有一段是平行的,在该河段的这一段每隔5米有一棵树,河对岸每隔50米有一根电线杆.在这岸离开岸边25米处看对岸,看到对岸相邻d两根电线杆恰好被这岸的两棵树遮住,且这两棵树 通往理想彼岸的桥梁是().A.立志B.勤奋C.实践D.幻想 我特别讨厌写作业,我妈妈说这两天快点把暑假作业写完好补课,可我就是不爱写.接着补充我身体里有贪玩小人和勤奋小人,几乎大部分时间都是贪玩小人占上风,我该怎么办,我真的快崩溃了我 如图,一条河的两岸是平行的,在河的一岸每隔5m有一棵树,在对岸每隔50m有一根电线杆,在离开岸边30m处看对岸,看到此岸的两棵树恰好把对岸相邻的两根电线杆遮住,并且在这两棵树种之间还有 怎样修建起一座通往理想的桥梁? 如何让一个不爱完成作业的孩子按时完成作业? 一条河的两岸可以看做是平行的,在河的一岸每隔4m有一棵树,在河的对岸每隔50m有一根电线杆,在离有树的一岸20m处看对岸,看到对岸相邻的两根电线杆恰好被对岸的这两棵树遮住,并且这两棵树 质量为 0.2 千克的小球,竖直向上抛出,小球在运动过程中受到的阻力始终为 0.5 牛,则小球在竖直上升时,小球受到的合力为_牛,方向 韶山这个词怎么念要注拼音! 墙上的弓会有影子照到酒杯里?unbelievable 有人说:"现实是此岸,理想是彼岸,中间隔着湍急的河流,行动则是架在河上的桥梁." 仿写! 一个只受重力的不平衡杠杆的阻力在哪? 如图所示,将断落的电话线拉直,使其中一端在电线杆点A处,另一端在地面C处,这时测得BC=6m,再把电话线沿电线杆拉直,使AD=AB,并量出电话线剩余部分(即CD)的长为2m,求电线杆AB的高. 将句子改成复合句:I am not going to the party.I haven’t been invited. 纯度是什么意思 公路边电线杆上的电线都没有拉直,甚至有的电线在电杆处还留有很长一段,你知道为什么不拉直节省材料吗?请用在体育课时拔河用的绳子探究其中的奥秘. “米粽之忆”,主要写了什么内容? 攀岩用的是什么绳索? 外面的电线杆上的分线盒...能拉几条电话线? 如图在平面直角坐标中,B(4,0),C(3√3),D(1√3),CD⊥OB于E.当S=2√3时,试说明三角形PBC是等边三角形P点(t,0)是线段OB上一点,设四边形DPBC的面积为S,求S与t的函数表达式 啥是西瓜? 改中文,一般疑问句和否定句peyerandluayliveinsingapore 已知正三棱柱 ABC_A1B1C1 的侧棱长与底面边长相等,则AB1 与侧面 ACC1A1所成角的正弦值等于( ) 李老师买了2千克香梨,共7个;张老师天了3千克梨,共11个.李老师买的香梨平均每个重多少千克?张老师呢?谁买的黎大. 桥梁伸缩装置的钢条断裂有没有危险、怎么处理 1.如图所示,矩形ABEF与矩形EFDC相交于EF,且BE⊥CE,AB=CD=4,BE=3,CE=2,∠EAC=α,∠ACD=β,则cosα:cosβ= .2.AB、CD在平面α内,AB//CD,且AB与CD相距28厘米,EF在平面α外,EF//AB,且EF与AB相距17厘米,EF与平面α相距15厘米 一架直升机在莫斯科坠毁 未致地面人员消息称美考虑停止对盟国领袖监听 未做强风暴席卷北欧地区 造成大面积交通瘫一架直升机在莫斯科坠毁 未致地面人员中非民兵与前叛军爆发冲突 造成近40埃及穆兄会领袖案开审 三名法官请辞印度连环爆炸案系激进组织所为日俄将首次举行外长防长级磋商 欲促进美国批发物价指数9月环比下降0.1%浙江武义江遭日化企业偷排污水 环保部强风暴肆虐欧洲多国IAEA称与伊朗会谈富有成果 将于1叙反对派要求解除卜拉希米叙问题特别代IAEA称与伊朗会谈富有成果 将于1美驻吉尔吉斯使馆收到不明信封 内装白金砖国家共议“气候变化对粮食安全不利消息称美考虑停止对盟国领袖监听 未做快讯:俄罗斯一架武装直升机在莫斯科市中国游客成海外大买家 凸显国内免税业中非民兵与前叛军爆发冲突 造成近40英媒:养老金制度需考虑气候变化 否则海外酒店项目绿地再落两子“斗士”费德勒逆袭穆雷中国完成7000米深海机械手压力试验市工行提供全球现金管理服务阿爷引出的胸前广告那点事4000万英镑,马塔加盟曼联在即在美国如何找工作推进注册制改革建设透明证监会一龙两回合KO泰拳冠军 对手跪拜节前肠胃减负 为浊气找出路中国年轻参会者:全世界都想了解中国申花申请注册无碍绿地入主今日中行人民币汇价基金四季度巨亏400亿元不能倒在终点线前马竞击退毕尔巴鄂个股门诊凌妈妈的爱心助养之路“年终奖”火了插电式混合动力车节后开卖2014年1月23日 D03:
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘