Open the selected list item when Enter is pressed

Fleex255 · Jun 2, 2017 · 0a1a5e7 · 0a1a5e7
1 parent 84f3b86
commit 0a1a5e7
Show file tree

Hide file tree

Showing 6 changed files with 12 additions and 3 deletions.
diff --git a/PolicyPlus/LoadedAdmx.Designer.vb b/PolicyPlus/LoadedAdmx.Designer.vb
diff --git a/PolicyPlus/LoadedAdmx.vb b/PolicyPlus/LoadedAdmx.vb
@@ -19,4 +19,7 @@
     Private Sub LoadedAdmx_SizeChanged(sender As Object, e As EventArgs) Handles Me.SizeChanged
         ChNamespace.Width = Math.Max(30, LsvAdmx.ClientRectangle.Width - ChFolder.Width - ChFileTitle.Width)
     End Sub
+    Private Sub LsvAdmx_KeyDown(sender As Object, e As KeyEventArgs) Handles LsvAdmx.KeyDown
+        If e.KeyCode = Keys.Enter And LsvAdmx.SelectedItems.Count > 0 Then LsvAdmx_DoubleClick(sender, e)
+    End Sub
 End Class
diff --git a/PolicyPlus/LoadedProducts.Designer.vb b/PolicyPlus/LoadedProducts.Designer.vb
diff --git a/PolicyPlus/LoadedProducts.vb b/PolicyPlus/LoadedProducts.vb
@@ -59,4 +59,10 @@
         If lsv.SelectedItems.Count = 0 Then Exit Sub
         DetailProduct.PresentDialog(sender.SelectedItems(0).Tag)
     End Sub
+    Sub ListKeyPressed(sender As Object, e As KeyEventArgs) Handles LsvTopLevelProducts.KeyDown, LsvMajorVersions.KeyDown, LsvMinorVersions.KeyDown
+        If e.KeyCode = Keys.Enter Then
+            OpenProductDetails(sender, e)
+            e.Handled = True
+        End If
+    End Sub
 End Class
diff --git a/PolicyPlus/LoadedSupportDefinitions.Designer.vb b/PolicyPlus/LoadedSupportDefinitions.Designer.vb
diff --git a/PolicyPlus/LoadedSupportDefinitions.vb b/PolicyPlus/LoadedSupportDefinitions.vb
@@ -24,4 +24,7 @@
         ' Only repopulate if the form isn't still setting up
         If Visible Then UpdateListing()
     End Sub
+    Private Sub LsvSupport_KeyDown(sender As Object, e As KeyEventArgs) Handles LsvSupport.KeyDown
+        If e.KeyCode = Keys.Enter And LsvSupport.SelectedItems.Count > 0 Then LsvSupport_DoubleClick(sender, e)
+    End Sub
 End Class