Small fixes

This commit is contained in:
Jonathan Jenne
2019-07-31 17:11:13 +02:00
parent 71559c9ca5
commit 28d5e590b4
8 changed files with 5375 additions and 865 deletions

View File

@@ -22,8 +22,14 @@ Public Class frmStart
Dim ClipboardContents As String = Clipboard.GetText()
Dim WindowTitle As String = clsHotkey.GetCaption()
Dim oProfileFilter As ClassProfileFilter
Dim oProfileFilter As New ClassProfileFilter(DT_USER_PROFILES, DTPROFILE_REL_WINDOW)
Try
oProfileFilter = New ClassProfileFilter(DT_USER_PROFILES, DTPROFILE_REL_WINDOW)
Catch ex As Exception
MsgBox("Fehler beim Laden der Profile. Möglicherweise liegt ein Konfigurationsfehler vor.")
Exit Sub
End Try
Dim oProfiles = oProfileFilter.Profiles.AsEnumerable()