- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 初学 WeUI 问题。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107903)
-- 发布时间：2017/10/12 10:26:00
-- 初学 WeUI 问题。
今天刚刚学习到：
本页地址：http://www.foxtable.com/mobilehelp/scr/0011.htm
严格按照例题测试操作的，但还不能看到例题中所示的：美丽效果。
我的测试效果为：http://120.*.*.4:8089/addnew.htm
我的电脑中安装了：谷歌chorme 最新版本，测试后看不到例题中的美丽效果
我用苹果手机和安桌手机都打开看看，效果没有便例的好看，
请专家指教；
[此贴子已经被作者于2017/10/12 11:23:45编辑过]
-- 发布时间：2017/10/12 11:16:00
--
有下载框架文件放到合适的位置了吗？
代码的事件头的路径指定正确吗？
-- 发布时间：2017/10/12 11:30:00
--
文件储存位置：D:\\web\\weui 三个文件有的。
Dim fl As String = "d:\\web\\" & e.path \'合成含路径的文件名
If filesys.FileExists(fl) Then \'判断用户在浏览器中输入的网页名称,是否在当前文件夹中
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String = fl.SubString(idx)
Select Case ext
Case ".jpg",".gif",".png",".bmp",".wmf",".js",".htm",".html","css","zip","rar" \'这里加上了js扩展名
\'e.Resp \'设置网页编码为gb2312
e.WriteFile(fl)
Return
End Select
End If
Dim wb As New WeUI \'定义一个基于weui 框架的网页生成器
Select Case e.Path
Case "addnew.htm",""
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
End Select
e.WriteString(wb.Build)
----------------------
以上是照搬过来的。
-- 发布时间：2017/10/12 11:40:00
--
在chorme 浏览器中运行，是否有报错。
如附件右侧 ”！” 提示。
我的系统是win10, 是否环境有问题？
此主题相关图片如下：weui_run_error.jpg
此主题相关图片如下：weui_run_error.jpg-- 发布时间：2017/10/12 12:00:00
--
Select Case ext
Case ".jpg",".gif",".png",".bmp",".wmf",".js",".htm",".html",".css","zip","rar" \'这里加上了js扩展名
-- 发布时间：2017/10/12 12:27:00
-- 原来我错得这么低级。
修改过后，立即见效！ 是我希望看到的效果！
谢谢有点甜和有点蓝两位专家细心指教！
[此贴子已经被作者于2017/10/12 12:29:52编辑过]