-- 作者:有点色
-- 发布时间:2017/3/22 21:42:00
--
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
|