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

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

编辑:说三道四文库 发布时间:2017-01-23 06:26
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
恭喜!麻省理工两密码学教授获2012图灵奖 Rovio的逆袭,发布首款RPG游戏“克鲁德一家” 百会呼吁微软提供合法经营Office 365的相关证明 谁说Vim不是IDE?(四) RDS升级:单DB实例最高可获得3TB存储和3万IOPS 移动周报:“先验证,后开发”的App开发必杀技 Supercell首席执行官谈公司运营理念 SwiftKey:Galaxy S4输入法背后的开发团队 前IE团队领导:IE是如何走向衰败的 谷歌更新BigQuery 允许在其中加入大型数据集 初创公司Spiral Genetics:超越现有DNA序列分析平台40倍速 六大开源监测工具 你用过哪个? TUP第28期:Intel 微软 Yahoo的大数据实践 惊变14天,从“小白”到上架App Store商店 “今日头条”CEO张一鸣:我是爱冒险的技术宅 OpenStack基金会COO Mark Collier:2014年将超越AWS Evernote更新Android SDK:新增商务服务并拆分“印象笔记” 主流编译器对C++11的支持现状比较 GCC 4.8发布,提升对C++11的支持 英国政府下令首选开源软件 为何美国IaaS收购被引爆?基于IaaS的四个误解和四个猜想 Kinect SDK v1.7迎来重大更新 如何激励同事编写单元测试? 谷歌GCE vs. 亚马逊EC2:快源于谷歌本有的底蕴 不要责怪开源技术 它是无辜的 短命:微软将于2014年停止对WP8系统支持 Native和Web过时了,企业级移动开发流行用Hybrid App 与EverNote竞争?谷歌Google Keep浮出水面 又一次跨越:著名3D游戏引擎Unity版本更新 Feedly团队:自研后端平台或将开源 StackMob的诱惑:16小时,山寨一款移动App sql server的SERVER端效率问题 VB6如何实现换肤功能 如何用对话之外的其它按钮控制对话框的关闭和打开 ! 关于picture的问题 算法与数据结构 寻找关于Dsound,Dplay方成的书籍或方档!! 如何在xsl中使用setTimeout()而得到渐显的效果? 在外面工作,做底层有钱途吗? 关于form的简单问题 搞过用TurboC开发图像,不知道转VC困不困难 有谁知<<终极杀阵>>游戏(Project IGI)第四回合怎玩的? 不知是否荒唐,大虾请 如果大家有问题告诉我(anjie@zj.soim.com) 如果大家有问题告诉我(anjie@zj.soim.com)一起讨论吗 想跟我交朋友anjie@zj.soim.com tc++3.0如何编写读鼠标程序(急) 都进来看看,程序员的下场... 各位高手,小弟问一个傻问题:怎么在播放一个AVI的时候用自定风格的滑块控制? 我上次在CSDN 上看到有人发贴子说自己写操作系统,我现在有个朋友也在写,想和他联系,但是我现在找不到那个贴子了, 有谁记得那个人的名字或贴子的位置请说.谢谢. 求助:打开网上邻居很慢为什么? 问一个蠢问题:控件何时获得焦点 请问一下哪里再收购软件呢? 请问一下在哪里可以找到收购软件的公司呢? 想作一个DOS程序,实现多台电脑间通过网卡传输文件. 辞职信 application.initialize完成了什么 高手来帮忙啊~ 看看java的魅力 如何通过自制程序的编辑框向现有一般应用程序编辑框传送内容? 窗口执行顺序问题,请多帮助,谢谢 如何自动取得server的日期和时间 怎样让文件指针指到文件末尾,必须skipline一行一行跳吗? 我想在菜单前添加图标,使用Bitmap属性但是为何只能载入*.bmp文件而不能使用*.ico文件,我只有*.ico的图标,请问该如何解决。 有新建一个文本文件并给其命名的函数吗,怎么用 我还真不懂呀? 这个COLTYPE是怎么用的呀?你说它怎么得到表中字段的类型呀? 有关存储器(ram,rom)的编址问题。以及32位或更多位芯片的问题。 一些汇编问题。想来问bcb的兄弟{bcb里好象有不少汇编高手} 救命:在安装了sco openserver之后,系统不能启动,先前安装的win98和win2k也不能。 请问如何进行URL译码??? 请问怎样截取一个string中的一段? 请问delphi做的exe最小可以到多少?怎么做? 我想请问一下WINGATE的具体怎样在WIN2000服务器版中进行设置。 ASP的同志们,能不能留一下QQ号码? 请问何处有破解ACCESS2000的程序或源代码呢? 请问要在TEdit.text组件文本串中找出当前光标在第几个字符上怎么办?谢谢! 请问关于dbImage控件的使用方法? 关于HDC及双缓冲的问题? xxxbird(*说你行,你就行,不行也行*),来领“我遇到几个怪问题。。。。。。”中的分 为什么ASP没法向SQL Server中写入数据?代码什么地方错了 大家帮忙找一下,找到我给50分 exe 捆绑机怎么做? 如下图,三个半径都是2cm的圆两两相交圆心,阴影部分的面积是多少平方厘米?画的不是很标准,看得懂就行,打得好的另加悬赏 如图,半圆内的△ABC的面积是80平方厘米,BD长8厘米,求阴影部分的面积. 如图所示,直径为30厘米的半圆旋转了30度,求阴影部分的面积~ 如图,外圆的半径是Rcm,内圆的半径是rcm,四个小圆的半径都是2cm,则图中阴影部分面积是多少?急不要用^这个符号,我看不懂 半圆o内的三角形ABC的面积是80平方厘米,BD=8厘米.求阴影不分面积. 如图,直径为30厘米的半圆旋转了30度,求阴影部分的周长与面积 一个直径为6分米的半圆,里面有一个直角三角形,求三角形外阴影部分面积. 如图,半圆内三角形ABC的面积是24平方厘米,高BD是4厘米,求阴影部分面积是多少平方厘米. 如图,直径为30厘米的半圆旋转了30度,求阴影部分的面积和周长. 急!一个半圆,内有直角三角形,求阴影部分的面积 右图中BC是半圆的直径,图中阴影部分1的面积比2的面积少5.12平方厘米.AC长多少厘米?(BC等于8厘米) 如图所示,直径为30厘米的半圆旋转了30°,求阴影部分的面积 如图,将半径为4cm的圆形纸片折叠后,圆弧恰好经过圆心O,折痕为AB,则图中阴影部分的面积为 已知直角三角形ABC三边分别为6.8.10,分别以它的三边为直径向上作三个半圆,求阴影部分的面积 下图的比例尺是1:500,在图上量得长是15cm 宽是8cm ,求阴影部分的实际面积是多少? 以三角形的三个顶点为圆心,以一厘米为半径在三角性内画圆弧,那么图中阴影部分的面积总共为多少? 求阴影部分的面积三角形空白是个直角三角形半圆直径6cm. 下图的比例尺是1:500,在图上的距离长是15cm,宽是8cm,求两个阴影三角形合起来的面积的面积. 四个半径都是8cm的圆的位置如图所示,你能求出阴影部分的面积吗?上面俩圆下面俩圆然后四边连起来不是连成正方形半径相连就行除了四个圆其它的都是阴影部分 下图中等腰直角三角形的腰长是6厘米,求阴影面积的面积 下图的比例尺是1:500,在图上的长是15厘米,宽是8厘米,求阴影部分的实际面积是多少平方米?4月17号就要大家看见的都来帮帮忙谢谢了! 长为8cm,宽为6cm的长方形内,分别以长和宽为半径画1/4圆,如下图所示,求阴影部分面积? 等腰直角三角形的一腰长是8厘米以它的两腰为直径分别画了两个半圆那么阴影部分面积共有多少平方cm 小圆直径8厘米,比大圆半径少3/11.小圆的面积是( ),大圆周长是( ). 图中圆的半径为5厘米,求阴影部分的面积. 如图,等腰直角三角形的一腰的长是7厘米,以它的两腰为直径分别画了两个半圆,那么阴影部分的面积共有多少 大圆的半径是12厘米,小圆的直径是8厘米,大圆周长和小圆周长的最简整数比是多少?面积比又是多少?要有算式 图中圆的半径为5厘米,求阴影部分面积. 如图是有一个直径为a的半圆和一个腰长为a的等腰直角三角形组成的图案,求阴影部分的面积 大圆的直径是8厘米,小圆的直径是6厘米,大圆和小圆半径的比是( ),周长的比是( ),面积的比是( ) 如图,最大圆的半径为5厘米,试求阴影部分的面积和要求写清过程 , 这是七年级第一学期的数学. 如图,BCDE是平行四边形三角形ABC是直角三角形,BC=8厘米,AC=7厘米,阴影部分面积比三角形AGF的面积大12CM,图片1求AC的长? 小圆的半径是8厘米,大圆的半径是12厘米.小圆和大圆的直径比是(),周长比是(),面积比是(). 图中,每个圆的半径是5厘米,求阴影部分的面积. 右图,ABC为等腰直角三角形,D为半圆的中点,BC直径长为8厘米,求阴影部分的面积. 小圆直径8厘米,大圆直径比小圆直径多三倍,小圆周长是大圆周长几分之几?小圆面积是大圆面积几分之几? 三个半径为1的等圆两两外切,那么图中阴影部分的面积为 在图中,△ABC与△ADE都是等腰直角三角形,BC长8cm,DE长4cm,求阴影部分的面积.要有算式,快~注:BC是△ABC的最长的边,DE是△ADE的最长的边 小圆直径是4厘米,大圆半径是4厘米,小圆面积是大圆面积的几分之几? 两圆的半径为1厘米,且图中的两块阴影部分的面积相等,那么两个圆心的距离是多少? 图中△ABc与ADE都是等腰直角三角形,BC=8厘米,ED=4厘米,求阴影部分的面积. 如图,已知小圆的直径等于大圆的半径,求阴影部分面积是大圆面积的几分之几 如图,外圆半径是Rcm,中圆半径是rcm,其余四个圆半径相等,则图中阴影部分的面积是多少? 在下图,三角形ABC与三角形ADE都是等腰直角三角形,BC长8厘米,DE长4厘米,阴影部分的http://tg5a39.mail.163.com/js3/main.jsp?sid=qAlTrsGGRaJSzSVkKgGGrgOwtgKKJtvg里面的附件就是图形。要快,越快越好 用户名:ty.p 如图,大圆半径为6,求其阴影部分面积 如图,外圆的半径是Rcm,内圆的半径是rcm,四个小圆的半径都是2cm,则图中阴影部分面积是多少? 三角形ABC与三角形ADE都是等腰直角三角形,BC长8厘米,DE长4厘米.求阴影部分的面积.请详细说明每一步算下什么. 如图 ,大圆半径为6,求其阴影部分的面积 一个半径为根号二的圆过一个半径为2的圆心,则图中阴影部分的面积为多少?图自己画,是月牙形的!最好两天之内有回复! 一个长方形长10厘米,宽8厘米,里面有一个为5厘米的半圆,其余部分为阴影部分,求阴影部分面积. 如图,小圆的5分之2是阴影部分,大圆的8分之3是阴影部分,求大圆面积与小圆面积的比. 矩形ABCD中,AB=1,AD=根号2.以AD的长为半径的圆A交BC于点E,则图中阴影部分面积为? 如图二所示,ABCD是一个长方形,长是8厘米,阴影部分的面积是()平方厘米?圆没画好!求阴影! 如图,大圆半径=小圆直径=8cm,求图中阴影部分的面积. 如图,圆o的半径为2,a是圆o外一点,ab切圆o于点b,ao交圆o于点c,ab=2根号3,求图中阴影部分的面积 一个长方形里有一个半圆,长方形的长是8厘米,求阴影部分面积 如图,阴影部分的环宽恰好等于较小圆的半径,阴影部分的面积是较大圆面积的()A.1/4 B.1/3 c3/4图在下面速回答,明天交.今日回答奖励50分! 如图所示外圆半径是Xcm,内圆半径是rcm,四个小圆的半径都是2cm,则图中阴影部分的面积是多少?(2)当X=10,Y=5时,阴影部分的面积是多少?错了,四个小圆半径为3cm 下图中等腰三解形的腰长8厘米,求阴影部分的面积 如图直径为30厘米的半圆旋转了30度,求阴影部分的面积与周长
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn