Update to .Net 10/SQL 2025
This commit is contained in:
@@ -1,131 +1,8 @@
|
||||
Imports System.Windows.Forms
|
||||
Imports System.Windows.Forms
|
||||
|
||||
Public Class frmEditHymnTuneName
|
||||
Inherits BaseEditForm
|
||||
|
||||
Private mobjDetailHymnTuneName As New clsHymnTuneName
|
||||
|
||||
#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 lblHymnTuneName As Windows.Forms.Label
|
||||
Friend WithEvents txtHymnTuneName As Windows.Forms.TextBox
|
||||
Friend WithEvents grpAlternateTuneNames As Windows.Forms.GroupBox
|
||||
Friend WithEvents lstAlternateTuneNames As Windows.Forms.ListBox
|
||||
Friend WithEvents btnAddAlternateHymnTuneName As Windows.Forms.Button
|
||||
Friend WithEvents btnRemoveAlternateHymnTuneName As Windows.Forms.Button
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.lblHymnTuneName = New Windows.Forms.Label
|
||||
Me.txtHymnTuneName = New Windows.Forms.TextBox
|
||||
Me.grpAlternateTuneNames = New Windows.Forms.GroupBox
|
||||
Me.btnRemoveAlternateHymnTuneName = New Windows.Forms.Button
|
||||
Me.btnAddAlternateHymnTuneName = New Windows.Forms.Button
|
||||
Me.lstAlternateTuneNames = New Windows.Forms.ListBox
|
||||
Me.fraAddEdit.SuspendLayout()
|
||||
Me.grpAlternateTuneNames.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'fraAddEdit
|
||||
'
|
||||
Me.fraAddEdit.Controls.Add(Me.grpAlternateTuneNames)
|
||||
Me.fraAddEdit.Controls.Add(Me.txtHymnTuneName)
|
||||
Me.fraAddEdit.Controls.Add(Me.lblHymnTuneName)
|
||||
Me.fraAddEdit.Location = New System.Drawing.Point(8, 300)
|
||||
Me.fraAddEdit.Size = New System.Drawing.Size(1072, 228)
|
||||
Me.fraAddEdit.Controls.SetChildIndex(Me.lblHymnTuneName, 0)
|
||||
Me.fraAddEdit.Controls.SetChildIndex(Me.txtHymnTuneName, 0)
|
||||
Me.fraAddEdit.Controls.SetChildIndex(Me.grpAlternateTuneNames, 0)
|
||||
'
|
||||
'lblHymnTuneName
|
||||
'
|
||||
Me.lblHymnTuneName.Location = New System.Drawing.Point(16, 24)
|
||||
Me.lblHymnTuneName.Name = "lblHymnTuneName"
|
||||
Me.lblHymnTuneName.Size = New System.Drawing.Size(96, 16)
|
||||
Me.lblHymnTuneName.TabIndex = 3
|
||||
Me.lblHymnTuneName.Text = "Hymn Tune Name"
|
||||
'
|
||||
'txtHymnTuneName
|
||||
'
|
||||
Me.txtHymnTuneName.Location = New System.Drawing.Point(112, 24)
|
||||
Me.txtHymnTuneName.Name = "txtHymnTuneName"
|
||||
Me.txtHymnTuneName.Size = New System.Drawing.Size(448, 20)
|
||||
Me.txtHymnTuneName.TabIndex = 4
|
||||
'
|
||||
'grpAlternateTuneNames
|
||||
'
|
||||
Me.grpAlternateTuneNames.Controls.Add(Me.btnRemoveAlternateHymnTuneName)
|
||||
Me.grpAlternateTuneNames.Controls.Add(Me.btnAddAlternateHymnTuneName)
|
||||
Me.grpAlternateTuneNames.Controls.Add(Me.lstAlternateTuneNames)
|
||||
Me.grpAlternateTuneNames.Location = New System.Drawing.Point(8, 48)
|
||||
Me.grpAlternateTuneNames.Name = "grpAlternateTuneNames"
|
||||
Me.grpAlternateTuneNames.Size = New System.Drawing.Size(552, 168)
|
||||
Me.grpAlternateTuneNames.TabIndex = 5
|
||||
Me.grpAlternateTuneNames.TabStop = False
|
||||
Me.grpAlternateTuneNames.Text = "Alternate Tune Names for this Tune"
|
||||
'
|
||||
'btnRemoveAlternateHymnTuneName
|
||||
'
|
||||
Me.btnRemoveAlternateHymnTuneName.Location = New System.Drawing.Point(464, 48)
|
||||
Me.btnRemoveAlternateHymnTuneName.Name = "btnRemoveAlternateHymnTuneName"
|
||||
Me.btnRemoveAlternateHymnTuneName.Size = New System.Drawing.Size(80, 24)
|
||||
Me.btnRemoveAlternateHymnTuneName.TabIndex = 2
|
||||
Me.btnRemoveAlternateHymnTuneName.Text = "Remove"
|
||||
'
|
||||
'btnAddAlternateHymnTuneName
|
||||
'
|
||||
Me.btnAddAlternateHymnTuneName.Location = New System.Drawing.Point(464, 16)
|
||||
Me.btnAddAlternateHymnTuneName.Name = "btnAddAlternateHymnTuneName"
|
||||
Me.btnAddAlternateHymnTuneName.Size = New System.Drawing.Size(80, 24)
|
||||
Me.btnAddAlternateHymnTuneName.TabIndex = 1
|
||||
Me.btnAddAlternateHymnTuneName.Text = "Add..."
|
||||
'
|
||||
'lstAlternateTuneNames
|
||||
'
|
||||
Me.lstAlternateTuneNames.Location = New System.Drawing.Point(8, 16)
|
||||
Me.lstAlternateTuneNames.Name = "lstAlternateTuneNames"
|
||||
Me.lstAlternateTuneNames.Size = New System.Drawing.Size(440, 147)
|
||||
Me.lstAlternateTuneNames.TabIndex = 0
|
||||
'
|
||||
'frmEditHymnTuneName
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(1088, 534)
|
||||
Me.Name = "frmEditHymnTuneName"
|
||||
Me.StartPosition = Windows.Forms.FormStartPosition.Manual
|
||||
Me.Text = "Edit Hymn Tune Name"
|
||||
Me.fraAddEdit.ResumeLayout(False)
|
||||
Me.fraAddEdit.PerformLayout()
|
||||
Me.grpAlternateTuneNames.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Protected Overrides Sub LoadExistingItemsList()
|
||||
Dim lobjHymnTuneName As clsHymnTuneName
|
||||
Dim lobjHymnTuneNames As System.Collections.Generic.List(Of clsHymnTuneName)
|
||||
@@ -165,7 +42,7 @@ Public Class frmEditHymnTuneName
|
||||
txtHymnTuneName.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 lobjSavedHymnTuneName As clsHymnTuneName
|
||||
Dim lblnReturnValue As Boolean = False
|
||||
|
||||
@@ -195,7 +72,7 @@ Public Class frmEditHymnTuneName
|
||||
mobjDetailHymnTuneName = New clsHymnTuneName
|
||||
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 lobjHymnTuneName As clsHymnTuneName
|
||||
Dim lblnReturnValue As Boolean = False
|
||||
|
||||
@@ -214,7 +91,7 @@ Public Class frmEditHymnTuneName
|
||||
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 lobjHymnTuneName As clsHymnTuneName
|
||||
Dim lstrReferencedBy As String = ""
|
||||
|
||||
@@ -227,14 +104,14 @@ Public Class frmEditHymnTuneName
|
||||
|
||||
|
||||
Dim ldrDialogResult As DialogResult = MessageBox.Show("Are you sure you want to delete hymn tune name: " + lobjHymnTuneName.HymnTuneName + "?", "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 lobjHymnTuneName As clsHymnTuneName
|
||||
lobjHymnTuneName = CType(lstvwItemToDelete.Tag, clsHymnTuneName)
|
||||
|
||||
@@ -287,7 +164,7 @@ Public Class frmEditHymnTuneName
|
||||
|
||||
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 = ""
|
||||
|
||||
mobjDetailHymnTuneName.HymnTuneName = txtHymnTuneName.Text
|
||||
@@ -351,4 +228,5 @@ Public Class frmEditHymnTuneName
|
||||
MyBase.DetailDataHasChanged()
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user