急事!!!救命!@!!!!!1

6815 2001-06-03 03:43:00
小弟为一菜鸟有一事求大家帮忙
(1) 如何在 vb中使用相对路径!!
(2)如何调用帮助文件!
...全文
106 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
6815 2001-06-03
  • 打赏
  • 举报
回复
但是我要打包,如果不指明路径的话当我打包后安装后powerpoint的路径改变了vb能找到吗?
OLD_VB_FAN 2001-06-03
  • 打赏
  • 举报
回复
使用OLE需要指明被调用文件的路径嘛?好象要加入引用吧?具体我没使用过,所以不好回答
6815 2001-06-03
  • 打赏
  • 举报
回复
那我调用powerpoint应如何告诉vb我的powerpoint文件在哪?
OLD_VB_FAN 2001-06-03
  • 打赏
  • 举报
回复
调用帮助文件如上,我的程序中如此使用,没有问题的!也是其他人教我的,呵呵!
@_@

6815 2001-06-03
  • 打赏
  • 举报
回复
powerpoint的确在我的目录下,那如何调用帮助文件呢?
OLD_VB_FAN 2001-06-03
  • 打赏
  • 举报
回复
至于帮助文件,你使用的是CHM格式吗,如果是,按如下方法:

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
'Declare Function ListView1_ItemClick Lib "MsComctlLib" (ByVal Item As MsComctlLib.ListItem)



Private Sub mnuHelp_Click() '帮助
Dim Dummy As Long
Dim HelpChmFile As String
HelpChmFile = App.Path & "\" & "help.chm"
Dummy = ShellExecute(0&, vbNullString, HelpChmFile, vbNullString, vbNullString, vbNormalFocus)
End Sub
OLD_VB_FAN 2001-06-03
  • 打赏
  • 举报
回复
powerpoint不会在你的APP.PATH & "\相对路径"下吧?
6815 2001-06-03
  • 打赏
  • 举报
回复
我用vb调用powerpoint时用ole控件并用ole1.doveb 0来激活ole但写上相对路径后系统提示ole1.doverb 0 未找到对象!
6815 2001-06-03
  • 打赏
  • 举报
回复
我用vb调用powerpoint时用ole控件并用ole1.doveb 0来激活ole但写上相对路径后系统提示ole1.doverb 0 为找到对象!
y_shen 2001-06-03
  • 打赏
  • 举报
回复
1. app.path + "\相对路径"

7,789

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧