乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 109|回复: 7

请教:怎样在用VBA所编的程序中引用chm帮助文件

[复制链接]

3

主题

16

帖子

2

银币

初来乍到

Rank: 1

铜币
28
发表于 2009-3-19 10:13:00 | 显示全部楼层 |阅读模式
用autolisp和DCL编写的程序可以引用CHM帮助文件。
不知道在VBA编写的程序中如何引用CHM帮助文件。
VB6.0的app.filepath在这里无法使用。
回复

使用道具 举报

3

主题

16

帖子

2

银币

初来乍到

Rank: 1

铜币
28
发表于 2009-3-19 17:51:00 | 显示全部楼层
没有人回答啊。
是不是这个问题太简单了吧。
我自己找吧。有没有人也想知道呢。
回复

使用道具 举报

3

主题

16

帖子

2

银币

初来乍到

Rank: 1

铜币
28
发表于 2009-3-20 11:33:00 | 显示全部楼层
用shell "hh.exe " "路径\帮助文件.chm"
可以打开。但不知怎样用这种方法使用上下文ID号。
在VBA里如何使用 sendkeys "{F1}",来调用帮助文件。
sendkeys"{F1}",这种办法可以用上下文ID号。
请高手帮助解决。多谢了。
回复

使用道具 举报

3

主题

16

帖子

2

银币

初来乍到

Rank: 1

铜币
28
发表于 2009-3-25 17:02:00 | 显示全部楼层
下面是使用commondialog控件的一段程序:
Private Sub Command2_Click()
   With CommonDialog1
      .HelpFile = App.Path & "\MakeCHM.chm"
      '进入“Help“文件的 Click Event 标题。
      '“.chm”文件的数字值是由“.HPJ”文件
      '的[MAP]部分决定的。只有当你用
      '“Microsoft Help Workshop“建立
      '自己的帮助文件时,
      '才可以编辑此数字值。
      .HelpContext = 200
      .HelpCommand = cdlHelpContext
      .ShowHelp
    End With
End Sub
但发现对CHM文件不起作用。只对HLP文件有效果。这是大多数教材、有关这方面书籍及VB6.0的MSDN帮助中介绍的方法。不知道什么原因,不能运行。
VB6.0、AutoCad VBA不是不支持调用有上下文ID的帮助文件。在AutoCad VBA中使用inputbox可以证明这一点:
Private Sub CommandHelp_Click()
    InputBox "按下帮助按钮打开相关主题帮助文件", , , , , Left(Application.Preferences.Files.TemplateDwgPath, 1) & ":\equipment\help\bdqpmt.chm", 2000
回复

使用道具 举报

3

主题

16

帖子

2

银币

初来乍到

Rank: 1

铜币
28
发表于 2009-3-25 17:04:00 | 显示全部楼层

ubnpjsi1w3l.jpg

ubnpjsi1w3l.jpg




z1hwtb2jfwm.jpg

z1hwtb2jfwm.jpg




mc2mfht2hwp.jpg

mc2mfht2hwp.jpg

回复

使用道具 举报

3

主题

16

帖子

2

银币

初来乍到

Rank: 1

铜币
28
发表于 2009-3-25 17:08:00 | 显示全部楼层
按上面的做法是个很笨办法。需要多打开一对话框。但能够达到了目的,总比没有强一点。
回复

使用道具 举报

3

主题

16

帖子

2

银币

初来乍到

Rank: 1

铜币
28
发表于 2009-3-25 17:16:00 | 显示全部楼层
另外msgbox好像也有打开有上下文ID帮助文件的功能。但实际不能运行。看到这里,可以试一下,就会证明不行。
    MsgBox "按下帮助按钮打开相关主题帮助文件",,, Left(Application.Preferences.Files.TemplateDwgPath, 1) & ":\equipment\help\bdqpmt.chm", 2000
实际打开的对话框中,没有帮助按钮。
回复

使用道具 举报

0

主题

58

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
58
发表于 2009-3-26 06:55:00 | 显示全部楼层
app.helpfile=帮助文件全路径
再按F1或sendkeys "{F1}"
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-2 13:12 , Processed in 1.079330 second(s), 71 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表