AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

ClipboardWatcher: fix frmMatch

Browse Source
This commit is contained in:
Jonathan Jenne 2020-12-23 15:47:38 +01:00
parent a846da8b58
commit 88e278a3ad
2 changed files with 25 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
GUIs.ClipboardWatcher/ProfileSearches.vb
View File

@ -29,7 +29,7 @@ Public Class ProfileSearches
Try Try
If _Environment.Service.IsActive = True Then If _Environment.Service.IsActive = True Then
Try Try
Dim oSplit() As String = _Environment.Service.Address.Split(";") Dim oSplit() As String = _Environment.Service.Address.Split(":")
Dim oAppServerAddress As String = oSplit(0) Dim oAppServerAddress As String = oSplit(0)
Dim oAppServerPort As Integer = 9000 Dim oAppServerPort As Integer = 9000
If oSplit.Length = 2 Then If oSplit.Length = 2 Then

5
GUIs.ClipboardWatcher/frmMatch.vb
View File

@ -228,6 +228,7 @@ Public Class frmMatch
End Sub End Sub
Private Async Sub TileControlMatch_ItemClick(sender As Object, e As TileItemEventArgs) Handles TileControlMatch.ItemClick Private Async Sub TileControlMatch_ItemClick(sender As Object, e As TileItemEventArgs) Handles TileControlMatch.ItemClick
Try
Dim oItem As TileItem = e.Item Dim oItem As TileItem = e.Item
Dim oProfileId As Integer = oItem.Tag Dim oProfileId As Integer = oItem.Tag
@ -252,6 +253,10 @@ Public Class frmMatch
End Select End Select
Hide() Hide()
Catch ex As Exception
MsgBox($"Error while loading Searches: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
_Logger.Error(ex)
End Try
End Sub End Sub
Private Sub OpenDocumentResults(Profile As ProfileData, Searches As List(Of ProfileSearches.Search)) Private Sub OpenDocumentResults(Profile As ProfileData, Searches As List(Of ProfileSearches.Search))