MS_25112015_2

app/DD-Record-Organiser/frmUserKonfig_AddUsers.vb

@@ -126,4 +126,15 @@ Public Class frmUserKonfig_AddUsers
             clbUsers.SetItemChecked(i, False)
         Next
     End Sub
+
+    Private Sub clbUsers_SelectedIndexChanged(sender As Object, e As EventArgs) Handles clbUsers.SelectedIndexChanged
+        ToolTipController1.HideHint()
+        Dim userstring As String = clbUsers.SelectedItem.ToString
+        Dim userldap As UserPrincipal = clbUsers.SelectedItem
+        Dim PRENAME As String = userldap.GivenName
+        Dim NAME As String = userldap.Surname
+        Dim USERNAME As String = userldap.SamAccountName
+        Dim email As String = userldap.EmailAddress
+        ToolTipController1.ShowHint("Used ldap paramters:", userstring & USERNAME & vbNewLine & email, DevExpress.Utils.ToolTipLocation.RightCenter)
+    End Sub
 End Class