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

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

编辑:说三道四文库 发布时间:2017-08-23 12:40
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
回顾:2012年科技行业十大败笔 苹果地图入选 Amazon CEO Jeff Bezos:好年景,大挑战 2012年度盘点:移动互联网大事件回顾 详解Amazon Redshift 移动周报:再见,2012!你好,2013! 英特尔或在2月宣布其电视计划:提供分类频道 Prismatic:用机器学习分析用户兴趣只需10秒钟 谷歌布局亚太地区数据中心建设 服务响应速度有望提升30% 2013年移动互联网行业技术趋势前瞻 老骥伏枥志在千里:回顾微软这一年 2013或将崛起 水落石出:在与谷歌苹果竞购创业公司中微软胜出 用扁平化的界面设计吸引用户 2012年12月份全球主流浏览器市场份额排行榜 冲榜不一定要刷榜:增加游戏曝光度的7大杀手锏 科技vs政治:FTC对Google的反垄断调查结束背后 威胁百度:奇虎360确认将与谷歌达成合作关系 Facebook更新Messenger应用 推免费网络电话服务 网上疯传iOS7概念设计:Dashboard是真是假? 过时的UI设计 Ubuntu手机系统前途不被看好 三星将于今年发布Tizen设备 将对苹果形成威胁? 分享9条经典的编程语录 国际著名黑客大赛介绍与比较 微软Azure CDN服务全球范围内出现宕机 双向多功能U盘:从Android设备到PC还有多远? 证明了自己:微软Win8获美国防部6.17亿订单 2013 Facebook黑客杯报名即将开始 解决Win8下IE10无法打开的故障 [简讯] Scala 2.10.0发布! 收购传闻:Apple一厢情愿还是Waze待价而沽 回顾过去,展望2013:移动开发引擎、工具和语言盘点 成本为0!Netflix开源工具Janitor Monkey清理AWS w18ily是不是现在的这个江湖无赖? 在linux下拨号怎么自动获得dns? 菜鸟都说:这个问题太菜了! 高手请进! delphi调用VC写的dll问题 corba达人快来帮忙!!!!! 不用JavaMail能在页面上直接发信给用户吗? 图像 up有分 大哥大姐们!小弟碰见了感情问题,大家帮帮小弟好吗,郁闷中……痛苦中……这里真的有一种家的温馨,所以小弟畅谈心扉,望大哥大姐帮忙! vc6的mfc里有CUIntArray、CStringArray,为什么没有CFloatArray,自己写怎样实现? 请问fastreport破解版哪里有下载? 这是我作的jsp和bean作的程序为什么不能运行:这一次发的是运行错误的信息。 谁敢拍着自己胸口摸着良心说没有用过马甲的 麻烦了:) 如何建立一个button清空文本框? 关于在RedHat2.1As上安装Oracle9i(9.0.1)的错误问题,帮帮我吧,火烧眉毛了! 急等答案 ,请问数据库中 的Null和零值有什么区别,请给详细解释一下 用FLASHGET无法下载. 趁着各位斑竹到任,赶紧把几个悬而未决的问题提出来,呵呵! com+的调用方式 哪位大侠知道今年计算机等级考试二级C语言还是用Turbo C2。0吗?还是在Dos环境下吗?(100相赠) 关于多媒体定时器的问题,各位进来看看 session出的问题,高手请进来!! 请问,大连雅奇培训如何?请指点。。。。。。 怎样用header()做下载文件? 关于检测组合键的程序怎样写? 菜鸟问题!!!页面显示后台数据 请问软件包LEDA -- library of the data types and algorithms 哪里有下载的? 如何获得当前页面中的所有Textbox控件集合? 如何对两个表操作???谢谢! java的程序在写Dreamweaver 4里写完不可以直接用,是不是 打印的问题 DELPHI5的资源编辑器用起来很不爽,有没有好点的? 帮帮忙~~~~ 请问软件包LEDA 哪里有下载的?谢谢 ado连接远程数据库是以文件共享方式,还是c/s方式啊? 有没有工作的JAVA程序员吗? 简单的语法问题 vb还是不太会用 求教 最菜的问题 如何保存无法保存的网页? 只要每人献出一点爱,人人都能成为程序员 呵呵,又有问题了 苦恼,大家帮忙啊 关于声音处理的一个问题 求英文资料,急!!! 帮忙解释一下程序,谢谢:) 怎样实现这样的存储过程?高手快来! 用过websnap的进来看一下,巨简单! 调试版本与发布版本的区别? 急等答案, sql的基本表是用一个存储文件表示还是用若干个存储文件表示 1、10克氟化钠,用多少毫升水正好溶开成液体?再少了就溶不开了. 2、用双氧水多少能把10克氟化钠溶化成水 如何保证试验仪器设备状态正常 蝙蝠是什么动物?哺乳动物还是卵生动物? 如何理解加权平均资本成本 谁知道耐磨擦试验机的产品用途及特点? 地震中的父与子中出现:无论发生什么,我总会跟你在一起. 为什么为确定得到的是纤维素分解菌,还需要进行发酵产纤维素酶的实验,不是应该产纤维素吗? 纤维素多的食物指什么呢 青蛙和鹅用什么繁殖后代鲸鱼和人类是什么生. 纤维素能用纤维素酶水解,再供给微生物发酵制成乳酸,最后聚合制造聚乳酸吗?请说明理由,否则一律无效! 纤维素高的食物是什么 鹅用什么繁殖 设计一个实验,利用诱变育种的方法,获得产生纤维素酶较多的菌株.1、共4步骤,是什么?2、...设计一个实验,利用诱变育种的方法,获得产生纤维素酶较多的菌株.1、共4步骤,是什么?2、诱变组中菌 什么原因会发生泥石流? 为什么动物的白化种这么常见? 酒精和汽油哪个更易燃? 牙齿最多的哺乳动物 有什么简单的变废为宝的方法哦 南平市冬天最高温度 没有牙齿的哺乳动物是什么 将污染通过什么方法变废为宝呢? 为啥会发生泥石流 哺乳动物牙齿分化的意义? 从高楼相隔一秒先后释放两个相同材质制成的小球假设小球做自由落体运动则它们在空中各个时刻的间距怎样化 为何会发生泥石流? 为什么会发生泥石流?怎么导致的? 在空中的某点A,让小球自由落体,到达地面的时间为0.8s,仍在A点以vA的初速度竖直上抛小球,需要1.6s才能在空中的某点A,让小球自由落体,到达地面的时间为t=0.8s,仍在A点以V的速度竖直上抛小球, 是什么原因会发生泥石流? 人类以后会进化吗? 为什么,当绿色的光射到红纸上,纸会成黑色,而当红色的光射到绿色的纸上,纸就变成了黄色?这两个不是一样的吗麻烦说清楚点 为什么会发生泥石流? 地震中的父与子中心思想是什么? 2012年会不会出现九星连珠 牛顿有没有结婚 向哥哥借500元,向姐姐借500元,买双鞋花了970元,剩了30元,还姐姐10元,还哥哥10元,自己还有10元,一共990元,剩下的10元去哪里了? 养殖青蛙从卵到出售要多长时间? 甘肃为什么会发生泥石流 在姐姐那借500元钱在哥哥那借500元钱、买鞋花970元剩30元还姐姐10元还哥哥10元,自己剩10元欠哥哥490元欠姐姐490元490+490=980加上自己剩的10元等于990元那10元哪去了? 初二,变废为宝或小发明,设计图,急求~~~~~~~~~ 感激不尽 甘肃舟区是因什么原因发生泥石流的. 生活中的摆动有哪些?诸如钟表摆动、秋千、台秤的指针,还有什么是摆动的呢? 筛菌用的氨苄(amp)有什么味儿吗?10mM的,我的amp失效没有? 叶绿素是怎么在植物体形成的? 在台秤上放一个空的金鱼缸,然后用玻璃杯盛满水,一杯一杯地往里倒.当倒进2杯水时,台秤上的指针指向600克,当倒进5杯水时,台秤上的指针指向750克.当倒进8杯水时,台秤上的指针指向多少克? 检验试管气密性实验的原理用手捂住试管的那个 甘肃曲舟发生泥石流的因素有哪些?请回答者要有简明的概括力度(请混工分的敬而远之) 哺乳动物有几类 做实验时 应该先检查气密性还是先装药品如果先检查气密性再装药品 那么不会有空气又进入试管中吗 三角形的三个顶点是A(6,3)、B(9,3)、C(3,6),求它的三个内角的度数做的好,我会加分的, 九星连珠会发生什么 容器中装有水,水对容器底的压力为10N,如把重13N的木块放入,木块浮在水面,水也没有溢出,则此时水对容器底的压力为()A.等于13N B.大于13N C.小于3N D.条件不知,无法判断 英文字母t 应该先写哪一笔 已知三角形顶点为A(2,0),B(-1,4),C(5,1)求三角形三个内角及面积 大肠杆菌培养及计数在对培养的大肠杆菌进行活菌计数时,发现琼脂表面有乳白色微偏暗的直径约4~5mm的菌落,琼脂底部与培养皿接触的面上有浅色较浅的白色直径约3mm的菌落,而琼脂内的菌落 把质量为m的物体从地面竖直向上抛出,抛出时物体的初动能为Ek0,物体从抛出到落回地面的过程中受到的空气阻力的大小恒为重力的0.2倍,求:(1)物体可上升的最大高度H(2)物体运动到高度 物体由静止开始自由下落,经2S落到地面,不计空气阻力 取g=10m/s^2下列判断正确的有A物体从40M的高处开始下落的B物体从20M的高处开始下落的C物体落地的速度大小为20m/sD物体落到时的速度大小 怎么用血球计数板和鉴别培养基鉴别大肠杆菌? 物体从离水平地面h高处水平抛出,落地时间的速度方向与水平面成θ角,那么,物体水平抛出的初速度是 上弦月和下弦月 色光的合成,列举.如:红加绿合成黑…… 中国公司承建的斯里兰卡高速路通车伊拉克北部自杀式炸弹袭击致数十人伤亡德媒:美国监听德国总理手机 奥巴马知德媒称奥巴马默许窃听默克尔手机河北首条省内低成本航线通航 机票最低综述:中国西藏文化周藏学家交流活动受中国房地产商在澳投资“风生水起”浙商二代展开青春对话 宗馥莉称不努力调查指:中国20年“农转非”比例仅增第九届两岸经贸文化论坛在广西南宁闭幕浙江力推“国民共进” 促“国字号”“长三角“绿色制药”协同创新中心:让百教师因婆婆不拆迁调岗至拆迁部 称曾被跨国公司巨头和学者会聚上海探讨城市“马尼拉市长最快下月底赴香港道歉 或赔上海自贸区满月在即 创新运行框架基本韩正:上海自贸区将适时引入第三方评估安倍再次表示推进探讨行使集体自卫权阿根廷学者认为克里斯蒂娜连任机会渺茫学者称克里斯蒂娜连任机会渺茫 应加强阿根廷学者认为克里斯蒂娜连任机会渺茫你最习以为常的时刻走失游敦煌莫高窟 须提前预约男生:聊得来、有眼缘服刑人员发明游泳呼吸器获专利夏日亲水游 就去龙河漂流徒步赴震中 李克强为伤员让路吉大副校长被查获奖名单公布新版《中小学生守则》删除“见义勇为”蜂蜜市场:国内主要生产非成熟蜜买房子,要地段还是要面积?北汽幻速在徐州正式亮相公交行驶中配电箱起火夏季警惕中耳炎来袭暑期旅游旺季 参团出游更实惠2014秋季车展一万余元学费成难题血液保健,蜂胶是个好帮手跨京杭运河大桥说学逗唱皆精通遭房主勒索千元
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘