24小时热门版块排行榜    

查看: 463  |  回复: 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 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 这样的filecode谁见过 +3 布布和一二 2026-08-08 5/250 2026-08-08 12:22 by 仁砚薪传
[基金申请] 关于代码变化问题,想知道的进来 +10 且听虎啸 2026-08-07 13/650 2026-08-08 12:09 by sakura12139
[硕博家园] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 Vi50GxzrFcSG 2026-08-07 6/300 2026-08-08 10:19 by 3OOjAIS77qg2
[基金申请] fileCode有新解读? +8 Tide man 2026-08-08 16/800 2026-08-08 09:59 by Tide man
[考博] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 HEQlVqMTIA7d 2026-08-07 3/150 2026-08-08 03:47 by 6vVgjDL4CnGu
[基金申请] 基金中了 +14 laoda193707 2026-08-06 14/700 2026-08-08 00:23 by 实验小白ha
[基金申请] 关于filecode +4 布布和一二 2026-08-07 7/350 2026-08-07 22:55 by zhanghaozhu
[基金申请] 固定端突然变了,今天 +6 archvillain 2026-08-06 10/500 2026-08-07 16:03 by 医学老男孩
[基金申请] filecode与中标关系的预测 +3 布布和一二 2026-08-07 3/150 2026-08-07 15:09 by gltch
[论文投稿] 十年后又回来了,论文投稿求助 +4 哈哈114477 2026-08-01 4/200 2026-08-07 14:39 by jgy194592
[基金申请] 大家散了吧,后缀研究没有意义,别浪费时间了,过好目前的每一天,不要焦虑 +5 Tide man 2026-08-06 7/350 2026-08-07 13:11 by 医学老男孩
[基金申请] 关于豆爷回答的JTJC与%2F数量 +4 yang182083 2026-08-06 6/300 2026-08-07 12:43 by 虫友是什么虫
[基金申请] filecode +8 布布和一二 2026-08-06 11/550 2026-08-06 20:41 by tangpu318
[基金申请] 求各位大神看下 100+6 hpkpkpkp 2026-08-05 33/1650 2026-08-06 14:49 by zhiyanjiang
[基金申请] 影响面上的因素 +8 布布和一二 2026-08-05 11/550 2026-08-06 10:41 by 宝贝虫子
[基金申请] 8月时间戳变的,举个手。玩一下,释放压力 +9 archvillain 2026-08-04 11/550 2026-08-05 20:06 by wlwhappy
[基金申请] 好消息?这个有何含义??? +8 Tide man 2026-08-05 10/500 2026-08-05 16:14 by xmuxiaoyu
[考博] 【2027博士申请】纳米药物递送方向 20+3 13586093586 2026-08-03 4/200 2026-08-05 09:59 by lfy8008
[基金申请] 纯娱乐,不喜欢勿喷 +7 Tide man 2026-08-04 10/500 2026-08-04 15:10 by loufangrui
[基金申请] 面上提前没消息,有中的吗 +14 archvillain 2026-08-02 18/900 2026-08-04 14:42 by archvillain
信息提示
请填处理意见