- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]根据帮助代码测试无法加载weui的css (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=101905)
-- 发布时间：2017/6/9 15:19:00
-- [求助]根据帮助代码测试无法加载weui的css
刚开始学习移动端开发，根据帮助测试weui生成网页，但是谷歌浏览器的效果还是没有样式的效果，如何解决，请求指点。
截图如下：
此主题相关图片如下：weui.jpg
网络监视器的Httprequest代码如下（完全从帮助粘贴，除路径外未做任何改动）：
Dim fl As String = "d:\\project\\foxtable\\web" & e.path
If filesys.FileExists(fl)
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String = fl.SubString(idx)
Select Case ext
Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
e.WriteFile(fl)
Return \'这里必须返回
End Select
End If
\'以下是动态生成网页的代码
Select Case e.Path
Case "addnew.htm"
Dim wb As New WeUI \'定义一个基于weui框架的网页生成器
wb.AddForm("","form1","addnew.htm")
With wb.AddInputGroup("form1","ipg1","新增订单")
.AddSelect("cp","产品","PD01|PD02|PD03|PD04|PD05")
.AddInput("gy","雇员","text")
.AddInput("kh","客户","text")
.AddInput("dj","单价","number")
.AddInput("zk","折扣","number")
.AddInput("sl","数量","number")
.AddInput("rq","日期","date")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btnok","确定")
End With
e.WriteString(wb.Build) \'生成网页
End Select
WeUI相关的文件已经根据帮助里的要求放至相应的目录下：
此主题相关图片如下：weui1.jpg
在浏览器的开发模式下查看css，截图如下：
此主题相关图片如下：weui3.jpg
-- 发布时间：2017/6/9 15:24:00
--
Dim fl As String = "d:\\project\\foxtable\\web\\" & e.path
-- 发布时间：2017/6/9 15:28:00
--
谢谢！原来是低级错误
