| 查看: 487 | 回复: 4 | |||
| 当前主题已经存档。 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
ddwv木虫 (小有名气)
还没想好^_^
|
[交流]
【求助】在Mapbasic中运行chm帮助文件
|
||
|
请教各位,如何能实现在Mapbasic中运行chm帮助文件,或调用其他应用程序呢?急~~,重谢^_^ [ Last edited by ewigkeit on 2008-4-1 at 21:12 ] |
回复此楼» 猜你喜欢
2025国家自然科学基金放榜时间，根据官方回应，8月15日基本没戏了
已经有5人回复
-
各位未来院士帮忙看看评审意见
已经有12人回复
-
地球化学论文润色/翻译怎么收费?
已经有267人回复
-
【招聘】科研助理+五险一金
已经有868人回复
-
《风吹过日常的缝隙》
已经有0人回复
-
招聘博士研究生
已经有45人回复
-
诚邀
已经有0人回复
-
考研求调剂
已经有4人回复
-
考研求调剂
已经有2人回复
-
东北石油大学地球科学学院地质资源与地质工程专业接收调剂
已经有0人回复
-
香港城市大学 数据科学系+能源与环境学院 李堂华 课题组诚招全奖博士/博士后/研究助理
已经有775人回复
DLXXGK
铁杆木虫 (著名写手)
- 应助: 2 (幼儿园)
- 金币: 9845.6
- 散金: 104
- 帖子: 2342
- 在线: 163.8小时
- 虫号: 250378
- 注册: 2006-05-13
- 专业: 区域可持续发展
|
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
2楼2008-04-01 18:43:37
ddwv
木虫 (小有名气)
还没想好^_^
- 应助: 0 (幼儿园)
- 金币: 1957.6
- 散金: 92
- 帖子: 221
- 在线: 17小时
- 虫号: 259507
- 注册: 2006-06-11
- 性别: MM
- 专业: 环境工程
3楼2008-04-02 10:28:52
ddwv
木虫 (小有名气)
还没想好^_^
- 应助: 0 (幼儿园)
- 金币: 1957.6
- 散金: 92
- 帖子: 221
- 在线: 17小时
- 虫号: 259507
- 注册: 2006-06-11
- 性别: MM
- 专业: 环境工程
5楼2008-04-03 10:46:48
