无语,这样写代码测试啊
Select Case e.Path
Case "test.htm", ""
Dim wb As New WeUI
wb.InsertHTML("<div class='loader'><div class='text'>Loading...</div><div class='horizontal'><div class='circlesup'><div class='circle'></div><div class='circle'></div><div class='circle'></div><div class='circle'></div><div class='circle'></div></div><div class='circlesdwn'><div class='circle'></div><div class='circle'></div><div class='circle'></div><div class='circle'></div><div class='circle'></div></div></div><div class='vertical'><div class='circlesup'><div class='circle'></div><div class='circle'></div><div class='circle'></div><div class='circle'></div><div class='circle'></div></div><div class='circlesdwn'><div class='circle'></div><div class='circle'></div><div class='circle'></div><div class='circle'></div><div class='circle'></div></div></div></div>")
wb.AppendHTML("<link rel='stylesheet' href='./lib/style-1.css'/>",True)
e.WriteString(wb.Build)
End Select