MS_17.03

app/DD-Record-Organiser/frmUserKonfig.vb

@@ -225,7 +225,6 @@
                 Me.CHANGED_WHOTextBox1.Text = Environment.UserName
                 Me.TBDD_USER_GROUPSBindingSource.EndEdit()
                 Me.TBDD_USER_GROUPSTableAdapter.Update(Me.DD_DMSDataSet.TBDD_USER_GROUPS)
-                MsgBox("Changes saved successfully.", MsgBoxStyle.Information)
             End If
         Catch ex As Exception
             MsgBox("Error in Save Groups:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -448,4 +447,44 @@
         Next
         LoadUserForClient()
     End Sub
+
+    Private Sub txtUserSearch1_TextChanged(sender As Object, e As EventArgs) Handles txtUserSearch1.TextChanged
+        Dim i As Integer = lbUsers.FindString(txtUserSearch1.Text)
+        lbUsers.SelectedIndex = i
+        If txtUserSearch1.Text = "" Then
+            lbUsers.SelectedIndex = -1
+        End If
+    End Sub
+
+    Private Sub txtUserSearch2_TextChanged(sender As Object, e As EventArgs) Handles txtUserSearch2.TextChanged
+        Dim i As Integer = chklbxUserForGroup.FindString(txtUserSearch2.Text)
+        chklbxUserForGroup.SelectedIndex = i
+        If txtUserSearch2.Text = "" Then
+            chklbxUserForGroup.SelectedIndex = -1
+        End If
+    End Sub
+
+    Private Sub txtUserSearch3_TextChanged(sender As Object, e As EventArgs) Handles txtUserSearch3.TextChanged
+        Dim i As Integer = clbUsersGroups.FindString(txtUserSearch3.Text)
+        clbUsersGroups.SelectedIndex = i
+        If txtUserSearch3.Text = "" Then
+            clbUsersGroups.SelectedIndex = -1
+        End If
+    End Sub
+
+    Private Sub txtUserSearch4_TextChanged(sender As Object, e As EventArgs) Handles txtUserSearch4.TextChanged
+        Dim i As Integer = chklbxUserClient.FindString(txtUserSearch4.Text)
+        chklbxUserClient.SelectedIndex = i
+        If txtUserSearch2.Text = "" Then
+            chklbxUserClient.SelectedIndex = -1
+        End If
+    End Sub
+
+    Private Sub txtUserSearch5_TextChanged(sender As Object, e As EventArgs) Handles txtUserSearch5.TextChanged
+        Dim i As Integer = chklbxUsersforClient.FindString(txtUserSearch5.Text)
+        chklbxUsersforClient.SelectedIndex = i
+        If txtUserSearch2.Text = "" Then
+            chklbxUsersforClient.SelectedIndex = -1
+        End If
+    End Sub
 End Class