Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]移动开发 多行文本框设计-已解决


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

主题：[求助]移动开发 多行文本框设计-已解决
帅哥哟，离线，有人找我吗？
shenyl0211
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：977 积分：6835 威望：0 精华：0 注册：2012/4/2 21:49:00 		[求助]移动开发 多行文本框设计-已解决  发帖心情 Post By：2018/7/12 9:32:00 [只看该作者]

下列代码中，证件名称属于基本信息，但证件数量较多，所以允许200个字符，这就需要采用多行文本框。
请问高手：如果证件名称仍在基本信息组下，能否实现多行文本框？怎么实现？谢谢！

With wb.AddInputGroup("form1","ipg1","基本信息")
    With .AddInput("申请部门","申请部门","text")
        .value=department '登录时从人员管理表获取的部门名称
        .readonly=True
    End With
    .AddInput("证件名称","证件名称","text")
    .AddInput("用途","用途","text")
    .AddInput("拟用城市","拟用城市","text")
    .AddInput("拟借日期","拟借日期","date")
    .AddInput("拟用日期","拟用日期","date")
    .AddInput("拟还日期","拟还日期","date")
End With
With wb.AddInputGroup("form1","ipg2","备注")
    With .AddTextArea("备注",5)'多行文本框,设为5行
        .Placeholder="100字以内"
        .class = "red"
    End With
End With

解决办法（9楼甜版的方法更好）：
        With .AddInput("申请部门","申请部门","text")
            .value=department
            .readonly=True
        End With
        With .AddInputCell("ic1") '通过InputCell增加输入框
            .AddLabel("证件名称","证件名称",0) '增加标签,0显示在左边
        End With
        With .AddTextArea("证件名称",10)'多行文本框,设为10行
            .Placeholder="200字以内"
            .class = "red"
        End With
        .AddInput("用途","用途","text")
[此贴子已经被作者于2018/7/12 15:22:43编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

AddTextArea没有左边的标签提示的。你可以把AddTextArea直接添加进去，然后设置Placeholder提示即可。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

如果确实需要多行文本，而且左边需要标签，可以用嵌入html代码的方式加入控件，如

 

http://www.foxtable.com/mobilehelp/scr/0097.htm

 

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


加好友 发短信
等级：四尾狐 帖子：977 积分：6835 威望：0 精华：0 注册：2012/4/2 21:49:00 		  发帖心情 Post By：2018/7/12 10:32:00 [只看该作者]

甜版：用wb.InsertHTML("证件名称")，结果“证件名称”被放到最后了
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

wb.InsertHTML("ipg1", "<label>11122333</label>")

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


加好友 发短信
等级：四尾狐 帖子：977 积分：6835 威望：0 精华：0 注册：2012/4/2 21:49:00 		  发帖心情 Post By：2018/7/12 10:50:00 [只看该作者]

甜版：现在反而不见“证件名称”了 
   
wb.AppendHTML("<style>.red{color:red;}</style>", True)
    wb.InsertHTML("<meta name='viewport' c>")
    wb.AddForm("","form1","增加" & dtname & ".htm")
    With wb.AddInputGroup("form1","ipg1","基本信息")
        With .AddInput("申请部门","申请部门","text")
            .value=department
            .readonly=True
        End With
        wb.InsertHTML("ipg1", "<label>证件名称</label>")
        With .AddTextArea("证件名称",10)'多行文本框,设为10行
            .Placeholder="200字以内"
            .class = "red"
        End With
        .AddInput("用途","用途","text")
        .AddInput("拟用城市","拟用城市","text")
        .AddInput("拟借日期","拟借日期","date")
        .AddInput("拟用日期","拟用日期","date")
        .AddInput("拟还日期","拟还日期","date")
        .AddInput("手机号码","手机号码","text")
    End With
    With wb.AddInputGroup("form1","ipg2","备注")
        With .AddTextArea("备注",5)'多行文本框,设为5行
            .Placeholder="100字以内"
            .class = "red"
        End With
    End With
 回到顶部
帅哥哟，离线，有人找我吗？
shenyl0211
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：977 积分：6835 威望：0 精华：0 注册：2012/4/2 21:49:00 		  发帖心情 Post By：2018/7/12 11:01:00 [只看该作者]

AddTextArea功能参数需要完善

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


加好友 发短信
等级：四尾狐 帖子：977 积分：6835 威望：0 精华：0 注册：2012/4/2 21:49:00 		  发帖心情 Post By：2018/7/12 11:18:00 [只看该作者]

解决了：
        With .AddInputCell("ic1") '通过InputCell增加输入框
            .AddLabel("证件名称","证件名称",0) '增加标签,0显示在左边
        End With
        With .AddTextArea("证件名称",10)'多行文本框,设为10行
            .Placeholder="200字以内"
            .class = "red"
        End With
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","基本信息")
            With .AddInput("申请部门","申请部门","text")
               
            End With
           
            With .AddTextArea("证件名称",10)'多行文本框,设为10行
                .Placeholder="200字以内"
                .class = "red"
            End With
            .AddInput("用途","用途","text")
            .AddInput("拟用城市","拟用城市","text")
            .AddInput("拟借日期","拟借日期","date")
            .AddInput("拟用日期","拟用日期","date")
            .AddInput("拟还日期","拟还日期","date")
            .AddInput("手机号码","手机号码","text")
        End With
       
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        Dim str As String = wb.Build
        str = str.Replace("<div class='weui_cell'> <div class='weui_cell_bd weui_cell_primary'> <textarea id='证件名称' name='证件名称' placeholder='200字以内' class='weui_textarea red' rows='10'></textarea> </div> </div>".replace("> <", ">" & vbcrlf & "<"), _
        "<div class='weui_cell'> <div class='weui_cell_hd'><label class='weui_label'>证件名称</label></div> <div class='weui_cell_bd weui_cell_primary'> <textarea id='证件名称' name='证件名称' placeholder='200字以内' class='weui_textarea red' rows='10'></textarea> </div> </div>")
        e.WriteString(str) '生成网页
End Select

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


加好友 发短信
等级：四尾狐 帖子：977 积分：6835 威望：0 精华：0 注册：2012/4/2 21:49:00 		  发帖心情 Post By：2018/7/12 15:22:00 [只看该作者]

谢谢甜版，真是太用心、太尽心了。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询