Update to .Net 10/SQL 2025

2026-04-21 16:35:57 -05:00
parent 46735bddd3
commit a9379d308e
50 changed files with 2069 additions and 2179 deletions
--- a/BaseEditForm.vb
+++ b/BaseEditForm.vb
@@ -1,8 +1,6 @@
-Imports System.Windows.Forms
+Imports System.Windows.Forms

 Public Class BaseEditForm
-    Inherits Windows.Forms.Form
-
    Enum EditingOrAdding
        Editing
        Adding
@@ -14,159 +12,7 @@ Public Class BaseEditForm
    Private mintCurrentSortColumn As Integer
    Private mobjEditFormExistingItemColumnSortRules() As clsGridColumnSortRule

-#Region " Windows Form Designer generated code "
-
-    Public Sub New()
-        MyBase.New()
-
-        'This call is required by the Windows Form Designer.
-        InitializeComponent()
-
-        'Add any initialization after the InitializeComponent() call
-
-    End Sub
-
-    'Form overrides dispose to clean up the component list.
-    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
-        If disposing Then
-            If Not (components Is Nothing) Then
-                components.Dispose()
-            End If
-        End If
-        MyBase.Dispose(disposing)
-    End Sub
-
-    'Required by the Windows Form Designer
-    Private components As System.ComponentModel.IContainer
-
-    'NOTE: The following procedure is required by the Windows Form Designer
-    'It can be modified using the Windows Form Designer.  
-    'Do not modify it using the code editor.
-    Protected WithEvents fraAddEdit As Windows.Forms.GroupBox
-    Private WithEvents btnEdit As Windows.Forms.Button
-    Private WithEvents btnDelete As Windows.Forms.Button
-    Private WithEvents btnSave As Windows.Forms.Button
-    Private WithEvents btnCancel As Windows.Forms.Button
-    Private WithEvents btnRevert As Windows.Forms.Button
-    Private WithEvents btnExit As Windows.Forms.Button
-    Private WithEvents lvwExistingItemsList As Windows.Forms.ListView
-    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(BaseEditForm))
-        Me.btnEdit = New Windows.Forms.Button
-        Me.btnDelete = New Windows.Forms.Button
-        Me.btnExit = New Windows.Forms.Button
-        Me.fraAddEdit = New Windows.Forms.GroupBox
-        Me.btnRevert = New Windows.Forms.Button
-        Me.btnCancel = New Windows.Forms.Button
-        Me.btnSave = New Windows.Forms.Button
-        Me.lvwExistingItemsList = New Windows.Forms.ListView
-        Me.fraAddEdit.SuspendLayout()
-        Me.SuspendLayout()
-        '
-        'btnEdit
-        '
-        Me.btnEdit.Anchor = CType((Windows.Forms.AnchorStyles.Top Or Windows.Forms.AnchorStyles.Right), Windows.Forms.AnchorStyles)
-        Me.btnEdit.Location = New System.Drawing.Point(976, 8)
-        Me.btnEdit.Name = "btnEdit"
-        Me.btnEdit.Size = New System.Drawing.Size(96, 24)
-        Me.btnEdit.TabIndex = 1
-        Me.btnEdit.Text = "&Edit"
-        '
-        'btnDelete
-        '
-        Me.btnDelete.Anchor = CType((Windows.Forms.AnchorStyles.Top Or Windows.Forms.AnchorStyles.Right), Windows.Forms.AnchorStyles)
-        Me.btnDelete.Location = New System.Drawing.Point(976, 40)
-        Me.btnDelete.Name = "btnDelete"
-        Me.btnDelete.Size = New System.Drawing.Size(96, 24)
-        Me.btnDelete.TabIndex = 2
-        Me.btnDelete.Text = "&Delete"
-        '
-        'btnExit
-        '
-        Me.btnExit.Anchor = CType((Windows.Forms.AnchorStyles.Top Or Windows.Forms.AnchorStyles.Right), Windows.Forms.AnchorStyles)
-        Me.btnExit.Location = New System.Drawing.Point(976, 72)
-        Me.btnExit.Name = "btnExit"
-        Me.btnExit.Size = New System.Drawing.Size(96, 24)
-        Me.btnExit.TabIndex = 3
-        Me.btnExit.Text = "E&xit"
-        '
-        'fraAddEdit
-        '
-        Me.fraAddEdit.Anchor = CType(((Windows.Forms.AnchorStyles.Bottom Or Windows.Forms.AnchorStyles.Left) _
-                    Or Windows.Forms.AnchorStyles.Right), Windows.Forms.AnchorStyles)
-        Me.fraAddEdit.Controls.Add(Me.btnRevert)
-        Me.fraAddEdit.Controls.Add(Me.btnCancel)
-        Me.fraAddEdit.Controls.Add(Me.btnSave)
-        Me.fraAddEdit.Location = New System.Drawing.Point(10, 320)
-        Me.fraAddEdit.Name = "fraAddEdit"
-        Me.fraAddEdit.Size = New System.Drawing.Size(1064, 272)
-        Me.fraAddEdit.TabIndex = 4
-        Me.fraAddEdit.TabStop = False
-        Me.fraAddEdit.Text = "Add..."
-        '
-        'btnRevert
-        '
-        Me.btnRevert.Anchor = CType((Windows.Forms.AnchorStyles.Top Or Windows.Forms.AnchorStyles.Right), Windows.Forms.AnchorStyles)
-        Me.btnRevert.Location = New System.Drawing.Point(952, 80)
-        Me.btnRevert.Name = "btnRevert"
-        Me.btnRevert.Size = New System.Drawing.Size(104, 24)
-        Me.btnRevert.TabIndex = 2
-        Me.btnRevert.Text = "&Revert"
-        '
-        'btnCancel
-        '
-        Me.btnCancel.Anchor = CType((Windows.Forms.AnchorStyles.Top Or Windows.Forms.AnchorStyles.Right), Windows.Forms.AnchorStyles)
-        Me.btnCancel.Location = New System.Drawing.Point(952, 48)
-        Me.btnCancel.Name = "btnCancel"
-        Me.btnCancel.Size = New System.Drawing.Size(104, 24)
-        Me.btnCancel.TabIndex = 1
-        Me.btnCancel.Text = "&Cancel"
-        '
-        'btnSave
-        '
-        Me.btnSave.Anchor = CType((Windows.Forms.AnchorStyles.Top Or Windows.Forms.AnchorStyles.Right), Windows.Forms.AnchorStyles)
-        Me.btnSave.Location = New System.Drawing.Point(952, 16)
-        Me.btnSave.Name = "btnSave"
-        Me.btnSave.Size = New System.Drawing.Size(104, 24)
-        Me.btnSave.TabIndex = 0
-        Me.btnSave.Text = "&Save"
-        '
-        'lvwExistingItemsList
-        '
-        Me.lvwExistingItemsList.Anchor = CType(((Windows.Forms.AnchorStyles.Top Or Windows.Forms.AnchorStyles.Left) _
-                    Or Windows.Forms.AnchorStyles.Right), Windows.Forms.AnchorStyles)
-        Me.lvwExistingItemsList.FullRowSelect = True
-        Me.lvwExistingItemsList.GridLines = True
-        Me.lvwExistingItemsList.HideSelection = False
-        Me.lvwExistingItemsList.Location = New System.Drawing.Point(8, 8)
-        Me.lvwExistingItemsList.MultiSelect = False
-        Me.lvwExistingItemsList.Name = "lvwExistingItemsList"
-        Me.lvwExistingItemsList.Size = New System.Drawing.Size(960, 312)
-        Me.lvwExistingItemsList.TabIndex = 0
-        Me.lvwExistingItemsList.UseCompatibleStateImageBehavior = False
-        Me.lvwExistingItemsList.View = Windows.Forms.View.Details
-        '
-        'BaseEditForm
-        '
-        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
-        Me.ClientSize = New System.Drawing.Size(1080, 598)
-        Me.Controls.Add(Me.lvwExistingItemsList)
-        Me.Controls.Add(Me.fraAddEdit)
-        Me.Controls.Add(Me.btnExit)
-        Me.Controls.Add(Me.btnDelete)
-        Me.Controls.Add(Me.btnEdit)
-        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
-        Me.MinimumSize = New System.Drawing.Size(848, 568)
-        Me.Name = "BaseEditForm"
-        Me.Text = "BaseEditForm"
-        Me.fraAddEdit.ResumeLayout(False)
-        Me.ResumeLayout(False)
-
-    End Sub
-
-#End Region
-
-    Private Sub BaseEditForm_FormClosed(ByVal sender As Object, ByVal e As Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
+    Private Sub BaseEditForm_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        MyGlobals.FlushCachedObjects()
    End Sub

@@ -181,7 +27,7 @@ Public Class BaseEditForm
        LoadExistingItemsList()
        InitializeDetailControls()
        EnableDisableControls()
-        'Dim lobjColumnClickEventArgs As New Windows.Forms.ColumnClickEventArgs(0)
+        'Dim lobjColumnClickEventArgs As New System.Windows.Forms.ColumnClickEventArgs(0)
        'lvwExistingItemsList_ColumnClick(Me, lobjColumnClickEventArgs)
        lvwExistingItemsList.Height = fraAddEdit.Top - lvwExistingItemsList.Top - 10
    End Sub
@@ -438,7 +284,7 @@ Public Class BaseEditForm
        UserRequestedToExit()
    End Sub

-    Private Sub lvwExistingItemsList_ColumnClick(ByVal sender As System.Object, ByVal e As Windows.Forms.ColumnClickEventArgs) Handles lvwExistingItemsList.ColumnClick
+    Private Sub lvwExistingItemsList_ColumnClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles lvwExistingItemsList.ColumnClick
        mintCurrentSortColumn = e.Column
        lvwExistingItemsList.ListViewItemSorter = New clsGridSorter(e.Column, mobjEditFormExistingItemColumnSortRules)
    End Sub
@@ -472,12 +318,12 @@ Public Class BaseEditForm
            Else
                intTempSortColumn = 0
            End If
-            Dim lobjTempColumnClickEventArgs As New Windows.Forms.ColumnClickEventArgs(intTempSortColumn)
+            Dim lobjTempColumnClickEventArgs As New System.Windows.Forms.ColumnClickEventArgs(intTempSortColumn)
            lvwExistingItemsList_ColumnClick(Me, lobjTempColumnClickEventArgs)
        End If

        'Sort by the current column
-        Dim lobjColumnClickEventArgs As New Windows.Forms.ColumnClickEventArgs(intSavedSortColumn)
+        Dim lobjColumnClickEventArgs As New System.Windows.Forms.ColumnClickEventArgs(intSavedSortColumn)
        lvwExistingItemsList_ColumnClick(Me, lobjColumnClickEventArgs)
    End Sub

@@ -488,5 +334,5 @@ Public Class BaseEditForm
    Public Sub ExistingItemsListResumeLayout()
        lvwExistingItemsList.ResumeLayout()
    End Sub
-End Class

+End Class