以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]网页按钮怎样打开狐表窗口和文件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129055)

--  作者:天一生水
--  发布时间:2018/12/20 16:30:00
--  [求助]网页按钮怎样打开狐表窗口和文件

网页按钮怎样打开狐表窗口和文件

比如:

1、打开“背景”窗口

2、打开”帮助.chm”文件

 


图片点击可在新窗口打开查看此主题相关图片如下:11.jpg
图片点击可在新窗口打开查看

 

 


[此贴子已经被作者于2018/12/20 20:36:10编辑过]

--  作者:有点甜
--  发布时间:2018/12/20 17:45:00
--  

不可以,如果你这个网页显示在webbrowser控件里面,参考之间的交互

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=120151&skin=0

 


--  作者:天一生水
--  发布时间:2018/12/21 20:57:00
--  
网页是显示在webbrowser控件里面的,看了交互的例子,但是不会改。
请老师帮助写个打开项目“背景窗口”或打开“ProjectPath & 帮助.chm" 文件代码,好吗?
谢谢!

图片点击可在新窗口打开查看此主题相关图片如下:image 1.jpg
图片点击可在新窗口打开查看

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试打开窗口交互.rar




[此贴子已经被作者于2018/12/21 20:57:40编辑过]

--  作者:有点蓝
--  发布时间:2018/12/21 21:12:00
--  
全局代码:
<System.Runtime.InteropServices.ComVisibleAttribute(True)> _
Public Class ObjectForScriptingHelper

    Public Sub funcInFoxtable(str As String)
        Forms(str).open
    End Sub

End Class

index.html文件
<a href="#" class="edit" title="背景"><span>背景</span></a>
改为
<a href="#" class="edit" title="背景"><span onclick="window.external.funcInFoxtable(\'背景窗口\');">背景</span></a>


--  作者:天一生水
--  发布时间:2018/12/21 21:50:00
--  
非常感谢蓝版主!
我试着写打开文件的代码,但是提示找不到文件,是哪里的原因?

1、全局代码:
<System.Runtime.InteropServices.ComVisibleAttribute(True)> _
Public Class ObjectForScriptingHelper

Public Sub funcInFoxtable(str As String)     \'打开窗口
Forms(str).open
End Sub

Public Sub funcInFox(str1 As String)         \'打开文件
Dim Proc As New Process \'定义一个新的Process
Proc.File = str1     \'指定要打开的文件
Proc.Start()
End Sub

End Class
Public jsHelper As new ObjectForScriptingHelper

2、index.html文件
...

图片点击可在新窗口打开查看此主题相关图片如下:11111.jpg
图片点击可在新窗口打开查看


[此贴子已经被作者于2018/12/21 21:58:50编辑过]

--  作者:有点蓝
--  发布时间:2018/12/21 22:17:00
--  
ProjectPath 这种代码不能放到网页里的。

onclick="window.external.funcInFox(\'帮助.txt\');"

Public Sub funcInFox(str1 As String)         \'打开文件
Dim Proc As New Process \'定义一个新的Process
Proc.File = ProjectPath  & str1     \'指定要打开的文件
Proc.Start()
End Sub