以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  目录树打开网址  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120891)
--  作者：yifan3429
--  发布时间：2018/6/25 20:48:00
--  目录树打开网址
目录树打开网址
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb
--  作者：有点蓝
--  发布时间：2018/6/25 20:57:00
--  
NodeMouseClick事件

If e.Node.Level = 1 Then
    Dim dr As DataRow = DataTables("网页").Find("分类=\'" & e.Node.DataRow("分类") & "\' And 网站名称=\'" & e.Node.DataRow("网站名称") & "\'")
    If dr IsNot Nothing Then
        Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
        web.Address = dr("网址")
    End If
End If
--  作者：yifan3429
--  发布时间：2018/6/25 21:32:00
--  
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/6/25 21:33:13编辑过]
--  作者：有点蓝
--  发布时间：2018/6/25 21:36:00
--  
上传实例说明