-- 作者:有点甜
-- 发布时间: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编辑过]
|