Select Case e.Path
Case "test.htm"
Dim wb As New WeUI
With wb.AddListGroup("", "lsg3", "增加跳转的列表")
.Add("ls5","新浪主页", "sina.com", "http://www.sina.com.cn")
无法在这里添加
.Add("ls6","网易主页", "163.com", "http://www.163.com")
End With
可以在这个位置添加,参考:http://www.foxtable.com/mobilehelp/topics/0110.htm
e.WriteString(wb.Build)
End Select