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

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

编辑:说三道四文库 发布时间:2017-12-18 09:37
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
美国白宫任命Twitter法务总监Nicole Wong为副CTO Keek宣布推出首款视频Update API 专访阿里前端工程师:淘宝移动Web开发那些事儿 【直击美国云计算】为什么eBay用燃料电池来驱动他的犹他州数据中心 【直击美国云计算】6周发布新产品,LinkedIn的trunk-based开发 移动周报:疯狂吐槽还是更得欢心?细数iOS 7的是与非 国内最受欢迎的开源项目集锦 开始3D编程前需注意的十件事 [CTO俱乐部第100期]软件平台的新思维及2345技术团队管理经验分享 失败怪圈:今天的移动App在重蹈1999年的覆辙 极客编程必备的五大PHP开发应用 Oracle或将宣布与Salesforce.com,NetSuite以及微软结盟 【专访间】神州数码谢耘:智慧城市需要以“融合平台”为特征的沃尔玛模式 对话OW2 CEO:开源≠安全隐患,免费≠无利可图 不断抄袭的Facebook正逐步沦为一家普通的公司 Windows 8.1会不会把Windows 8的“Modern”开发者踢到路边 任志鹏:FusionCloud是华为二十年技术积累的精华 机器学习典范?iOS7中的Siri能主动学习如何发音 三星宣布关闭PC业务 主推便携设备和一体机 Web设计师必须掌握的六大设计策略 Facebook为什么要推Instagram视频分享功能? 天气预报(id后面的9位数字为城市代码)年月日,星期,当前时间(仅用于javascript) PHP 5.5.0发布 不再支持Windows XP和2003 专访ThinkPHP创始人刘晨:用最简单最快速的方式开发PHP应用 重构:仔细查看,改进代码 加速编码的17款最棒的CSS工具 生于微信:专访疯狂猜图CEO曹晓刚 谷歌:受感染的合法网站远比恶意网站危险性大 Mozilla正式发布Firefox 22应用程序开发者受益 支持3D游戏、视频通话和文件分享 直接拿来用!最火的前端开发项目(一) Salesforce.com和Oracle在云合作上达成长期协议 程序有两个线程时,如果子线程是个死循环,永远不停(如监听一个Socket),那当我的主线程return了后,程序会不会退出呢? 我重载了WM_NCPAINT来画窗体边框和标题栏,可是菜单就不见了,如何给画出来? 如何将INTERBASE中的数据导出到EXCEL文件中?! 关于C# 需要server2003企业中文版(激活的)地址! sql查询问题 update 的问题 急!IIS连接不上 装上JDataConnection Server之后,在数据源ODBC中的驱动程序列表中没有JDBC驱动算不算问题,高分求解! 短消息服务提供商(SP)程序问题 activeX控件问题,急盼高手帮助! 请教八数码难题的解法! 如果一个dll,在它里面有一个窗口,而有一个函数是这个窗体类的一个函数,那么如果在使用这个dll文件中的这个函数。 谁能给一个测试是否是EMAIL的函数?急! 如何实现关键字查询? 只能让家里的电视出现更多的台,比如解码器什么的! 急问:那位了解 sys/wait.h ,它的功能是什么? 求MICROSOFT VISUAL STUDIO.NET 2002 中文企业版,2003不要,谢谢~ saucer(思归)在吗?有问题请教! 哪里有C++ Builder 下载的。 TTrayIcon中的图标颜色只能显示16色的吗? HELP!!!XML怎么写成物理文件到本地? 这是为什么呀?电脑高手请进。。。 也说技术人员创业 高分:虚拟主机问题 快被OVERLAY搞死了,急救 中了“盗贼”木马,如何删除? 请网络高手来看看这个问题,给我点提示和建议?急急急 汉字在exe 文件的十六进制 能否 转换得来? 气死人了,在jbuilder8中被logic:iterate搞死了,累,急救 pb数据窗UPDATE的怪问题!很怪!!! 配置问题求救! 请问Access中可以用select case ........when else end的函数吗? 一定要把AutoPostBack设定成true才能响应事件? 但是那样动态生成的控件又都没了…… 急 哪位知道哪有OpenGL高级编程的培训 短消息服务提供商(SP)程序问题 那里能弄到解码器~~~~~~~~~~~~~~~ 马上就要毕业了,请先辈们指点迷津!!! 安装 Duwamish 7.0 和 PetShop 3.0 时的问题? 一个二维数组的问题,请指教 tdbgrid 锁定行,使改行不可编辑 能否实现这样的功能:如果是A登陆,则可以看见一个按钮a;如果不是A登陆,则按钮a不可见。 本人查看过往的薪水调查的贴子,看到大多数人都在贫困线(2K)下,这JSP技术已经没什么钱途了.转向吧! rm格式的文件不能正常播放用什么软件修复呢? 请问用java编好的软件,如何打包发布呀?急~~~ 怎样在对话框里设置背景图片? 帮帮我!我弄了好久拉! 请解决了clientdataset的filter中使用like过滤中文单汉字的高手进来解决一下 如何禁止菜单栏“窗口”项中的窗口列表 如何用xml显示,从数据库图像字段中导出来的图片信息,显示为图片!代码如下... 紧急求助:CSocket的问题 "因土质疏松,造成(建筑物)地基下沉"用英语怎么说(机译免进) 菲律宾靠近中国哪个地方 关于物体漂浮问题密度均匀的物体漂浮在某液体中,若把物体切成大小不等的两块,则大块、小块都——为啥米?用公式推导解释 一轻质弹簧竖直放在水平面上,一质量为M的物块放在弹簧上求当物体下落到最低点时的加速度 世界上最大的群岛位于哪个大洋 琮是什么意思 作文:______伴我成长 不能填读书. 没想到在这里遇见你 的英文如何表达 已知μm θ q B 滑块带负电 斜面足够长 静止释放滑块 问当滑块脱离平面时加速度最小值和最大值问当滑块脱离平面时加速度最小值和最大值 和速度的最大值 南纬24.55°东经25.99°在哪? 放船分段的地基 俗称 胎位 英语怎么说啊造船业 约旦河西岸推进环保 巴以或实现“环境俄罗斯富人与穷人代名词:寡头、工薪族英媒窃听案中两名涉案编辑被传系恋人关美将俄歌星列入黑名单 俄抗议表示不可沙特女性反抗禁驾令 小伙因改编歌曲助多伦多市长涉吸毒视频被查获 其友涉嫌美澳等多国驻外使馆被曝精心伪装 监听美墨边境发现新贩毒地道 配电力轨道和经济滞缓导致欧元区通胀率降至2009英媒窃听案中两名涉案编辑被传系恋人关美将俄歌星列入黑名单 俄抗议表示不可太平天国做过这么一件事 出人意料人民币或成第三大货币影响移民投资《007:幽灵党》:竟然是史上最闷骚A股不相信眼泪:4个月2.5万个超大3700点的阻力何时能破?清仓清仓!今日惊现诡异大洗盘!84平日式婚房,甜蜜的可爱气息机构揭示8只黑马股 值得满仓布局(165亿收购华置成都三项目 3个月恒大痛苦 ?是因为你还不够专注重磅:11月底大盘真正的走法,惊人大豪门小老婆湘妃剑绣花王爷:杀手王妃不好惹星辰界星盗风流鸳鸯刀冥神的莲花亿万契约:邪少的甜心妻斩青丝:第一皇妃现代冥帝传不死之穿越甘德尔山奇峡谷旅游瀛洲生态公园旅游森林浴场旅游大庆北国温泉旅游东水门旅游黑水国遗址旅游南京万人坑旅游无锡樱花谷旅游梅园横山旅游后街清真寺旅游南池公园旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘