以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教WeUI中Preview和Panel控制问题。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108595)

--  作者:lanbor
--  发布时间:2017/10/25 17:38:00
--  请教WeUI中Preview和Panel控制问题。
针对以下2个实列:
本页地址:http://www.foxtable.com/mobilehelp/scr/0078.htm
本页地址:http://www.foxtable.com/mobilehelp/scr/0085.htm

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

谢谢!

--  作者:有点甜
--  发布时间: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
--  发布时间:2017/10/25 17:57:00
--  谢谢有点甜。
感谢有点甜,有你一个样本就不错了。
师傅引进门,修行靠个人。


--  作者:lanbor
--  发布时间:2017/10/26 8:26:00
--  同类问题再次请教!
针对:WeUI中Preview控制问题,
如图所示这标签与标签之间的行距太大,
一直不懂这 style 样式语句应该如何正确放置。
还请专家再次指点一下。
(抱歉这个图贴错了)

[此贴子已经被作者于2017/10/26 8:28:40编辑过]

--  作者:有点甜
--  发布时间:2017/10/26 8:38:00
--  
 贴出所写代码测试。
--  作者:lanbor
--  发布时间:2017/10/26 8:39:00
--  针对:WeUI中Preview控制问题(再请教)
针对: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编辑过]

--  作者:有点甜
--  发布时间:2017/10/26 10:07:00
--  

加上代码

 

wb.AppendHTML("<style>.weui-form-preview + .weui-form-preview {margin-top: 2px;}</style>")


--  作者:lanbor
--  发布时间:2017/10/26 10:18:00
--  谢谢有点甜,你的每次回复都代表一次精点指教!
谢谢有点甜,你的每次回复都代表一次精点指教!
--  作者:lanbor
--  发布时间:2017/10/26 16:54:00
--  针对:WeUI中Preview控制"_identify“值问题(再请教)
请教在使用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编辑过]

--  作者:有点甜
--  发布时间: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