From e706a98ad156ee8845afd538f9d8fdd95c803fb1 Mon Sep 17 00:00:00 2001 From: Tobias Rosskopf Date: Mon, 11 Dec 2023 15:41:04 +0100 Subject: [PATCH] =?UTF-8?q?Renamed=20=C2=B4HYDRO=5FAS-2D=5Fdiag=C2=B4=20to?= =?UTF-8?q?=20=C2=B4ReferenceDateDialog=C2=B4.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- source/FileFormats/HYBNAT_BCS.vb | 2 +- source/FileFormats/HYBNAT_WEL.vb | 2 +- source/FileFormats/HYDRO_AS-2D.vb | 2 +- ...ner.vb => ReferenceDateDialog.Designer.vb} | 196 ++++++------ ...-2D_Diag.resx => ReferenceDateDialog.resx} | 288 +++++++++--------- ...O_AS-2D_Diag.vb => ReferenceDateDialog.vb} | 86 +++--- source/Wave.vbproj | 10 +- 7 files changed, 293 insertions(+), 293 deletions(-) rename source/FileFormats/{HYDRO_AS-2D_Diag.Designer.vb => ReferenceDateDialog.Designer.vb} (88%) rename source/FileFormats/{HYDRO_AS-2D_Diag.resx => ReferenceDateDialog.resx} (95%) rename source/FileFormats/{HYDRO_AS-2D_Diag.vb => ReferenceDateDialog.vb} (94%) diff --git a/source/FileFormats/HYBNAT_BCS.vb b/source/FileFormats/HYBNAT_BCS.vb index a5c56a93..6dd02009 100644 --- a/source/FileFormats/HYBNAT_BCS.vb +++ b/source/FileFormats/HYBNAT_BCS.vb @@ -143,7 +143,7 @@ Namespace Fileformats ''' Public Overrides Sub readFile() 'Show dialog for setting the reference date - Dim dlg As New HYDRO_AS_2D_Diag() + Dim dlg As New ReferenceDateDialog() dlg.ShowDialog() refDate = dlg.DateTimePicker_refDate.Value diff --git a/source/FileFormats/HYBNAT_WEL.vb b/source/FileFormats/HYBNAT_WEL.vb index a8ded348..9295dc48 100644 --- a/source/FileFormats/HYBNAT_WEL.vb +++ b/source/FileFormats/HYBNAT_WEL.vb @@ -205,7 +205,7 @@ Namespace Fileformats ''' Public Overrides Sub readFile() 'Show dialog for setting the reference date - Dim dlg As New HYDRO_AS_2D_Diag() + Dim dlg As New ReferenceDateDialog() dlg.ShowDialog() refDate = dlg.DateTimePicker_refDate.Value diff --git a/source/FileFormats/HYDRO_AS-2D.vb b/source/FileFormats/HYDRO_AS-2D.vb index 10b0aa8a..d235d5eb 100644 --- a/source/FileFormats/HYDRO_AS-2D.vb +++ b/source/FileFormats/HYDRO_AS-2D.vb @@ -238,7 +238,7 @@ Namespace Fileformats Dim ts As TimeSeries 'show dialog for setting the reference date - Dim dlg As New HYDRO_AS_2D_Diag() + Dim dlg As New ReferenceDateDialog() dlg.ShowDialog() 'store refDate Me.refDate = dlg.DateTimePicker_refDate.Value diff --git a/source/FileFormats/HYDRO_AS-2D_Diag.Designer.vb b/source/FileFormats/ReferenceDateDialog.Designer.vb similarity index 88% rename from source/FileFormats/HYDRO_AS-2D_Diag.Designer.vb rename to source/FileFormats/ReferenceDateDialog.Designer.vb index 0a56938e..a275ca9d 100644 --- a/source/FileFormats/HYDRO_AS-2D_Diag.Designer.vb +++ b/source/FileFormats/ReferenceDateDialog.Designer.vb @@ -1,99 +1,99 @@ -Namespace Fileformats - - Partial Class HYDRO_AS_2D_Diag - Inherits System.Windows.Forms.Form - - 'Form overrides dispose to clean up the component list. - - Protected Overrides Sub Dispose(disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - 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. - - Private Sub InitializeComponent() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(HYDRO_AS_2D_Diag)) - Me.OK_Button = New System.Windows.Forms.Button - Me.DateTimePicker_refDate = New System.Windows.Forms.DateTimePicker - Me.Label1 = New System.Windows.Forms.Label - Me.Label2 = New System.Windows.Forms.Label - Me.SuspendLayout() - ' - 'OK_Button - ' - Me.OK_Button.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.OK_Button.Location = New System.Drawing.Point(257, 46) - Me.OK_Button.Name = "OK_Button" - Me.OK_Button.Size = New System.Drawing.Size(67, 23) - Me.OK_Button.TabIndex = 0 - Me.OK_Button.Text = "OK" - ' - 'DateTimePicker_refDate - ' - Me.DateTimePicker_refDate.CustomFormat = Helpers.CurrentDateFormat - Me.DateTimePicker_refDate.Format = System.Windows.Forms.DateTimePickerFormat.Custom - Me.DateTimePicker_refDate.Location = New System.Drawing.Point(201, 12) - Me.DateTimePicker_refDate.Name = "DateTimePicker_refDate" - Me.DateTimePicker_refDate.Size = New System.Drawing.Size(123, 20) - Me.DateTimePicker_refDate.TabIndex = 1 - Me.DateTimePicker_refDate.Value = New Date(2000, 1, 1, 0, 0, 0, 0) - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.Location = New System.Drawing.Point(12, 15) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(183, 13) - Me.Label1.TabIndex = 2 - Me.Label1.Text = "Reference date for start of simulation:" - ' - 'Label2 - ' - Me.Label2.AutoSize = True - Me.Label2.Location = New System.Drawing.Point(14, 51) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(181, 13) - Me.Label2.TabIndex = 3 - Me.Label2.Text = "(Simulation time is added to this date)" - ' - 'HYDRO_AS_2D_Diag - ' - Me.AcceptButton = Me.OK_Button - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(336, 81) - Me.ControlBox = False - Me.Controls.Add(Me.Label2) - Me.Controls.Add(Me.OK_Button) - Me.Controls.Add(Me.Label1) - Me.Controls.Add(Me.DateTimePicker_refDate) - Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog - Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) - Me.MaximizeBox = False - Me.MinimizeBox = False - Me.Name = "HYDRO_AS_2D_Diag" - Me.ShowInTaskbar = False - Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent - Me.Text = "HYDRO_AS-2D reference date" - Me.ResumeLayout(False) - Me.PerformLayout() - - End Sub - Friend WithEvents OK_Button As System.Windows.Forms.Button - Friend WithEvents DateTimePicker_refDate As System.Windows.Forms.DateTimePicker - Friend WithEvents Label1 As System.Windows.Forms.Label - Friend WithEvents Label2 As System.Windows.Forms.Label - - End Class +Namespace Fileformats + + Partial Class ReferenceDateDialog + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + + Protected Overrides Sub Dispose(disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ReferenceDateDialog)) + Me.OK_Button = New System.Windows.Forms.Button() + Me.DateTimePicker_refDate = New System.Windows.Forms.DateTimePicker() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.SuspendLayout() + ' + 'OK_Button + ' + Me.OK_Button.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.OK_Button.Location = New System.Drawing.Point(257, 46) + Me.OK_Button.Name = "OK_Button" + Me.OK_Button.Size = New System.Drawing.Size(67, 23) + Me.OK_Button.TabIndex = 0 + Me.OK_Button.Text = "OK" + ' + 'DateTimePicker_refDate + ' + Me.DateTimePicker_refDate.CustomFormat = "dd.MM.yyyy HH:mm" + Me.DateTimePicker_refDate.Format = System.Windows.Forms.DateTimePickerFormat.Custom + Me.DateTimePicker_refDate.Location = New System.Drawing.Point(201, 12) + Me.DateTimePicker_refDate.Name = "DateTimePicker_refDate" + Me.DateTimePicker_refDate.Size = New System.Drawing.Size(123, 20) + Me.DateTimePicker_refDate.TabIndex = 1 + Me.DateTimePicker_refDate.Value = New Date(2000, 1, 1, 0, 0, 0, 0) + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(12, 15) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(183, 13) + Me.Label1.TabIndex = 2 + Me.Label1.Text = "Reference date for start of simulation:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(14, 51) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(181, 13) + Me.Label2.TabIndex = 3 + Me.Label2.Text = "(Simulation time is added to this date)" + ' + 'ReferenceDateDialog + ' + Me.AcceptButton = Me.OK_Button + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(336, 81) + Me.ControlBox = False + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.OK_Button) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.DateTimePicker_refDate) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "ReferenceDateDialog" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent + Me.Text = "Reference Date" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents OK_Button As System.Windows.Forms.Button + Friend WithEvents DateTimePicker_refDate As System.Windows.Forms.DateTimePicker + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + + End Class End Namespace \ No newline at end of file diff --git a/source/FileFormats/HYDRO_AS-2D_Diag.resx b/source/FileFormats/ReferenceDateDialog.resx similarity index 95% rename from source/FileFormats/HYDRO_AS-2D_Diag.resx rename to source/FileFormats/ReferenceDateDialog.resx index 54f0bc0f..fc3caaea 100644 --- a/source/FileFormats/HYDRO_AS-2D_Diag.resx +++ b/source/FileFormats/ReferenceDateDialog.resx @@ -1,145 +1,145 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - - - AAABAAEAEBAAAAEAIABoBAAAFgAAACgAAAAQAAAAIAAAAAEAIAAAAAAAAAAAABMLAAATCwAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAALRpK/+zaCv/smgq/7FoKv+wZir/r2Yq/69mKf+uZSn/rmUo/61kKP+tZCj/rGQo/6tj - KP+rYyj/AAAAAAAAAAC2ai3/KWgyTydoMUY5UCdFJ2gxCQAAAABIKBMdAAAAAAAAAABCJRIdAAAAACdv - MhosWihoKHM1DAAAAAAAAAAAt2st/yx0ORkrdTiZLXU34it1OO0sdjhoAAAAAAAAAAAAAAAAAAAAACt/ - OAgsgjjeK4Q2kwAAAAAAAAAAAAAAALltLv8oFZxAAAAAAAAAAAAyiEGWMolB8TGKQKIxjEAMAAAAAAAA - AAAxj0CIL5I+7wAAAAAAAAAAAAAAAAAAAAC7bi//BAD5VAQA+xcAAAAAAAAAADmZSko5mUjoN5pI4Dib - Rq02nUW+NZ9E9DOgQl8AAAAAEQ39GgAAAAAAAAAAvW8w/wUB/08GAv/cAAAAAAAAAAAAAAAA3FAAd0Ci - Spc8pEvMOqRJzTejRlcAAAAAAAAAABsX+7AAAAAAAAAAAL5xMP9QMHsvEQ39/hIO/IbgWACE4FcA/+BX - Av3gVwP+31YGVwAAAAAAAAAAAAAAAAAAAAAkIfn6AAAAAAAAAADAcjL/AAAAABoW+6UcGfn7uk499+Bh - CpLhYg0D32IQuN5hEfjdYhV+AAAAAAAAAAAtKvnALiv38AAAAAAAAAAAwnMy/wAAAAAAAAAAOSrr/kUx - 4fkAAAAAAAAAAAAAAADgbyCo3nIk+95zJ581MvclNjP2/4hbppcAAAAAAAAAAMNzM/+ARyId4XYbiq9g - Z/o4MvX3OTb2lQAAAAAAAAAAAAAAAOB/M43fgTf934I5+9+GPPnfiD7+AAAAAAAAAADEdDT/4oAmA+B/ - LPnggTC2QT71h0NA9P5GQ/M8AAAAAAAAAABJRvMiS0jx8VBK7vbgk0uAAAAAAAAAAAAAAAAAxXU0/+CH - ODPeiT/93oxBCQAAAABQTfHDUk/y+lJP8spTUfDdU1Hw+1NR8OJTUfAiAAAAAAAAAAAAAAAAAAAAAMZ2 - NP/GfT9m3ZJPpwAAAAAAAAAAAAAAAFpY74paWO/gWVfv01lX714AAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AADGdjT/3ZdbVAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAA//8AAIABAAC//wAAo/MAALjnAAC+DwAArx0AAKB9AAChOQAAs4kAAKHBAACh4wAArA8AAK4/ - //+//////////w== - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAABAAEAEBAAAAEAIABoBAAAFgAAACgAAAAQAAAAIAAAAAEAIAAAAAAAAAAAABMLAAATCwAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAALRpK/+zaCv/smgq/7FoKv+wZir/r2Yq/69mKf+uZSn/rmUo/61kKP+tZCj/rGQo/6tj + KP+rYyj/AAAAAAAAAAC2ai3/KWgyTydoMUY5UCdFJ2gxCQAAAABIKBMdAAAAAAAAAABCJRIdAAAAACdv + MhosWihoKHM1DAAAAAAAAAAAt2st/yx0ORkrdTiZLXU34it1OO0sdjhoAAAAAAAAAAAAAAAAAAAAACt/ + OAgsgjjeK4Q2kwAAAAAAAAAAAAAAALltLv8oFZxAAAAAAAAAAAAyiEGWMolB8TGKQKIxjEAMAAAAAAAA + AAAxj0CIL5I+7wAAAAAAAAAAAAAAAAAAAAC7bi//BAD5VAQA+xcAAAAAAAAAADmZSko5mUjoN5pI4Dib + Rq02nUW+NZ9E9DOgQl8AAAAAEQ39GgAAAAAAAAAAvW8w/wUB/08GAv/cAAAAAAAAAAAAAAAA3FAAd0Ci + Spc8pEvMOqRJzTejRlcAAAAAAAAAABsX+7AAAAAAAAAAAL5xMP9QMHsvEQ39/hIO/IbgWACE4FcA/+BX + Av3gVwP+31YGVwAAAAAAAAAAAAAAAAAAAAAkIfn6AAAAAAAAAADAcjL/AAAAABoW+6UcGfn7uk499+Bh + CpLhYg0D32IQuN5hEfjdYhV+AAAAAAAAAAAtKvnALiv38AAAAAAAAAAAwnMy/wAAAAAAAAAAOSrr/kUx + 4fkAAAAAAAAAAAAAAADgbyCo3nIk+95zJ581MvclNjP2/4hbppcAAAAAAAAAAMNzM/+ARyId4XYbiq9g + Z/o4MvX3OTb2lQAAAAAAAAAAAAAAAOB/M43fgTf934I5+9+GPPnfiD7+AAAAAAAAAADEdDT/4oAmA+B/ + LPnggTC2QT71h0NA9P5GQ/M8AAAAAAAAAABJRvMiS0jx8VBK7vbgk0uAAAAAAAAAAAAAAAAAxXU0/+CH + ODPeiT/93oxBCQAAAABQTfHDUk/y+lJP8spTUfDdU1Hw+1NR8OJTUfAiAAAAAAAAAAAAAAAAAAAAAMZ2 + NP/GfT9m3ZJPpwAAAAAAAAAAAAAAAFpY74paWO/gWVfv01lX714AAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AADGdjT/3ZdbVAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAA//8AAIABAAC//wAAo/MAALjnAAC+DwAArx0AAKB9AAChOQAAs4kAAKHBAACh4wAArA8AAK4/ + //+//////////w== + + \ No newline at end of file diff --git a/source/FileFormats/HYDRO_AS-2D_Diag.vb b/source/FileFormats/ReferenceDateDialog.vb similarity index 94% rename from source/FileFormats/HYDRO_AS-2D_Diag.vb rename to source/FileFormats/ReferenceDateDialog.vb index 3398ef1c..22f46398 100644 --- a/source/FileFormats/HYDRO_AS-2D_Diag.vb +++ b/source/FileFormats/ReferenceDateDialog.vb @@ -1,44 +1,44 @@ -'BlueM.Wave -'Copyright (C) BlueM Dev Group -' -' -'This program is free software: you can redistribute it and/or modify -'it under the terms of the GNU Lesser General Public License as published by -'the Free Software Foundation, either version 3 of the License, or -'(at your option) any later version. -' -'This program is distributed in the hope that it will be useful, -'but WITHOUT ANY WARRANTY; without even the implied warranty of -'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'GNU Lesser General Public License for more details. -' -'You should have received a copy of the GNU Lesser General Public License -'along with this program. If not, see . -' -Imports System.Windows.Forms - -Namespace Fileformats - - Friend Class HYDRO_AS_2D_Diag - - Public Sub New() - - ' This call is required by the Windows Form Designer. - InitializeComponent() - - ' Add any initialization after the InitializeComponent() call. - - End Sub - - Private Sub dlgLoad(sender As System.Object, e As System.EventArgs) Handles MyBase.Load - Me.DateTimePicker_refDate.Focus() - End Sub - - Private Sub OK_Button_Click(sender As System.Object, e As System.EventArgs) Handles OK_Button.Click - Me.DialogResult = System.Windows.Forms.DialogResult.OK - Me.Close() - End Sub - - End Class - +'BlueM.Wave +'Copyright (C) BlueM Dev Group +' +' +'This program is free software: you can redistribute it and/or modify +'it under the terms of the GNU Lesser General Public License as published by +'the Free Software Foundation, either version 3 of the License, or +'(at your option) any later version. +' +'This program is distributed in the hope that it will be useful, +'but WITHOUT ANY WARRANTY; without even the implied warranty of +'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +'GNU Lesser General Public License for more details. +' +'You should have received a copy of the GNU Lesser General Public License +'along with this program. If not, see . +' +Imports System.Windows.Forms + +Namespace Fileformats + + Friend Class ReferenceDateDialog + + Public Sub New() + + ' This call is required by the Windows Form Designer. + InitializeComponent() + + ' Add any initialization after the InitializeComponent() call. + + End Sub + + Private Sub dlgLoad(sender As System.Object, e As System.EventArgs) Handles MyBase.Load + Me.DateTimePicker_refDate.Focus() + End Sub + + Private Sub OK_Button_Click(sender As System.Object, e As System.EventArgs) Handles OK_Button.Click + Me.DialogResult = System.Windows.Forms.DialogResult.OK + Me.Close() + End Sub + + End Class + End Namespace \ No newline at end of file diff --git a/source/Wave.vbproj b/source/Wave.vbproj index 47d3e48c..3b74d577 100644 --- a/source/Wave.vbproj +++ b/source/Wave.vbproj @@ -316,10 +316,10 @@ - - HYDRO_AS-2D_Diag.vb + + ReferenceDateDialog.vb - + Form @@ -456,8 +456,8 @@ DFS0_ExportDialog.vb - - HYDRO_AS-2D_Diag.vb + + ReferenceDateDialog.vb VbMyResourcesResXFileCodeGenerator