- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 手机端如何给必填字段的标签加上红色星号 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175159)
-- 发布时间：2022/2/22 14:21:00
-- 手机端如何给必填字段的标签加上红色星号
手机端想给必填字段的标签加一个红色星号标记，该如何实现？
Select
Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","登录")
.AddInput("xm","户名","text")
.AddInput("pw","密码","password")
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("xm","户名","text")
.AddInput("pw","密码","password")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build) \'生成网页
End Select
此主题相关图片如下：snipaste_2022-02-22_14-19-10.png
-- 发布时间：2022/2/22 14:38:00
--
.AddInput("xm","户名<span style=\'color:red\'>*</span>","text")