Update to .Net 10/SQL 2025

frmEditHymnal.vb

@@ -1,108 +1,8 @@
-Imports System.Windows.Forms
+Imports System.Windows.Forms
 
 Public Class frmEditHymnal
-    Inherits OrganLit.BaseEditForm
-
     Private mobjDetailHymnal As New clsHymnal
 
-#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.
-    Friend WithEvents lblHymnalName As Windows.Forms.Label
-    Friend WithEvents txtHymnalName As Windows.Forms.TextBox
-    Friend WithEvents Label1 As Windows.Forms.Label
-    Friend WithEvents txtHymnalAbbreviation As Windows.Forms.TextBox
-    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
-        Me.lblHymnalName = New Windows.Forms.Label
-        Me.txtHymnalName = New Windows.Forms.TextBox
-        Me.Label1 = New Windows.Forms.Label
-        Me.txtHymnalAbbreviation = New Windows.Forms.TextBox
-        Me.fraAddEdit.SuspendLayout()
-        Me.SuspendLayout()
-        '
-        'fraAddEdit
-        '
-        Me.fraAddEdit.Controls.Add(Me.txtHymnalAbbreviation)
-        Me.fraAddEdit.Controls.Add(Me.Label1)
-        Me.fraAddEdit.Controls.Add(Me.txtHymnalName)
-        Me.fraAddEdit.Controls.Add(Me.lblHymnalName)
-        Me.fraAddEdit.Location = New System.Drawing.Point(10, 481)
-        Me.fraAddEdit.Size = New System.Drawing.Size(1064, 111)
-        Me.fraAddEdit.Controls.SetChildIndex(Me.lblHymnalName, 0)
-        Me.fraAddEdit.Controls.SetChildIndex(Me.txtHymnalName, 0)
-        Me.fraAddEdit.Controls.SetChildIndex(Me.Label1, 0)
-        Me.fraAddEdit.Controls.SetChildIndex(Me.txtHymnalAbbreviation, 0)
-        '
-        'lblHymnalName
-        '
-        Me.lblHymnalName.Location = New System.Drawing.Point(8, 24)
-        Me.lblHymnalName.Name = "lblHymnalName"
-        Me.lblHymnalName.Size = New System.Drawing.Size(80, 16)
-        Me.lblHymnalName.TabIndex = 3
-        Me.lblHymnalName.Text = "Hymnal Name"
-        '
-        'txtHymnalName
-        '
-        Me.txtHymnalName.Location = New System.Drawing.Point(128, 24)
-        Me.txtHymnalName.Name = "txtHymnalName"
-        Me.txtHymnalName.Size = New System.Drawing.Size(360, 20)
-        Me.txtHymnalName.TabIndex = 4
-        '
-        'Label1
-        '
-        Me.Label1.Location = New System.Drawing.Point(8, 56)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(112, 16)
-        Me.Label1.TabIndex = 5
-        Me.Label1.Text = "Hymnal Abbreviation"
-        '
-        'txtHymnalAbbreviation
-        '
-        Me.txtHymnalAbbreviation.Location = New System.Drawing.Point(128, 56)
-        Me.txtHymnalAbbreviation.Name = "txtHymnalAbbreviation"
-        Me.txtHymnalAbbreviation.Size = New System.Drawing.Size(88, 20)
-        Me.txtHymnalAbbreviation.TabIndex = 6
-        '
-        'frmEditHymnal
-        '
-        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
-        Me.ClientSize = New System.Drawing.Size(1080, 598)
-        Me.Name = "frmEditHymnal"
-        Me.StartPosition = Windows.Forms.FormStartPosition.Manual
-        Me.Text = "Edit Hymnal"
-        Me.fraAddEdit.ResumeLayout(False)
-        Me.fraAddEdit.PerformLayout()
-        Me.ResumeLayout(False)
-
-    End Sub
-
-#End Region
-
     Protected Overrides Sub LoadExistingItemsList()
         Dim lobjHymnal As clsHymnal
         Dim lcolHymnals As System.Collections.Generic.List(Of clsHymnal)
@@ -144,7 +44,7 @@ Public Class frmEditHymnal
         txtHymnalName.Focus()
     End Sub
 
-    Protected Overrides Function DetailControlsHaveDifferentDataThanExistingData(ByVal lstvwExistingItem As Windows.Forms.ListViewItem) As Boolean
+    Protected Overrides Function DetailControlsHaveDifferentDataThanExistingData(ByVal lstvwExistingItem As System.Windows.Forms.ListViewItem) As Boolean
         Dim lobjSavedHymnal As clsHymnal
 
         lobjSavedHymnal = CType(lstvwExistingItem.Tag, clsHymnal)
@@ -176,7 +76,7 @@ Public Class frmEditHymnal
         mobjDetailHymnal = New clsHymnal
     End Sub
 
-    Protected Overrides Function LoadExistingDataToDetailControls(ByVal lstvwExistingItem As Windows.Forms.ListViewItem) As Boolean
+    Protected Overrides Function LoadExistingDataToDetailControls(ByVal lstvwExistingItem As System.Windows.Forms.ListViewItem) As Boolean
         Dim lobjHymnal As clsHymnal
         Dim lblnReturnValue As Boolean = False
         lobjHymnal = CType(lstvwExistingItem.Tag, clsHymnal)
@@ -186,7 +86,7 @@ Public Class frmEditHymnal
         Return True
     End Function
 
-    Protected Overrides Function ConfirmOKToDeleteExistingItem(ByVal lstvwItemToDelete As Windows.Forms.ListViewItem) As Boolean
+    Protected Overrides Function ConfirmOKToDeleteExistingItem(ByVal lstvwItemToDelete As System.Windows.Forms.ListViewItem) As Boolean
         Dim lobjHymnal As clsHymnal
         Dim lstrReferencedBy As String = ""
 
@@ -199,14 +99,14 @@ Public Class frmEditHymnal
 
 
         Dim ldrDialogResult As DialogResult = MessageBox.Show("Are you sure you want to delete hymnal: " + lobjHymnal.HymnalName + "?", "Delete confirmation", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
-        If ldrDialogResult = Windows.Forms.DialogResult.No Then
+        If ldrDialogResult = System.Windows.Forms.DialogResult.No Then
             Return False
         End If
 
         Return True
     End Function
 
-    Protected Overrides Function DeleteExistingItem(ByVal lstvwItemToDelete As Windows.Forms.ListViewItem) As Boolean
+    Protected Overrides Function DeleteExistingItem(ByVal lstvwItemToDelete As System.Windows.Forms.ListViewItem) As Boolean
         Dim lobjHymnal As clsHymnal
         lobjHymnal = CType(lstvwItemToDelete.Tag, clsHymnal)
 
@@ -255,7 +155,7 @@ Public Class frmEditHymnal
 
     End Function
 
-    Protected Overrides Function SaveNewDataForExistingItem(ByVal lstvwExistingItem As Windows.Forms.ListViewItem) As Boolean
+    Protected Overrides Function SaveNewDataForExistingItem(ByVal lstvwExistingItem As System.Windows.Forms.ListViewItem) As Boolean
         Dim lstrErrorString As String = ""
 
         mobjDetailHymnal.HymnalName = txtHymnalName.Text
@@ -283,4 +183,5 @@ Public Class frmEditHymnal
     Private Sub txtHymnalAbbreviation_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtHymnalAbbreviation.TextChanged
         MyBase.DetailDataHasChanged()
     End Sub
-End Class
+
+End Class