Upload 20240915

Author: cjhdevact

Assets/MainUI.png

@@ -1,27 +1,56 @@
 # TimeControl - 时钟小工具
 
+## 关于本项目
+
+这是一个支持在电脑上随时查看当前时间的小工具。本软件可以安装在大屏上（例如教学大屏），也可以安装在普通电脑上。
+
+## 功能
+
+本程序支持的功能有：
+
+- [x] 显示时间（基础功能）
+- [x] 深浅色模式
+- [x] 多种主题（可以自定义）
+- [x] 自定义时间显示格式
+- [x] 支持通过组策略配置策略
+- [x] 支持保存你的设置
+- [x] 其它一些功能。它们正在等待被你发现……
+
+## 下载
 
 转到[发布页](https://github.com/cjhdevact/TimeControl/releases)下载程序或源代码。
+
 早期版本的源代码也在发布页里。
 
-------------
+## 程序截图
 
-程序截图：
+主程序界面（浅色）
 
+![主程序界面（浅色）](Assets/MainUI.png)
 
-主程序界面
+主程序界面（深色）
 
+![主程序界面（深色）](Assets/MainUIDark.png)
 
-![主程序界面](Assets/MainUI.png)
+设置界面
 
+![设置界面](Assets/SettingUI.png)
 
-设置界面
+## 开源说明
 
+在修改和由本仓库代码衍生的代码中需要说明“基于 TimeControl 开发”
 
-![设置界面](Assets/SettingUI.png)
+## 相关项目
 
+[TimeControlAero](https://github.com/cjhdevact/TimeControlAero) - 时钟小工具Aero版（开发中）
 
-------------
+## 你知道吗？
 
+本项目诞生于2022年12月份。开发本程序最初的目的是为了在上课时随时查看准确时间……
+
+本程序的代码由于诞生于作者刚开始使用VB.net语言开发的时候，所以代码写的很乱，命名没有那么规范，且只有少量注释，如果要理解本程序的代码，请自己尝试一下……
+~~重构本程序已经被提上了计划~~
+
+------------
 
-本程序基于 `GPL-3.0` 授权。
+本程序基于 `GPL-3.0` 授权。

Assets/MainUIDark.png

@@ -3,4 +3,12 @@
     <startup>
         <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0,Profile=Client" />
     </startup>
+    <appSettings>
+        <add key="EnableWindowsFormsHighDpiAutoResizing" value="true" />
+    </appSettings>
+    <!--
+    <System.Windows.Forms.ApplicationConfigurationSection>
+        <add key="DpiAwareness" value="PerMonitorV2" />
+    </System.Windows.Forms.ApplicationConfigurationSection>
+    -->
 </configuration>

Assets/SettingUI.png

@@ -94,6 +94,7 @@ Public Class Form1
     Public UnSaveData As Integer '不保存设置
     Public UnReadData As Integer '不读取设置
     Public ShowModeTips As Integer '不显示横幅
+
     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
         Try
             If Form2.CheckBox5.Checked = True Then
@@ -523,17 +524,17 @@ Public Class Form1
 
         Try
             If Command().ToLower = "/safemode" Then
-                UnReadData = 1
-                UnSaveData = 1
-                Call loaddef(sender, e)
                 If DisbFuState = 1 Then
                     Form2.Label20.Text = "当前处于安全模式，你的更改将不会被保存。部分功能由于被管理员禁用而无法使用。"
                 Else
                     Form2.Label20.Text = "当前处于安全模式，你的更改将不会被保存。"
                 End If
+                UnReadData = 1
+                UnSaveData = 1
                 Form2.Label20.Visible = True
                 Form2.LinkLabel3.Visible = True
                 Form2.Button5.Visible = True
+                Call loaddef(sender, e)
             End If
 
             If Command().ToLower = "/noprofile" Then