晚上看以前的Foxtable笔记时,发现以前学习时,已记录了一个如何修正系统日期的方法,代码更简捷:
'代码写入项目BeforeOpenProject事件中
Dim d As Date = Date.Today
Dim s As String = CStr(d)
Dim l As Integer = s.Length
If l > 10 Then '判断系统日期是否符合标准
Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International","sShortDate","yyyy-MM-dd")
e.Cancel = True
e.HideSplashForm = True
MessageBox.Show("程序将自动关闭,以校对系统日期格式!" & vbcrlf & "而后请重新启动程序","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Syscmd.Project.Exit()
End If
比下面的:1.代码简捷;2.不用设置全局代码3.等效.