MS Images integriert

GUIs.ZooFlow/frmFlowForm.vb

@@ -9,6 +9,9 @@ Public Class frmFlowForm
 
     Private ESCHitCount As Integer = 0
 
+    Private DTIDB_SEARCHES As DataTable
+    Private IDBSearchActive As Boolean = False
+
     Public Event ClipboardChanged As EventHandler(Of IDataObject)
 
     Private Sub frmFlowForm_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -26,9 +29,25 @@ Public Class frmFlowForm
         AddHandler KeyUp, AddressOf frmFlowForm_KeyDown
 
         For Each oControl As Control In Controls
-            AddHandler oControl.MouseHover, AddressOf frmFlowForm_MouseHover
+            AddHandler oControl.MouseEnter, AddressOf frmFlowForm_MouseEnter
             AddHandler oControl.MouseLeave, AddressOf frmFlowForm_MouseLeave
         Next
+
+        Dim oSQL = $"SELECT * FROM [dbo].[FNIDB_GET_SEARCH_PROFILES] ({My.Application.User.UserId},'{My.Application.User.Language}')"
+        Dim oDT As DataTable = My.Database_IDB.GetDatatable(oSQL)
+        PictureBoxSearch.Visible = False
+        If Not IsNothing(oDT) Then
+            If oDT.Rows.Count > 0 Then
+                IDBSearchActive = True
+                DTIDB_SEARCHES = oDT
+                PictureBoxSearch.Visible = True
+            End If
+
+        End If
+
+        My.DTAttributes = My.Database_IDB.GetDatatable("SELECT * FROM TBIDB_ATTRIBUTE")
+
+
     End Sub
 
     Public Sub SetFormLocation()
@@ -39,7 +58,7 @@ Public Class frmFlowForm
         Opacity = OPACITY_HIDDEN
     End Sub
 
-    Private Sub frmFlowForm_MouseHover(sender As Object, e As EventArgs) Handles Me.MouseHover
+    Private Sub frmFlowForm_MouseEnter(sender As Object, e As EventArgs) Handles Me.MouseEnter
         Opacity = OPACITY_SHOWN
     End Sub
 
@@ -53,17 +72,7 @@ Public Class frmFlowForm
     Private Sub frmFlowForm_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs)
         If e.KeyCode = Keys.Escape Then
             If ESCHitCount > 0 Then
-                Dim oResult As DialogResult = MessageBox.Show("Exit Zooflow", "Please Varify", MessageBoxButtons.YesNo)
-                If oResult = DialogResult.Yes Then
-                    ' Save Settings
-                    My.UIConfig.FlowForm.Location = Location
-                    My.UIConfigManager.Save()
-
-                    ' Exit
-                    Application.Exit()
-                Else
-                    ESCHitCount = 0
-                End If
+                ExitZooflow
             Else
                 ESCHitCount += 1
             End If
@@ -73,4 +82,50 @@ Public Class frmFlowForm
             End If
         End If
     End Sub
+    Sub ExitZooflow()
+        Dim oResult As DialogResult = MessageBox.Show("Exit Zooflow", "Please Varify", MessageBoxButtons.YesNo)
+        If oResult = DialogResult.Yes Then
+            ' Save Settings
+            My.UIConfig.FlowForm.Location = Location
+            My.UIConfigManager.Save()
+
+            ' Exit
+            Application.Exit()
+        Else
+            ESCHitCount = 0
+        End If
+    End Sub
+    Private Sub PictureBoxSearch_Click(sender As Object, e As EventArgs) Handles PictureBoxSearch.Click
+        Dim oForm As New frmSearchStart(DTIDB_SEARCHES)
+        oForm.Show()
+    End Sub
+
+    Private Sub PictureBoxSearch_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxSearch.MouseEnter
+
+    End Sub
+    Private Sub PictureBoxSearch_MouseLeave(sender As Object, e As EventArgs) Handles PictureBoxSearch.MouseLeave
+
+    End Sub
+
+    Private Sub PictureBoxPM_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxPM.MouseEnter
+
+    End Sub
+
+    Private Sub PictureBoxPM_MouseLeave(sender As Object, e As EventArgs) Handles PictureBoxPM.MouseLeave
+
+    End Sub
+
+    Private Sub PictureBoxCWFound_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxCWFound.MouseEnter
+        PictureBoxCWFound.Image = My.Resources._2_ZOO_FLOW5_CW_r
+        Opacity = OPACITY_SHOWN
+    End Sub
+
+    Private Sub PictureBoxCWFound_MouseLeave(sender As Object, e As EventArgs) Handles PictureBoxCWFound.MouseLeave
+        PictureBoxCWFound.Image = My.Resources._2_ZOO_FLOW5_CW_w
+
+    End Sub
+
+    Private Sub ZooFlowBeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZooFlowBeendenToolStripMenuItem.Click
+        ExitZooflow()
+    End Sub
 End Class