24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 397  |  回复: 4
当前主题已经存档。
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

ddwv

木虫 (小有名气)

还没想好^_^

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

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

[ Last edited by ewigkeit on 2008-4-1 at 21:12 ]
回复此楼

» 猜你喜欢

My sun!
已阅   回复此楼   关注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的回帖
查看全部 5 个回答

阳光阳光

木虫 (著名写手)

用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的回帖

ddwv

木虫 (小有名气)

还没想好^_^

非常感谢楼上的两位,要是有直接的MapBasic的方法就更好啦^_^   我不会转金币,麻烦版主帮忙各转10个金币给他们,谢谢!
My sun!
5楼2008-04-03 10:46:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 070300一志愿211,312分求调剂院校 +10 小黄鸭宝 2026-03-30 10/500 2026-03-31 14:22 by 六翼TMR
[考研] 290分调剂求助 +9 吉祥止止陈 2026-03-25 9/450 2026-03-31 14:16 by 六翼TMR
[考研] 土木304求调剂 +4 兔突突突, 2026-03-31 5/250 2026-03-31 11:29 by 北风之神.
[考研] 323分 食品与营养调剂 +3 嘿ooo 2026-03-31 3/150 2026-03-31 09:38 by longlotian
[考研] 085601一志愿中山大学深圳材料工程330求调剂 +5 pipiver 2026-03-30 5/250 2026-03-31 07:37 by JourneyLucky
[考研] 083000环境科学与工程调剂,总分281 +4 橙子(胜意) 2026-03-30 4/200 2026-03-31 00:44 by Linzejun
[考研] 085701环境工程求调剂 +11 多久上课 2026-03-27 12/600 2026-03-30 21:21 by 研究僧导导
[考研] 304材料求调剂 +5 钟llll 2026-03-26 5/250 2026-03-30 19:37 by 源_2020
[考研] 297求调剂 +17 田洪有 2026-03-26 18/900 2026-03-30 18:32 by nothing投稿中
[考研] 材料化工340求调剂 +3 jhx777 2026-03-30 3/150 2026-03-30 17:54 by JourneyLucky
[考研] 311求调剂 +10 lin0039 2026-03-26 10/500 2026-03-30 10:26 by herarysara
[考研] 本科双非材料,跨考一志愿华电085801电气,283求调剂,任何专业都可以 +6 芝士雪baoo 2026-03-28 8/400 2026-03-29 08:16 by 松花缸1201
[考研] 070300求调剂306分 +4 26要上岸 2026-03-27 4/200 2026-03-28 13:06 by 唐沐儿
[考研] 材料求调剂一志愿哈工大324 +7 闫旭东 2026-03-28 9/450 2026-03-28 08:51 by Xu de nuo
[考研] 308求调剂 +7 墨墨漠 2026-03-27 7/350 2026-03-28 07:43 by 热情沙漠
[考研] 295求调剂 +5 1428151015 2026-03-27 6/300 2026-03-28 04:04 by fmesaito
[考研] 调剂推荐 +5 清酒714 2026-03-26 6/300 2026-03-27 11:12 by 不吃魚的貓
[考研] 336材料求调剂 +7 陈滢莹 2026-03-26 9/450 2026-03-27 00:20 by wxiongid
[考研] 081200-11408-276学硕求调剂 +3 崔wj 2026-03-26 3/150 2026-03-26 19:57 by nihaoar
[考研] 347求调剂 +4 L when 2026-03-25 4/200 2026-03-25 13:37 by cocolv
信息提示
请填处理意见