- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- weui 时间输入框 现在能显示 小时 分钟，秒怎么加上？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192102)
-- 发布时间：2024/5/29 8:26:00
-- weui 时间输入框 现在能显示 小时 分钟，秒怎么加上？
weui 时间输入框 现在能显示 小时 分钟，秒怎么加上？
此主题相关图片如下：1716942294380.jpg
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
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
-- 发布时间：2024/5/29 9:09:00
--
.AddInput("sh", "时间", "time").Attribute = "step=\'10\'"
[此贴子已经被作者于2024/5/29 9:09:22编辑过]