主题：[求助]移动开发 多行文本框设计-已解决

AddTextArea没有左边的标签提示的。你可以把AddTextArea直接添加进去，然后设置Placeholder提示即可。

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

 

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

 

 

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

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