以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  老师帮我看看  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=135786)

--  作者:18365900066
--  发布时间:2019/6/3 11:01:00
--  老师帮我看看

图片点击可在新窗口打开查看此主题相关图片如下:060201.jpg
图片点击可在新窗口打开查看
您好,老师,我的左上角的 这个 “网页浏览器”现在在播放视频,是我再“属性”地址里面,手动添加的
 现在,怎么把我的这个“网页浏览器”和表格里的地址对应起来啊。必须要做按钮吗,我想看那一条信息,对应的就自动开始播放了

--  作者:有点甜
--  发布时间:2019/6/3 11:10:00
--  

1、做一个网页模板,把地址的地方替换成如【视频地址】

 

2、读取模板,把【视频地址】替换成你表格的数据,然后指定给webbrowser

 

3、currentChanged事件


Dim dz As String = e.Table.ccurrent("第一列")
Dim mb As String = FileSys.ReadAllText("d:\\test.txt", encoding.default)
mb = mb.Replace("【视频地址】", dz)
Dim web = forms("窗口1").controls("webbrowser1").basecontrol
web.documenttext = mb


--  作者:18365900066
--  发布时间:2019/6/3 16:00:00
--  
您好, 有点甜老师,请您说详细些啊,不知道怎么操作啊
--  作者:有点甜
--  发布时间:2019/6/3 16:18:00
--  

1、做一个 test.txt 文件,输入

 

<iframe height=498 width=510 src=\'【视频地址】\' frameborder=0 \'allowfullscreen\'></iframe>

 

2、currentChanged事件


Dim dz As String = e.Table.ccurrent("第一列")
Dim mb As String = FileSys.ReadAllText("d:\\test.txt", encoding.default)
mb = mb.Replace("【视频地址】", dz)
Dim web = forms("窗口1").controls("webbrowser1").basecontrol
web.documenttext = mb

[此贴子已经被作者于2019/6/3 16:18:38编辑过]