以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  点击表格哪行的编号  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170372)

--  作者:qazlinle6
--  发布时间:2021/7/23 17:44:00
--  点击表格哪行的编号

图片点击可在新窗口打开查看此主题相关图片如下:qq浏览器截图20210723173847.png
图片点击可在新窗口打开查看



                可不可以把标题放上面,内容放下面

[此贴子已经被作者于2021/7/24 1:37:14编辑过]

--  作者:有点蓝
--  发布时间:2021/7/24 9:04:00
--  
代码?
--  作者:qazlinle6
--  发布时间:2021/7/24 9:36:00
--  
With wb.AddPreview("","pv" & r("_Identify"),"编号",r("编号"))

                \'With wb.AddPreview("","pv1","编号",pr("编号"))
                    .AddItem("对账品名:" & cp,"金重:" & r("金重"))
                    \'.AddItem("金重",pr("金重"))
                    .AddItem("标签价格",r("标签价格"))
                    .Addbutton("操作", "", 1, "")
                End With
                
                                
            wb.AppendHTML("<br/>")
Next

--  作者:有点蓝
--  发布时间:2021/7/24 9:51:00
--  
哪个是标题?哪个是内容?完整代码?犹抱琵琶半遮面么
--  作者:qazlinle6
--  发布时间:2021/7/24 9:57:00
--  

此主题相关图片如下:qq浏览器截图20210724095130.png
按此在新窗口浏览图片




此主题相关图片如下:82f20eef8abfd4dc1291f26d713acb6.jpg
按此在新窗口浏览图片



 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:新建文本文档.txt



上面的像下面那样显示,编号那个字体可以 改不
[此贴子已经被作者于2021/7/24 9:58:39编辑过]

--  作者:有点蓝
--  发布时间:2021/7/24 10:07:00
--  
weui做不到下面这种格式

字体参考
With wb.AddPreview("","pv" & r("_Identify"),"编号","<span style=\'font-family:黑体;font-size:20px\'>" & r("编号") & "</span>")


--  作者:qazlinle6
--  发布时间:2021/7/24 10:11:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:82f20eef8abfd4dc1291f26d713acb6.jpg
图片点击可在新窗口打开查看



这样显示不行吗

--  作者:有点蓝
--  发布时间:2021/7/24 10:16:00
--  
weui做不到下面这种格式。
--  作者:qazlinle6
--  发布时间:2021/7/24 10:20:00
--  

改变标题位置

Uploader组件有个TextPosition属性,用于设置标题位置,0表示标题靠左,1表示标题靠上,默认为1。

HttpRequet事件代码:

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1",
"
客户资料")
            .AddInput(
"
姓名","姓名","Text").value = "舒淇"
            .AddInput(
"
年龄","年龄","number").Value = "28"
            .AddInput(
"
日期","日期","date").value = #10/12/2012#
            With .AddUploader("up1","照片",True)
                .TextPosition = 0 
\'
标题靠左
                .AddImage("./images/shuqi1.jpg")
                .AddImage("./images/shuqi2.jpg")
            End With
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1"
"
确定""submit")
        End With
        
e.WriteString(wb.Build\'生成网页
End
 Select



像这个照片改不行吗


--  作者:有点蓝
--  发布时间:2021/7/24 10:34:00
--  
没有办法