主题：老师帮我看看

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

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