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