Key is recomputed on MouseUp or KeyUp.

Fixes #7 and Fixes #6.
DrewNaylor · May 17, 2017 · 3def4cc · 3def4cc
1 parent 2b2e2b8
commit 3def4cc
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 3 deletions.
diff --git a/HideSettingsPages/aaformMainWindow.resx b/HideSettingsPages/aaformMainWindow.resx
@@ -121,6 +121,6 @@
     <value>17, 17</value>
   </metadata>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>25</value>
+    <value>62</value>
   </metadata>
 </root>
diff --git a/HideSettingsPages/aaformMainWindow.vb b/HideSettingsPages/aaformMainWindow.vb
@@ -50,8 +50,8 @@ Public Class aaformMainWindow
     Private Sub checkedlistboxPageList_SelectedIndexChanged(sender As Object, e As EventArgs) Handles checkedlistboxPageList.SelectedIndexChanged
         ' When the user checks checkboxes, update the string that displays
         ' which pages the user chose for the Registry key.
-        registryKeyBuilder.computeStringFullRegistryKey()
-        textboxRegistryKey.Text = registryKeyBuilder.stringFullRegistryKey
+        'registryKeyBuilder.computeStringFullRegistryKey()
+        'textboxRegistryKey.Text = registryKeyBuilder.stringFullRegistryKey
     End Sub
 
     Private Sub radiobuttonHidePages_Click(sender As Object, e As EventArgs) Handles radiobuttonHidePages.Click
@@ -67,5 +67,22 @@ Public Class aaformMainWindow
         registryKeyBuilder.computeStringFullRegistryKey()
         textboxRegistryKey.Text = registryKeyBuilder.stringFullRegistryKey
     End Sub
+
+#Region "Ensure the Registry key is properly recomputed when the user uses the mouse or keyboard."
+    Private Sub checkedlistboxPageList_MouseUp(sender As Object, e As MouseEventArgs) Handles checkedlistboxPageList.MouseUp
+        ' When the user checks checkboxes, update the string that displays
+        ' which pages the user chose for the Registry key.
+        registryKeyBuilder.computeStringFullRegistryKey()
+        textboxRegistryKey.Text = registryKeyBuilder.stringFullRegistryKey
+    End Sub
+
+    Private Sub checkedlistboxPageList_KeyUp(sender As Object, e As KeyEventArgs) Handles checkedlistboxPageList.KeyUp
+        ' When the user checks checkboxes, update the string that displays
+        ' which pages the user chose for the Registry key.
+        registryKeyBuilder.computeStringFullRegistryKey()
+        textboxRegistryKey.Text = registryKeyBuilder.stringFullRegistryKey
+    End Sub
+#End Region
+
 #End Region
 End Class