Added keyboard shortcuts to the Google Drive form

moisespr123 · Apr 30, 2019 · a5baf33 · a5baf33
1 parent 6abc945
commit a5baf33
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/opus_gui/GoogleDriveForm.vb b/opus_gui/GoogleDriveForm.vb
@@ -97,4 +97,17 @@
         If FoldersListBox.SelectedIndex > -1 Then PopulateListBoxes(drive, drive.FolderListID(FoldersListBox.SelectedIndex))
     End Sub
 
+    Private Sub FoldersListBox_KeyDown(sender As Object, e As KeyEventArgs) Handles FoldersListBox.KeyDown
+        If e.KeyCode = Keys.Enter Then
+            If FoldersListBox.SelectedIndex > -1 Then
+                PopulateListBoxes(drive, drive.FolderListID(FoldersListBox.SelectedIndex))
+            End If
+        ElseIf e.KeyCode = Keys.Back Then
+            If (GoBackButton.Enabled) Then
+                PopulateListBoxes(drive, "back")
+            End If
+        ElseIf (e.KeyCode = Keys.F5) Then
+            PopulateListBoxes(drive, drive.currentFolder, True)
+        End If
+    End Sub
 End Class