用瞄点技术
先申明 ShellExecute 函数
sub GetHelp(Dot as string)
Url=app.path & "\help\Myhelp.html"
Dim ret as longret=ShellExecute("Open",url & "#" & dot ,"","",0&)
if ret>=32 then '文件不可访问出错!
...
end if
End Sub
如 Dot="Edit",则Url=C:\...\help\Myhelp.html#Edit
要求在Myhelp.html中先定义好名为"Edit"的瞄点才能调用。
先申明 ShellExecute 函数
sub GetHelp(Dot as string)
Url=app.path & "\help\Myhelp.html"
Dim ret as longret=ShellExecute("Open",url & "#" & dot ,"","",0&)
if ret>=32 then '文件不可访问出错!
...
end if
End Sub
如 Dot="Edit",则Url=C:\...\help\Myhelp.html#Edit
要求在Myhelp.html中先定义好名为"Edit"的瞄点才能调用。
解决方案 »
- 奇怪的求和问题,请帮忙
- 直线与曲线的交点,曲线与曲线的交点怎样得到??
- update触发器怎么写?
- 创建表的字段出错,我用DAO 3.6,而DAO 3.51 却是对的
- 我想配一台电脑,价格在3000~4000元左右,请大家帮我看一下
- VB+ACCESS 修改为 VB+SQL
- 谁能告诉我这句是什么意思?Global Const HKEY_USERS = &H80000003
- VB如何对SQL SERVER数据库的数据文件备份
- 如何使自己编程水平上一个台阶?
- 如何在vb下实现缩略图,kodak缩略图控制控件如何使用????急!!!!!!!急!!!!!!!!!!
- 我有一个无法解决的问题!让我很无奈!!
- 当在输入窗体中输入一个新纪录或更改纪录时,怎样同步刷新MSHFlexGrid 中的数据?
Download->Source Code->VB HTMLHelp Sample