update,

2025-02-01 01:58:47 +08:00
parent b3da7aaef5
commit 04dbefcbaf
1259 changed files with 280657 additions and 0 deletions
--- a/Project/Application.Designer.HighDpi.vb
+++ b/Project/Application.Designer.HighDpi.vb
@@ -0,0 +1,69 @@
+Option Strict On
+Option Explicit On
+
+'This constant indicates whether the Application Framework is in use.
+#Const APPLICATION_FRAMEWORK = True
+
+#If APPLICATION_FRAMEWORK Then
+
+#If NET5_0 And Not NET6_0 Then
+
+Imports System.Collections.ObjectModel
+
+Namespace My
+
+    Partial Friend Class MyApplication
+
+        Public Event ApplyHighDpiMode(sender As Object, e As ApplyHighDpiModeEventArgs)
+
+        Private _highDpiMode As HighDpiMode?
+
+        Friend Shadows Property HighDpiMode As HighDpiMode
+            Get
+                Return If(
+                    _highDpiMode Is Nothing,
+                    Application.HighDpiMode,
+                    _highDpiMode.Value)
+            End Get
+            Set(value As HighDpiMode)
+                _highDpiMode = value
+            End Set
+        End Property
+
+        ' IMPORTANT:
+        ' If this method causes an compilation error after you've unchecked 'Application Framework' 
+        ' in the project properties, go to the top of this file and change the value to 'False' in this line:
+        ' #Const APPLICATION_FRAMEWORK = False
+
+        ' For more about using WinForms without the Application Framework 
+        ' see: https://aka.ms/visualbasic-appframework-net5
+        Protected Overrides Function OnInitialize(commandLineArgs As ReadOnlyCollection(Of String)) As Boolean
+            Dim eventArgs = New ApplyHighDpiModeEventArgs(
+                If(
+                    _highDpiMode Is Nothing,
+                    HighDpiMode.SystemAware,
+                    _highDpiMode.Value))
+
+            RaiseEvent ApplyHighDpiMode(Me, eventArgs)
+
+            Windows.Forms.Application.SetHighDpiMode(eventArgs.HighDpiMode)
+
+            Return MyBase.OnInitialize(commandLineArgs)
+        End Function
+    End Class
+
+    Public Class ApplyHighDpiModeEventArgs
+        Inherits EventArgs
+
+        Public Sub New(highDpiMode As HighDpiMode)
+            Me.HighDpiMode = highDpiMode
+        End Sub
+
+        Public Property HighDpiMode As HighDpiMode
+
+    End Class
+
+End Namespace
+
+#End If ' #If NET5_0 And Not NET6_0
+#End If ' #If APPLICATION_FRAMEWORK