主题：移动端程序能增加动画效果吗

无语，这样写代码测试啊

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