MS kleine Dinge

GUIs.ZooFlow/frmFlowForm.vb

@@ -144,10 +144,12 @@ Public Class frmFlowForm
 
     Private Sub PictureBoxSearch_Click(sender As Object, e As EventArgs) Handles PictureBoxSearch.Click
         Cursor = Cursors.WaitCursor
+        If TheFormIsAlreadyLoaded("frmSearchStart") Then
+            Cursor = Cursors.Default
+            Exit Sub
+        End If
         Dim oForm As New frmSearchStart(DTIDB_SEARCHES)
         oForm.Show()
-        Dim oForm2 As New frmPreSearch()
-        oForm2.Show()
         Cursor = Cursors.Default
     End Sub
     Private Sub PictureBoxSearch_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxSearch.MouseEnter
@@ -194,4 +196,43 @@ Public Class frmFlowForm
     Private Sub frmFlowForm_DragLeave(sender As Object, e As EventArgs) Handles Me.DragLeave
         PictureBox1.Image = My.Resources._1_LOGO_ZOO_FLOW1
     End Sub
+
+    Private Sub PictureBoxAbo_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxAbo.MouseEnter
+        PictureBoxAbo.Image = My.Resources._2_ZOO_FLOW_Abo_MouseOver
+    End Sub
+
+    Private Sub PictureBoxAbo_MouseLeave(sender As Object, e As EventArgs) Handles PictureBoxAbo.MouseLeave
+        PictureBoxAbo.Image = My.Resources._2_ZOO_FLOW_Abo
+    End Sub
+
+    Private Sub PictureBoxAbo_Click(sender As Object, e As EventArgs) Handles PictureBoxAbo.Click
+        Cursor = Cursors.WaitCursor
+        If TheFormIsAlreadyLoaded("frmPreSearch") Then
+            Cursor = Cursors.Default
+            Exit Sub
+        End If
+        Dim oForm2 As New frmPreSearch()
+        oForm2.Show()
+        Cursor = Cursors.Default
+    End Sub
+    Private Function TheFormIsAlreadyLoaded(ByVal pFormName As String) As Boolean
+
+        TheFormIsAlreadyLoaded = False
+
+        For Each frm As Form In Application.OpenForms
+            If frm.Name.Equals(pFormName) Then
+                TheFormIsAlreadyLoaded = True
+                Exit Function
+            End If
+        Next
+
+    End Function
+
+    Private Sub UserKonfigurationToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UserKonfigurationToolStripMenuItem.Click
+
+    End Sub
+
+    Private Sub DatenbankverbindungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DatenbankverbindungToolStripMenuItem.Click
+        frmConfigDatabase.ShowDialog()
+    End Sub
 End Class