MS
This commit is contained in:
@@ -135,14 +135,13 @@ Public Class frmUserKonfig_AddUsers
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub clbUsers_SelectedIndexChanged(sender As Object, e As EventArgs) Handles clbUsers.SelectedIndexChanged
|
Private Sub clbUsers_SelectedIndexChanged(sender As Object, e As EventArgs) Handles clbUsers.SelectedIndexChanged
|
||||||
|
ToolTipController1.HideHint()
|
||||||
Dim userstring As String = clbUsers.SelectedItem.ToString
|
Dim userstring As String = clbUsers.SelectedItem.ToString
|
||||||
Dim userldap As UserPrincipal = clbUsers.SelectedItem
|
Dim userldap As UserPrincipal = clbUsers.SelectedItem
|
||||||
Dim PRENAME As String = userldap.GivenName
|
Dim PRENAME As String = userldap.GivenName
|
||||||
Dim NAME As String = userldap.Surname
|
Dim NAME As String = userldap.Surname
|
||||||
Dim USERNAME As String = userldap.SamAccountName
|
Dim USERNAME As String = userldap.SamAccountName
|
||||||
Dim email As String = userldap.EmailAddress
|
Dim email As String = userldap.EmailAddress
|
||||||
ToolTipController1.HideHint()
|
|
||||||
ToolTipController1.ShowHint("Used ldap paramters:", userstring & USERNAME & vbNewLine & email, DevExpress.Utils.ToolTipLocation.RightCenter)
|
ToolTipController1.ShowHint("Used ldap paramters:", userstring & USERNAME & vbNewLine & email, DevExpress.Utils.ToolTipLocation.RightCenter)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user