24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 401  |  回复: 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的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 329求调剂,一志愿西北工业大学,材料工程(085601) +6 小小机灵虫 2026-03-29 12/600 2026-03-31 16:58 by 记事本2026
[考研] 334分 一志愿武理-080500 材料求调剂 +9 李李不服输 2026-03-25 9/450 2026-03-31 16:25 by hypershenger
[考研] 070300化学求调剂 +10 小黄鸭宝 2026-03-30 10/500 2026-03-31 15:20 by yanflower7133
[考研] 化学308分调剂 +8 你好明天你好 2026-03-30 9/450 2026-03-31 15:07 by 690616278
[考研] 一志愿哈尔滨工业大学材料与化工方向336分 +13 辰沐5211314 2026-03-26 13/650 2026-03-31 14:37 by 记事本2026
[考研] 269求调剂 +4 我想读研11 2026-03-31 4/200 2026-03-31 10:04 by cal0306
[考研] 材料学硕333求调剂 +18 北道巷 2026-03-24 18/900 2026-03-31 09:56 by luoyongfeng
[考研] 332求调剂 +14 032500 2026-03-25 14/700 2026-03-30 20:03 by 无际的草原
[考研] 359求调剂 +5 王了个楠 2026-03-25 5/250 2026-03-30 19:36 by 源_2020
[有机交流] 考研调剂 +8 watb 2026-03-26 8/400 2026-03-30 18:40 by 544594351
[考研] 一志愿厦门大学材料工程专硕354找调剂!!! +5 贝呗钡钡 2026-03-30 5/250 2026-03-30 18:16 by 无际的草原
[考研] 332求调剂 +6 @MZB382400 2026-03-28 6/300 2026-03-30 16:57 by 无际的草原
[考研] 071010 323 分求调剂 +3 Baekzhy 2026-03-27 3/150 2026-03-30 14:24 by andresqi
[考研] 284求调剂 +14 junqihahaha 2026-03-26 15/750 2026-03-30 14:12 by 探123
[考研] 本科新能源科学与工程,一志愿华理能动285求调剂 +3 AZMK 2026-03-27 5/250 2026-03-28 16:19 by xxxsssccc
[考研] 304求调剂 +6 曼殊2266 2026-03-27 6/300 2026-03-28 14:10 by 唐沐儿
[考研] 315分求调剂 +7 26考研上岸版26 2026-03-26 7/350 2026-03-28 04:05 by fmesaito
[考研] 295求调剂 +5 1428151015 2026-03-27 6/300 2026-03-28 04:04 by fmesaito
[考研] 考研调剂 +9 小蜡新笔 2026-03-26 9/450 2026-03-27 11:10 by 不吃魚的貓
[考研] 材料求调剂 +5 .m.. 2026-03-25 5/250 2026-03-27 11:08 by 不吃魚的貓
信息提示
请填处理意见