Dim wb As New WeUI
wb.AddForm("","form1","dclb.htm")
With wb.AddListGroup(" ", "lsg1","")
With wb.AddInputGroup("","ipg1","菜单供应设置")
With .AddInput("rq","日期","date")
.Enabled = False
.Value = rq
End With
With .AddInput("xq","星期","text")
.AddInput("xq","星期","text").Enabled = False
.AddInput("xq","星期","text").Value = Format(rq,"dddd")
End With
With .AddInput("djsj","登记时间","time")
.value = Format(Date.Now,"HH:mm")
.Min = "08:00" '输入的事件必须在8:00到12:00之间
.Max = "12:00"
End With
.AddInput("zc","早餐","text")
.AddInput("wc","午餐","text")
.AddInput("sf","晚餐","text")
End With
End With
With wb.AddArticle("","ar1")
.AddTitle("h1","备注")
.AddContent("设置每天供应的菜品,需每天设置.")
End With
e.WriteString(wb.Build)
加好友 
发短信
Post By：2018/7/16 21:03:00 [显示全部帖子]
