Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教WeUI中Preview和Panel控制问题。


  共有2197人关注过本帖树形打印复制链接

主题：请教WeUI中Preview和Panel控制问题。
帅哥哟，离线，有人找我吗？
lanbor
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：431 积分：4325 威望：0 精华：0 注册：2017/3/20 21:08:00 		请教WeUI中Preview和Panel控制问题。  发帖心情 Post By：2017/10/25 17:38:00 [只看该作者]

针对以下2个实列：
本页地址：http://www.foxtable.com/mobilehelp/scr/0078.htm
本页地址：http://www.foxtable.com/mobilehelp/scr/0085.htm

所说明的控件功能，在工作中很有用。
请教：
1.如何人为控制 Preview 的行高，文字大小颜色变化。
2.如何人为控制 Panel 的行高，文字大小颜色变化。

谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/10/25 17:49:00 [只看该作者]

学一下css http://www.w3school.com.cn/css/index.asp

 

        With wb.AddPreview("","pv1","付款金额","￥2400")
            .AddItem("项目1","内容1")
            .AddItem("<b style='font-weight:normal;font-size:20px;color:red'>项目2</b>","<b style='font-weight:normal;font-size:20px;color:red'>内容2</b>")
            .AddItem("项目3", "电动打蛋机")
            .Addbutton("操作", "", 1, "")
       End With

 

上面是preview的，panel的也类似修改。
 回到顶部
帅哥哟，离线，有人找我吗？
lanbor
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：431 积分：4325 威望：0 精华：0 注册：2017/3/20 21:08:00 		谢谢有点甜。  发帖心情 Post By：2017/10/25 17:57:00 [只看该作者]

感谢有点甜，有你一个样本就不错了。
师傅引进门，修行靠个人。
 回到顶部
帅哥哟，离线，有人找我吗？
lanbor
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：431 积分：4325 威望：0 精华：0 注册：2017/3/20 21:08:00 		同类问题再次请教！  发帖心情 Post By：2017/10/26 8:26:00 [只看该作者]

针对：WeUI中Preview控制问题,
如图所示这标签与标签之间的行距太大，
一直不懂这 style 样式语句应该如何正确放置。
还请专家再次指点一下。
（抱歉这个图贴错了）

[此贴子已经被作者于2017/10/26 8:28:40编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/10/26 8:38:00 [只看该作者]

 贴出所写代码测试。

 回到顶部
帅哥哟，离线，有人找我吗？
lanbor
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：431 积分：4325 威望：0 精华：0 注册：2017/3/20 21:08:00 		针对：WeUI中Preview控制问题（再请教）  发帖心情 Post By：2017/10/26 8:39:00 [只看该作者]

针对：WeUI中Preview控制问题,

如图所示这标签与标签之间的行距太大，
一直不懂这 style 样式语句应该如何正确放置。
还请专家再次指点一下。
（因为：问题已经由专家指教后解决，所以清除图片）

--以下是程序原句----
    Dim i01 As Integer =1
    For Each sr As DataRow In dt.DataRows
        With wb.AddPreview("","spv" & i01,"<p class='item0'>" & sr("sjc01") & "</p>","<p class='item1'>" & i01 & "</p>")
            .AddItem("<p class='item2'>Mail:" & sr("smail01").trim()  & "</p>","<p class='item2'>联系:" & sr("slxr01").trim() & "</p>")
            .AddItem("<p class='item2'>" & sr("swxh01").trim()  & "</p>","<p class='item2'>电话:" & sr("stel01").trim() & "</p>")
            .AddItem("<p class='item2'>地址:" & sr("sadd01").trim()  & "</p>","<p class='item2'></p>")
        End With
        i01 = i01 +1
    Next

--以下是程序test.css文件测试语句----
p.item0{font-weight:normal;font-size:18px;height:1px;line-height:1px;margin-botton:0px;margin-top:3px;color:blue;}
p.item1{font-weight:normal;font-size:14px;height:6px;line-height:1px;margin-botton:0px;margin-top:6px;color:red;}
p.item2{font-weight:normal;font-size:14px;height:22px;color:gray;}

还请专家再次指点一下，多谢多谢！
[此贴子已经被作者于2017/10/26 10:19:26编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/10/26 10:07:00 [只看该作者]

加上代码

 

wb.AppendHTML("<style>.weui-form-preview + .weui-form-preview {margin-top: 2px;}</style>")
 回到顶部
帅哥哟，离线，有人找我吗？
lanbor
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：431 积分：4325 威望：0 精华：0 注册：2017/3/20 21:08:00 		谢谢有点甜，你的每次回复都代表一次精点指教！  发帖心情 Post By：2017/10/26 10:18:00 [只看该作者]

谢谢有点甜，你的每次回复都代表一次精点指教！

 回到顶部
帅哥哟，离线，有人找我吗？
lanbor
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：431 积分：4325 威望：0 精华：0 注册：2017/3/20 21:08:00 		针对:WeUI中Preview控制"_identify“值问题(再请教)  发帖心情 Post By：2017/10/26 16:54:00 [只看该作者]

请教在使用Preview或panel 输出多行表中的记录时，
如何做到像"表格功能“那样能同步保存 "_Identify"  的值。

目的是希望用户在点击某条记录时，也能启动底部菜单，
并操作(add/edit/del)当前记录.

-以下是输出程序原句----
’ ---先定个菜单------
With wb.AddActionSheet("","menu2")
        .add("mAdd","增加").Attribute="" '调用ajaxform.js 中的新增函数
        .add("mEdit","编辑").Attribute=""" 
        .add("mDel","删除").Attribute=""" 
        .add("mCancel","取消","",True)
    End With

‘-------再输出记录----
Dim i01 As Integer =1
    Dim primarykey(6) As Integer '保存当前页页所有记录的"_Identify" 值
    wb.AppendCookie("pagenumber",page) '保存当前页码到cookie的变量pagenumber 中
    For Each sr As DataRow In dt.DataRows
        With wb.AddPreview("","spv" & i01,"<p class='item0'>" & sr("sjc01") & "</p>","<p class='item1'>" & i01 & "</p>")
            .AddItem("<p class='item2'>Mail:" & sr("smail01").trim()  & "</p>","<p class='item3'>联系:" & sr("slxr01").trim() & "</p>","onclick=show('menu2')")
            .AddItem("<p class='item2'>" & sr("swxh01").trim()  & "</p>","<p class='item3'>电话:" & sr("stel01").trim() & "</p>","onclick=show('menu2')")
            .AddItem("<p class='item4'>地址:" & sr("sadd01").trim()  & "</p>","<p class='item2'></p>","onclick=show('menu2')")
            wb.AppendHTML("<style>.weui-form-preview + .weui-form-preview {margin-top: 2px;}</style>")
            primarykey(i01) = sr("_Identify")
        End With
        i01 = i01 +1
    Next

‘--------这是test.js 文件的代码行应该如何写，也不懂，还请求能给个基本样本

’因为Preview或panel 的输出格式与表格输出各有优势，
下面应该如何写，我是不懂了。
先谢谢专家！

[此贴子已经被作者于2017/10/26 17:05:33编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/10/26 18:31:00 [只看该作者]

参考

 

Select Case e.Path
    Case "test.htm",""
        Dim wb As New weui
        wb.AppendHTML("<script>var zj</script>")
        With wb.AddActionSheet("","menu2")
            .add("mAdd","增加").Attribute="" '调用ajaxform.js 中的新增函数
            .add("mEdit","编辑").Attribute="onclick=""alert(zj)"""
            .add("mDel","删除").Attribute=""
            .add("mCancel","取消","",True)
        End With
        Dim zhujian As String = "abcdefg"
        With wb.AddPreview("","pv1","付款金额","￥2400")
            .Attribute = "onclick = ""zj='" & zhujian & "';show('menu2')"""
            .AddItem("项目1","内容1")
            .AddItem("<b style='font-weight:normal;font-size:16px;color:red'>项目2</b>","<b style='font-weight:normal;font-size:16px;color:red'>内容2</b>")
            .AddItem("项目3", "电动打蛋机")
        End With
       
        wb.AppendHTML("<style>.weui-form-preview + .weui-form-preview {margin-top: 2px;}</style>")
        e.WriteString(wb.Build) '生成网页
End Select
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询