我交了Q币,下载了,可是不太会用,是用foxtable调用的,代码是这么下面这么写的,打开页面是空白的
可以帮我看看吗?
Select Case e.Path Case "test.htm", "" Dim wb As New WeUI wb.HTML("<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