This commit is contained in:
SchreiberM 2021-05-07 10:37:20 +02:00
commit 085c9d6bc9
2 changed files with 17 additions and 13 deletions

View File

@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyCompany("Digital Data")> <Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("Process Manager")> <Assembly: AssemblyProduct("Process Manager")>
<Assembly: AssemblyCopyright("Copyright © Digital Data 2021")> <Assembly: AssemblyCopyright("Copyright © Digital Data 2021")>
<Assembly: AssemblyTrademark("21110")> <Assembly: AssemblyTrademark("21130")>
<Assembly: ComVisible(False)> <Assembly: ComVisible(False)>

View File

@ -14,6 +14,7 @@ Imports DevExpress.XtraEditors.Repository
Imports DigitalData.Modules.EDMI.API Imports DigitalData.Modules.EDMI.API
Imports DigitalData.Modules.EDMI.API.EDMIServiceReference Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
Imports DevExpress.XtraGrid.Views.Grid Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraEditors.Controls
Public Class frmValidator Public Class frmValidator
Dim strFileList() Dim strFileList()
@ -82,7 +83,22 @@ Public Class frmValidator
Private ControlHandleStarted As Boolean = False Private ControlHandleStarted As Boolean = False
Public Sub New()
'MyBase.New
LOGGER.Debug("Initialize Components...")
InitializeComponent()
LOGGER.Debug("Initialize _frmValidatorSearch...")
Try
_frmValidatorSearch = New frmValidatorSearch
Catch ex As Exception
LOGGER.Error(ex)
End Try
Localizer.Active = New LookupGridLocalizer()
End Sub
Private Sub frmValidation_Load(sender As Object, e As System.EventArgs) Handles Me.Load Private Sub frmValidation_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Try Try
LOGGER.Debug("###frmValidation_Load###") LOGGER.Debug("###frmValidation_Load###")
DataASorDB = New ClassDataASorDB DataASorDB = New ClassDataASorDB
@ -5227,18 +5243,6 @@ Public Class frmValidator
Private Const SEE_MASK_FLAG_NO_UI = &H400 Private Const SEE_MASK_FLAG_NO_UI = &H400
Public Const SW_SHOW As Short = 5 Public Const SW_SHOW As Short = 5
Public Sub New()
'MyBase.New
LOGGER.Debug("Initialize Components...")
InitializeComponent()
LOGGER.Debug("Initialize _frmValidatorSearch...")
Try
_frmValidatorSearch = New frmValidatorSearch
Catch ex As Exception
LOGGER.Error(ex)
End Try
End Sub
<DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)> <DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)>
Public Shared Function ShellExecuteEx(ByRef lpExecInfo As SHELLEXECUTEINFO) As Boolean Public Shared Function ShellExecuteEx(ByRef lpExecInfo As SHELLEXECUTEINFO) As Boolean
End Function End Function