update to devexpress 15.2.16, add logger, add config
This commit is contained in:
@@ -25,7 +25,7 @@ Public Class clsWINDOWSApi
|
||||
Dim enumerator1 As New clsWindowApi
|
||||
'Jedes Formularwindow durchlaufen
|
||||
For Each top As clsWindowApi.ApiWindow In enumerator1.GetTopLevelWindows()
|
||||
If LogErrorsOnly = False Then clsLogger.Add(" ... top-window Name: " & top.MainWindowTitle, False)
|
||||
Logger.Debug(" ... top-window Name: " & top.MainWindowTitle, False)
|
||||
If top.MainWindowTitle.Contains(windowname) Or top.MainWindowTitle.ToLower = windowname.ToLower Then
|
||||
Console.WriteLine(top.MainWindowTitle)
|
||||
Return False
|
||||
@@ -33,7 +33,7 @@ Public Class clsWINDOWSApi
|
||||
Next top
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in IsRelevantWindowt:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
clsLogger.Add(">> Error in IsRelevantWindow:" & ex.Message, False)
|
||||
Logger.Info(">> Error in IsRelevantWindow:" & ex.Message, False)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Reference in New Issue
Block a user