1、你说的长短日期,指什么?你在js里面alert弹出值,是否正常?设置什么值可以正常显示?
2、我测试这个代码没问题
Select Case e.Path
Case "test.htm", ""
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","时间输入")
With .AddInput("xm","日期时间","datetime-local")
.Value = Format(Date.Now,"yyyy-MM-dd HH:mm") '留意一下这个格式,日期和时间之间用字母T隔开
.Readonly = True
End With
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "button").Attribute="""
End With
e.WriteString(wb.Build) '生成网页
End Select
3、短日期,参考
你afterOpenProject事件,改成短日期
Dim cd As System.Globalization.DateTimeFormatInfo = System.Globalization.DateTimeFormatInfo.CurrentInfo
cd.ShortDatePattern = "yyyy年MM月dd日"
Dim DateInfo As System.Reflection.FieldInfo = cd.Gettype.GetField("generalLongTimePattern", System.Reflection.BindingFlags.NonPublic Or System.Reflection.BindingFlags.Instance)
If DateInfo IsNot Nothing Then
DateInfo.SetValue(cd, "yyyy-MM-dd HH:mm:ss")
End If