AppStd/ClipboardWatcher
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

update ui

Browse Source
This commit is contained in:
Jonathan Jenne
2019-10-29 12:22:05 +01:00
parent c54830c4a3
commit 24e1fa2e04
6 changed files with 77 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
app/DD_Clipboard_Searcher/frmStart.vb
View File

@@ -60,9 +60,7 @@ Public Class frmStart
End If
labelVersion.Text = String.Format(labelVersion.Text, My.Application.Info.Version.ToString)
labelUser.Text = String.Format(labelUser.Text, USER_USERNAME)
labelHotkey.Text = String.Format(labelHotkey.Text, $"{HotkeyFunctionKey.ToUpper}+{HotkeySearchKey.ToUpper}")
RefreshUI()
End Sub
Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
@@ -153,6 +151,7 @@ Public Class frmStart
Try
Dim oProfiles = oProfileFilter.Profiles.AsEnumerable()
Dim oEnvironment = GetEnvironment()
oProfiles = oProfileFilter.FilterProfilesByClipboardRegex(oProfiles, ClipboardContents)
oProfiles = oProfileFilter.LogRemainingProfiles(oProfiles, "FilterProfilesByClipboardRegex")
@@ -162,6 +161,8 @@ Public Class frmStart
oProfiles = oProfileFilter.LogRemainingProfiles(oProfiles, "FilterWindowsByWindowTitleRegex")
oProfiles = oProfileFilter.FilterProfilesByFocusedControl(oProfiles, ClipboardContents, Handle)
oProfiles = oProfileFilter.LogRemainingProfiles(oProfiles, "FilterProfilesByFocusedControl")
oProfiles = oProfileFilter.FilterProfilesBySearchResults(oProfiles, oEnvironment.Database, oEnvironment.User, ClipboardContents)
oProfiles = oProfileFilter.LogRemainingProfiles(oProfiles, "FilterProfilesBySearchResults")
oProfiles = oProfileFilter.ClearNotMatchedProfiles(oProfiles)
oProfiles = oProfileFilter.ClearDuplicateProfiles(oProfiles)
oProfiles = oProfileFilter.LogRemainingProfiles(oProfiles, "CleanUp")
@@ -386,10 +387,19 @@ Public Class frmStart
End If
End Sub
Private Sub TimerRefresh_Tick(sender As Object, e As EventArgs) Handles TimerRefresh.Tick
ClassInit.Refresh_Profile_Links()
lblrefresh.Text =
RefreshUI()
End Sub
Private Sub RefreshUI()
Dim oResultText = ClassInit.Refresh_Profile_Links()
lblrefresh.Text = ""
ClassInit.CheckModuleData()
lblrefresh.Text = $"Refreshed: {Now.ToShortTimeString} - UserLoggedIn: {USERCOUNT_LOGGED_IN}"
labelStatus.Text = oResultText
labelRefresh.Text = $"Aktualisiert: {Now.ToShortTimeString}"
lblrefresh.Text = $"Eingeloggte Benutzer: {USERCOUNT_LOGGED_IN}"
labelVersion.Text = String.Format(labelVersion.Text, My.Application.Info.Version.ToString)
labelUser.Text = String.Format(labelUser.Text, USER_USERNAME)
labelHotkey.Text = String.Format(labelHotkey.Text, $"{HotkeyFunctionKey.ToUpper}+{HotkeySearchKey.ToUpper}")
End Sub
Private Sub BisherigenAblaufAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BisherigenAblaufAnzeigenToolStripMenuItem.Click