日期输入框

和文本输入框一样,日期输入框也必须添加在输入框组中。

在输入框组增加一个日期输入框的语法为:

AddInput(ID, Label, type)

ID 输入框ID。
Label 在输入框左侧显示的标签内容
Type 输入框类型,普通日期设置为"date", 只有时间设置为"time",同时有日期时间设置为"datetime-local"

示例

将HttpRequest事件代码设置为:

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1",
"
日期输入")
            .AddInput("rq",
"
日期","date")
            .AddInput("sh",
"
时间","time")
            .AddInput("rs",
"
日期时间","datetime-local")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1",
"
确定", "submit")
        End With
       
e.WriteString(wb.Build) '生成网页
End
Select

下图是通过iPhone访问的截屏:

属性

日期输入框有以下属性:

Value 字符型,输入框的初始值。
Readonly 逻辑型,输入框是否只读。
Required 逻辑型,是否必须输入内容,目前基于iOS的多数浏览器暂不支持这个属性。
Post 逻辑型,提示表单数据时是否包括此输入框的值,默认为True。
Min 字符型,设置允许输入的最小值,目前基于iOS的多数浏览器暂不支持这个属性。
Max 字符型,设置允许输入的最大值,目前基于iOS的多数浏览器暂不支持这个属性。

例如下面的HttpRequest事件代码设置了日期输入框的一些属性:

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1",
"
时间输入")
            .AddInput("xm",
"
日期","date").Value = Format(Date.Today,"yyyy-MM-dd")
            With .AddInput("xm",
"
时间","time")
                .value = Format(Date.Now,"HH:mm")
               
.Min = "08:00" '输入的事件必须在8:00到12:00之间
                .Max = "12:00"               
            End With
            With .AddInput("xm","日期时间","datetime-local")
                .Value = Format(Date.Now,"yyyy-MM-ddTHH:mm") '留意一下这个格式,日期和时间之间用字母T隔开
               
.Readonly = True
            End With
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1",
"
确定", "submit")
        End With
       
e.WriteString(wb.Build) '生成网页
End
Select

Max和Min属性在iPhone上无效,在安卓和Windows系统下有效,这是我在Windows中用Chorme模拟手机访问的效果:

 


本页地址:http://www.foxtable.com/mobilehelp/topics/0046.htm