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

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

编辑:说三道四文库 发布时间:2017-04-29 02:19
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了。
一周消息树:不同设备不同界面的Windows 9正在逼近! 乐卓网络CEO李澄澄:移动游戏IP是把双刃剑 高性能动画!HTML5 Canvas JavaScript框架KineticJS Swift最酷炫的七大功能 微信开发者大会讲师介绍:柳峰与你一起玩转公众平台应用开发 TIOBE 2014年7月编程语言排行榜:仅发布1月,Swift进Top 20! 艾格拉斯CEO王双义:手游自研引擎的荣耀之路 以招行为例,深圳云软黄榕振谈微信公众帐号企业应用高级开发 来自前苹果高管Heidi Roizen的经验之谈 【短讯】Dropbox、微软OneDrive打不开,国内用户该如何应对? 5分钟弄懂Docker! RakNet:被OculusVR收购的跨平台游戏网络引擎 Qualcomm业务拓展副总裁沈劲:智能终端的延伸 苹果发布Xcode 6 Beta 3,Swift迎来重大更新! Linkedln技术高管Jay Kreps:Lambda架构剖析 《近匠》极光推送:聚焦巨头无法快速转身的领域 Babylon.js:拥有微软背景的开源3D游戏引擎 EMC 2014存储布局及十大新技术要点 腾讯推出零流量地图 离线实现公交步行导航 Atmel 1.4亿美元收购Newport Media 巩固物联网产品线 微信大会首批议程出炉 深度解析招行服务号是如何炼成的? 指尖上的阅读:MIT开发盲人专用设备FingerReader 从桌面到移动:异构计算翻天覆地的技术变革 《近匠》Blueware何晓阳,不做中国的New Relic 全球最杰出的14位程序员 Microsoft、RedHat、IBM、Docker等公司加入Kubernetes社区 Intel携手三星、博通等 建立物联网联盟OIC 一周消息树:微软半年内将终止对Win 7、Office 2010 SP1等产品的支持 深度神经网络DNN的多GPU数据并行框架 及其在语音识别的应用 浪潮通软GSP将打造开放平台 吸引更多ISV加入生态系统 国外安全产品再遭信任危机 安全产品国产化步伐加快 关于windows 可执行文件的结构问题! 如何才能得知当前路径?比如VB的App.Path? 能否向asscess添加图像字段,如果可以,那么要怎样写入和读出,请各位关注 谁知道用代码在treeview web控件中,添加node的方法? 关于金山公司的词霸那样的弹出菜单怎么做? 我从哪里可以买到powerbuilder8的多媒体教学光盘?thanks! 哪伟大侠有GB2322的汉字内码表啊? 关于对眼球经济的探讨(请各联盟盟主来看看!!!) 错在哪里? 如何才能实现将ListView的一列拖到另外一列的位置? 在VC#中订阅消息要手工输入,为什么不做成VB一样?有简单方法吗? 请问网吧管理软件是如何使屏幕变暗,并显示自己的对话框,禁止其他操作的? 第一次用VB,请指教 多线程中如何申请一块存储空间 Code Guard是什么东东?在线等待,马上给分! 这个错误是什么原因啊? 请问怎样获得默认打印机名! 哪位大虾能给小弟一点有关汉诺塔问题的资料呀?! ShellExecute(this.Handle,null,"c:\\",null,null,1)问题再探 PB6.5如何实现选择文件路径对话匡?急!在线等待。 为什么下面的enum定义要有一个方括号? dot menu是什么意思? 请教大侠为什么(333)这句不执行 如何将olecontainer载入的word文件全部显示,而不只显示第一页? 简单问题! 高手帮忙!如何通过服务器来自动查找、替换客户端文件 为何timer控件失效? @这个字符在C#中有何具体意义?不解 如何将sql server的检查约束延迟到Commit时 ado连接sql库问题 为何无法ping自己的地址呢? 滚动条判断 单个窗口程序可以运行,但是几个窗体连在一起就不可以了,好像是多线程的问题,请教各位 关于DBgrid再次求救 今天我好失败——斑竹过两天删除吧,让我宣泄一下 哎呀!!各位何必拉帮结派呢!!!这样不好啦!!影响水园大团结啊~~~没有加入帮派的人就很难在水园呆下去啦。。猪猪。。只有和他们沦为 CreateBitmap 与 CreateCompatibleBitmap 弹出一个窗体但是又不抢占其他窗体得焦点,怎么办? 利用DW-MX制作ASP.NET程序教程! vc中 调用 VB dll 时参数类型如何确定? 谢谢! 如何才能得知当前路径?比如VB的App.Path? Conn.OpenSchema怎么得到字段的信息? 一个进程写在共享内存中的数据被另一个进程读出去后的问题 大家开心开心吧! 笑过后体会体会...... asp与数据库连接的问题?急,急!(在线等待) 大家是怎么查VCL类库的类及函数的? 在线程里有无限循环时,好象不跳出循环就无法终止线程,是吗 UNIX的线程有没有类似Windows线程的消息队列和消息机制? 哪位大虾知道如何在网页中快速刷新显示后台计算的数据? 请问有谁知道PrinterResolution怎么和打印机对象连在一起呀, 偶有一个惊人的发现! 电路有些电阻标出1W的功率,能用相同阻值但不同功率的电阻替换吗? (紧急求助)铁会被磁体吸引说明铁具有_______(化学上的) 草,蝗虫,鼠,麻雀,毛虫,蛇,螳螂,狐和鹰中,有多少条食物链?说出是谁被谁吃 电流采样电阻能不能用功率大的代替功率小的?假设其它参数都 是一样的话. 在一个农田生态系统中,有稻、鼠、食草昆虫、蜘蛛、青蛙、蛇.一共有多少条食物链?写出食物链 细胞膜的流动性有什么作用? 我拿功率大的电阻替换功率小的电阻会不会有问题.我拿功率大的电阻替换功率小的电阻会不会有问题,比喻说我拿一个1W/20欧替换0.25W/20欧的电阻. 老鹰,青蛙,蛇,蝴蝶,麻雀,蜘蛛,水稻,蝗虫,野菊花,狗尾草 组成的食物链必须有四种生物在内多一点 物理兴趣小组的同学在探究“音调与频率的关系”时,做了如下实验:(根据下列步骤,回答相关问题.)实验器材:一张旧年历卡片(或有弹性的硬纸板)、一辆自行车.实验步骤:(1)把自 尽管电阻阻值一样,也不可使用低功率的电阻代替高功率的电阻.我想问的是,难道阻值一样,电阻的功率还会不一样吗? 那条食物链 是对的,A水稻——蝗虫——青蛙——蛇——鹰 B 水稻——老鹰不是说食物链至少是要有生产者和最者消费者吗?那 两个答案都应该对呀,重点 不是给我选个答案 而是 分析“食物链 (2012•乌兰察布)某物理兴趣小组的三个同学做“观察水的沸腾”实验,他们使用的实验装置分别如图a、b、c所示,酒精灯和烧杯均为同一规格.甲、乙、丙是使用这三套实验装置实验后作 已知一次函数的图像经过(-2,5),并且于直线y=3x-4相交于y轴上一点,求此函数的解析式 已知函数f(x)=2cosxsin(x+π/3)+sinxcosx-√3sin²x,x∈R(1)求函数f(x)的最小正周期 (2)若存在x∈【0,5π/12】,使不等式f(x)>m成立,求实数m的取值范围 高粱.水稻.小麦.玉米.老鼠.麻雀.蟋蟀.蝗虫.蛇.鹰之间的生物链有点少 已知一次函数的图像经过点(-2,5),并且与直线y=3x-4相交于y轴上的同一点,求此函数解析式 一个零功率电阻值为10000欧、最大功耗为 500 mW 的 NTC热敏电阻,给它加载多大的电压时它就会烧毁? 在一个烧杯中放入许多碎冰块,把盛有碎冰块的试管插入烧杯中的碎冰块里,现用酒精灯隔着石棉在一个烧杯中放入许多碎冰块,把盛有碎冰块的试管插入烧杯中的碎冰块里,现用酒精灯隔着石棉 已知一次函数的图像经过点(-2,5)并且与直线y=3x-4交与y轴上,求此函数的解析式!烦写出过程啊! 已知函数f(x)sinxcosx-√3sin²x+√3/2(1)求函数f(x)的最小正周期在f(x)在[-π/2,π/2]上的单调减区间;(3)求f(x)在[0,π/4]上的最值及相应的x取值范围 .某面粉厂有一溶剂是24立方米的长方体储粮池,它的长是高和宽的2倍,当贴着它的一最某面粉厂有一溶剂是24立方米的长方体储粮池,它的长是高或宽的2倍,当贴着它的一最大的内侧面将面粉 1206 电阻功率1/4W1206 电阻功率不是1/4W 我用1206 200欧的,加20MA的电流,还不到0.25W呀,发热发的快不行,这是为什么呀,这个电阻能耐多高的温度, 0欧电阻的功耗如何估算? 某面粉厂有一个容积是16立方米的长方体储粮池,它的长是宽或高的2倍,当贴着它一最大的内侧面将小麦堆成一个最大的半圆锥体时,求这堆小麦的体积. 什么是电阻的功率,例如1/4W的电阻,后面可以带多少内的电流例如1/4W的电阻,电压10V,电阻值20欧姆.是不是这样算:功率=电压×电流 电流=电压÷电阻5W=10V×0.5A 0.5A=10V÷20Ω如果是这样算又不对,比 220V输电线电阻为0.1欧,求损耗功率(1)居民楼内消耗的功率为44KW,为保证输入居民楼内的电压为220V,输电线总电阻为0.1欧,供电设备输出电压为多少伏?(2)把电功率44KW调到88KW,所有用电器均正常 一个烧着沸水的烧杯,用冷水往烧杯上泼,烧杯里的水再次沸腾,为啥快 一道麻烦的物理题一只标有"220V 100W"字样的灯泡(灯丝电阻不变)与一只电阻串联后,接在220V的电源上,电阻消耗的功率是10W,则此时( )A灯泡和电阻消耗的总功率为110WB灯泡和电阻消耗的总功 【数学】已知函数f(x)=2cosxsin(x+π/3)-√3sin^2(x)+sinxcosx求(1)函数的最小正周期(2)函数的最大值和最小值(3)函数的递增区间(4)方程f(x)=x/(50π)的根的个数 我家宝宝喝奶粉的水,我通常用矿泉水冲奶, 有一道物理题,麻烦你了质量为M的小车放在光滑水平面上,小车上用细线悬吊一质量为m 的小球,M大于m,于一力F水平向右拉小球,使小球和车一起以加速度a向右运动时,细线于竖直方向成Θ角,细线 已知函数f(x)=2cosxsin(x+π/3)-√3sin²x+sinxcosx(x属于R)1 函数的最大值及取得最大值时的x2 函数的单调减区间 急求各位大大了 物理实验求指教 :一烧杯将水烧开后 .用塞子将口塞住 再浇冷水上去 水会沸腾,是为什么? y=-3x-6关于x轴对称的直线关系式是什么 铁是不是无论有没有磁性都会被磁体吸引 1.有三个用电器,其中一个为“220V,60W”的电风扇,一个为“220V,60W”的白炽灯,另一个是“220V,60W�1.有三个用电器,其中一个为“220V,60W”的电风扇,一个为“220V,60W”的白炽灯,另一个是“220V,60W” 三个相同地电阻串联在电路中,总功率为P,如果并联,求总功率 铁为何能被磁体吸引, 若将两台“220V 400W的电暖器串联接入220V的电路,则两台电暖器的总功率是多少 你知道钢轨为什么要铺在枕木碎石上吗?经实验验证,这样做有以下好处:1减压防陷 2抗震定向 3减少噪声 4防潮排水 5方便保养你能用所学过的知识分析一下吗?分析好的我会加分的 在方格纸上画面积是18平方厘米的三角形画出的三角形的底和高都是整厘米数,可 电暖器(电扇形状的)发的什么 光 电压与伏特、安培、电荷、库仑的关系 急 小张和小李到机场去为朋友送行,看到有一些旅客推着旅行箱走,也有一些旅客拉着旅行箱走.小张突然产生了一个想法,他问小李:“你说推着旅行箱省力,还是拉着旅行箱省力?”小李想了一 某物理兴趣小组为了探究水吸收太阳能的度某物理兴趣小组为了探究水吸收太阳能的本领,做了如下实验:在一个水盆内装入6kg水,水的表面积为0.1平方米,在太阳光下垂直照射15min后,水温升高 我家太阳能电热管加热水温上得很慢最近几天温度还在下降以前停电了坏了仪表重新换过一会那个师傅接线和以前不一样了他说那个加热管线不用通过仪表直接找电源接的线 有点麻烦的一道物理题用刻度尺量出一元硬币的直径,然后令它在课桌上沿直线滚动十圈,试问:1.硬币圆心的位移和路程各是多少?2.硬币圆周上每一点胡的位移和路程的大小是否相同? 绿色植物参与水循环 复习 一只额定电压为220V的电热水器,在正常工作时通电12min,电度表的示数增加0.1kW.h,问1.这个电热水器的电功率多大?2.电热水器电阻多大? y=-3x+6关于x轴对称的直线的解析式 y=-3x+6关于y轴对称的直线的解析式 y=-3x+6关于原点对称的直线的解析式最后那个关于原点对称的要过程! 绿色植物参与生物水循环的形式是什么,他能够增加什么 教室面积是50立方米对还是错 已知直线y=-3x+2 则该直线关于x轴对称的直线的解析式是 设函数f(x)=1-a/2×x²+ax-㏑x﹙a∈R﹚ 1.当a=1时.求函数f(x)的极值 2.当a>1时.函数f(x)的单调性3.若对任意a∈﹙2.3﹚及任意X1 ,X2∈[1,2],恒有ma+㏑2>|f(x1)-f﹙x2﹚|成立,求实数m的取值范围. 一截面积为0.2平方厘米的导线每分钟流过导线截面的电荷为 12库仑,问流过该导线的电流强度是多少安培? y=x2+3x-2关于y轴对称的解析式,关于x轴对称的解析式,关于原点对称的解析式 水稻、稻螟虫、蝗虫、青蛙、麻雀、蛇、老鹰、鱼虾、老鼠、黄鼠狼、猫头鹰、白鹭,它们之间食物链都列一列 教室的面积大约是50() 功率电阻和精度电阻为什么在功率,电阻一样的情况下还不能互相替换?打算用金属膜电阻替换水泥电阻,但是有人说不可以,又解释不出个所以然来. 细胞膜的流动性使细胞膜具有识别外界信息的作用,
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘