调试技巧:http://www.foxtable.com/webhelp/scr/1485.htm
msgbox(e.StripItem.ParentItem is nothing)
If e.StripItem.ParentItem.text = "常用网址" Then
msgbox(e.StripItem.Name)
msgbox(e.StripItem.text)
Dim dr As DataRow = DataTables("常用网址表").find("网站名称 = '"& e.StripItem.Name &"'")
If dr IsNot Nothing Then
msgbox(dr("网址") )
Dim Proc As New Process '定义一个新的Process
Proc.File = dr("网址") '指定要打开的网页地址
Proc.Start()
End If
End If