24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 399  |  回复: 4
当前主题已经存档。

ddwv

木虫 (小有名气)

还没想好^_^

[交流] 【求助】在Mapbasic中运行chm帮助文件

请教各位,如何能实现在Mapbasic中运行chm帮助文件,或调用其他应用程序呢?急~~,重谢^_^

[ Last edited by ewigkeit on 2008-4-1 at 21:12 ]
回复此楼
My sun!
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

阳光阳光

木虫 (著名写手)

用chm编译器编译好文件后,然后在mapbasic中调用文件就是了。不知对不,以前学过一些,现在都忘了
2楼2008-04-01 18:43:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ddwv

木虫 (小有名气)

还没想好^_^

编译好了 就是不知道如何调用,直接写路径不能识别啊 请问需要用到哪些语句呀
My sun!
3楼2008-04-02 10:28:52
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

DLXXGK

铁杆木虫 (著名写手)

vb中调用.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
网上查询的,没有经过测试,由于mapbasic与vb调用方式有些相同,作为参考!
4楼2008-04-02 14:33:39
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ddwv

木虫 (小有名气)

还没想好^_^

非常感谢楼上的两位,要是有直接的MapBasic的方法就更好啦^_^   我不会转金币,麻烦版主帮忙各转10个金币给他们,谢谢!
My sun!
5楼2008-04-03 10:46:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 ddwv 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 271求调剂 +5 勒布朗@ 2026-03-31 7/350 2026-03-31 16:26 by hypershenger
[考研] 334分 一志愿武理-080500 材料求调剂 +9 李李不服输 2026-03-25 9/450 2026-03-31 16:25 by hypershenger
[考研] 263求调剂 +3 DDDDuu 2026-03-27 3/150 2026-03-31 16:21 by 土木硕士招生
[考研] 085601 329分调剂 +6 yzsa12 2026-03-31 6/300 2026-03-31 15:23 by yanflower7133
[考研] 生物学 296 求调剂 +7 朵朵- 2026-03-26 9/450 2026-03-31 14:26 by jp9609
[考研] 生物考研337分求调剂 +4 cgxin 2026-03-30 6/300 2026-03-31 14:18 by 记事本2026
[考研] 本科211安全工程,初试290分,求调剂 +3 2719846834 2026-03-28 3/150 2026-03-31 13:52 by 热情沙漠
[考研] 085404 22408 315分 +5 zhuangyan123 2026-03-31 6/300 2026-03-31 13:48 by limeifeng
[考研] 求调剂 +4 研s. 2026-03-25 4/200 2026-03-31 10:05 by fmesaito
[考研] 吉大生物学326分求调剂 +3 sunnyupup 2026-03-31 3/150 2026-03-31 09:28 by longlotian
[考研] 291求调剂 +12 Y-cap 2026-03-29 15/750 2026-03-31 09:25 by Huaxue_Wang
[考研] 297 地理学070500 复试求调剂 +3 小圆圈圈ooo 2026-03-30 3/150 2026-03-30 21:05 by 余震yz
[考研] 085600 286分 材料求调剂 +11 麻辣鱿鱼 2026-03-27 12/600 2026-03-30 19:33 by Wang200018
[考研] 105500药学求调剂,一志愿山东大学药学,348分 +3 gr哈哈哈 2026-03-28 3/150 2026-03-30 18:56 by 源_2020
[考研] 0703化学求调剂 +6 丹青奶盖 2026-03-26 8/400 2026-03-30 18:33 by 探123
[考研] 求调剂323材料与化工 +10 1124361 2026-03-24 10/500 2026-03-30 16:26 by 690616278
[考研] 总分293求调剂 +8 加一一九 2026-03-25 11/550 2026-03-29 19:53 by 无际的草原
[考研] 081200-11408-276学硕求调剂 +6 崔wj 2026-03-26 6/300 2026-03-29 01:11 by hanserlol
[考研] 272求调剂 +7 脚滑的守法公民 2026-03-27 7/350 2026-03-27 17:23 by laoshidan
[考研] 材料求调剂 +5 .m.. 2026-03-25 5/250 2026-03-27 11:08 by 不吃魚的貓
信息提示
请填处理意见