MSLoadingForms

app/DD_Clipboard_Searcher/frmResultDoc.vb

@@ -41,6 +41,7 @@ Public Class frmResultDoc
     Private DTDocSearchDefinition As DataTable
     Private _frmDocView As frmDocView 'You need a reference to Form1
     Private _frmProfileMatch As frmDocView 'You need a reference to Form1
+    Private _activeGridView As GridView
 #End Region
     Public Sub New()
         MyBase.New
@@ -367,9 +368,18 @@ Public Class frmResultDoc
         End Try
     End Sub
     Sub Refresh_DocID(myGrid As GridView)
+        _activeGridView = myGrid
         clsWMDocGrid.ActiveDocGrid = myGrid
         clsWMDocGrid.ActiveDocGrid.EndSelection()
         clsWMDocGrid.GetDocItems()
+        Try
+            ContextMenuStripWMFile.Close()
+        Catch ex As Exception
+
+        End Try
+
+
+
         If ToolStripDropDownButtonFile.Visible = False Then
             ToolStripDropDownButtonFile.Visible = True
         End If
@@ -388,6 +398,7 @@ Public Class frmResultDoc
                     With f
                         .Show()
                         .Load_File_from_Path(clsWMDocGrid.SELECTED_DOC_PATH)
+
                     End With
                 End If
             Catch ex As Exception
@@ -398,16 +409,18 @@ Public Class frmResultDoc
                 End With
                 _frmDocView = newDocView
             End Try
-
+            Me.BringToFront()
         Else
             tslblDocID.Text = "DocRow not selected"
             ToolStripDropDownButtonFile.Enabled = False
         End If
     End Sub
     Private Sub GridViewDocSearch1_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles GridViewDocSearch1.FocusedRowChanged
+        _activeGridView = GridViewDocSearch1
         Refresh_DocID(GridViewDocSearch1)
     End Sub
     Private Sub GridViewDocSearch1_ColumnWidthChanged(sender As Object, e As Views.Base.ColumnEventArgs) Handles GridViewDocSearch1.ColumnWidthChanged
+        _activeGridView = GridViewDocSearch1
         SaveDocGridLayout()
     End Sub
 
@@ -505,38 +518,47 @@ Public Class frmResultDoc
     End Sub
 
     Private Sub GridViewDocSearch1_FocusedColumnChanged(sender As Object, e As Views.Base.FocusedColumnChangedEventArgs) Handles GridViewDocSearch1.FocusedColumnChanged
+        _activeGridView = GridViewDocSearch1
         Refresh_DocID(GridViewDocSearch1)
     End Sub
 
     Private Sub GridViewDocSearch2_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDocSearch2.FocusedColumnChanged
+        _activeGridView = GridViewDocSearch2
         Refresh_DocID(GridViewDocSearch2)
     End Sub
 
     Private Sub GridViewDocSearch3_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDocSearch3.FocusedColumnChanged
+        _activeGridView = GridViewDocSearch3
         Refresh_DocID(GridViewDocSearch3)
     End Sub
 
     Private Sub GridViewDocSearch4_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDocSearch4.FocusedColumnChanged
+        _activeGridView = GridViewDocSearch4
         Refresh_DocID(GridViewDocSearch4)
     End Sub
 
     Private Sub GridViewDocSearch5_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDocSearch5.FocusedColumnChanged
+        _activeGridView = GridViewDocSearch5
         Refresh_DocID(GridViewDocSearch5)
     End Sub
 
     Private Sub GridViewDocSearch2_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDocSearch2.FocusedRowChanged
+        _activeGridView = GridViewDocSearch2
         Refresh_DocID(GridViewDocSearch2)
     End Sub
 
     Private Sub GridViewDocSearch3_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDocSearch3.FocusedRowChanged
+        _activeGridView = GridViewDocSearch3
         Refresh_DocID(GridViewDocSearch3)
     End Sub
 
     Private Sub GridViewDocSearch4_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDocSearch4.FocusedRowChanged
+        _activeGridView = GridViewDocSearch4
         Refresh_DocID(GridViewDocSearch4)
     End Sub
 
     Private Sub GridViewDocSearch5_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDocSearch5.FocusedRowChanged
+        _activeGridView = GridViewDocSearch5
         Refresh_DocID(GridViewDocSearch5)
     End Sub
 
@@ -558,4 +580,38 @@ Public Class frmResultDoc
         Dim oTabCaption = DTDocSearchDefinition.Rows(XtraTabControlDocs.SelectedTabPageIndex).Item("TAB_TITLE")
         RefreshTabDoc(oProfileID, oConID, oCommand, oTabIndex, oTabCaption)
     End Sub
+
+    Private Sub GridControlDocSearch1_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch1.DoubleClick
+        Refresh_DocID(GridViewDocSearch1)
+        FileShow()
+    End Sub
+    Private Sub GridControlDocSearch2_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch2.DoubleClick
+        Refresh_DocID(GridViewDocSearch2)
+        FileShow()
+    End Sub
+    Private Sub GridControlDocSearch3_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch3.DoubleClick
+        Refresh_DocID(GridViewDocSearch3)
+        FileShow()
+    End Sub
+    Private Sub GridControlDocSearch4_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch4.DoubleClick
+        Refresh_DocID(GridViewDocSearch4)
+        FileShow()
+    End Sub
+    Private Sub GridControlDocSearch5_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch5.DoubleClick
+        Refresh_DocID(GridViewDocSearch5)
+        FileShow()
+    End Sub
+
+    Private Sub OrdnerÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OrdnerÖffnenToolStripMenuItem.Click
+        Open_Folder()
+
+    End Sub
+    Sub Open_Folder()
+        Dim oFilepath = Path.GetDirectoryName(clsWMDocGrid.SELECTED_DOC_PATH)
+        If System.IO.Directory.Exists(oFilepath) = True Then
+            Process.Start(oFilepath)
+        Else
+            MsgBox("Folder '" & oFilepath & "' not existing or accessible!", MsgBoxStyle.Exclamation)
+        End If
+    End Sub
 End Class