MS Limilabs etc

App/WISAG_Attachment_Check/My 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

App/WISAG_Attachment_Check/My Project/Application.Designer.vb

@@ -0,0 +1,38 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+    
+    'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden.  Wenn Sie Änderungen vornehmen möchten
+    ' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer.
+    ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
+    ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
+    '
+    Partial Friend Class MyApplication
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Public Sub New()
+            MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
+            Me.IsSingleInstance = false
+            Me.EnableVisualStyles = true
+            Me.SaveMySettingsOnExit = true
+            Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Protected Overrides Sub OnCreateMainForm()
+            Me.MainForm = Global.WISAG_Attachment_Check.Form1
+        End Sub
+    End Class
+End Namespace

App/WISAG_Attachment_Check/My Project/Application.myapp

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+  <MySubMain>true</MySubMain>
+  <MainForm>Form1</MainForm>
+  <SingleInstance>false</SingleInstance>
+  <ShutdownMode>0</ShutdownMode>
+  <EnableVisualStyles>true</EnableVisualStyles>
+  <AuthenticationMode>0</AuthenticationMode>
+  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>