改变标题位置

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

下图是通过手机访问的效果：