Discussion :

[sofianeweb]

Bonjour,
j'ai un soucis avec le formatage text RTF

voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 Sub detailUser(ByVal login As String, ByVal champTxt As TextBox)
        champTxt.Clear()
        Dim ds As New DirectorySearcher()
 
        ds.Filter = "samaccountname=" & login
 
        Dim sr As SearchResult = ds.FindOne()
 
 
        Dim txtRTF
        txtRTF = "{\rtf1\ansi"
        For Each var As String In sr.Properties.PropertyNames
 
            txtRTF = txtRTF & "\b\ul\caps " & var & ":\par\b0\ul0\caps0 " & sr.Properties(var)(0).ToString() & "\par\par"
 
        Next
 
        txtRTF = txtRTF & "}"
        RichTextBox1.Rtf = txtRTF
    End Sub

mon problème est que cet objet sr.Properties(var)(0).ToString() contient des caractères qui déforme mon texte (mon texte se rétréci au bout de qq lignes )
qu-est ce que je dois mettre comme balise RTF pour ignorer le formatage RTF



merci d'avance

[sofianeweb]

bon j'ai fais autrement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
    Sub detailUser(ByVal login As String, ByVal champTxt As RichTextBox)
 
        champTxt.Clear()
        Dim ds As New DirectorySearcher()
 
        ds.Filter = "samaccountname=" & login
 
        Dim sr As SearchResult = ds.FindOne()
 
        Dim sb As New System.Text.StringBuilder()
 
        For Each var As String In sr.Properties.PropertyNames
            RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Bold + FontStyle.Underline)
            RichTextBox1.AppendText(var.ToUpper & vbNewLine)
            RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Regular)
            If sr.Properties(var)(0).ToString() = "System.Byte[]" Then
                Dim oSID As SecurityIdentifier = New SecurityIdentifier(CType(sr.Properties("objectSid")(0), Byte()), 0)
                champTxt.AppendText(oSID.Value.ToString & vbNewLine & vbNewLine)
 
            Else
                champTxt.AppendText(sr.Properties(var)(0).ToString() & vbNewLine & vbNewLine)
            End If
 
            Application.DoEvents()
        Next
 
    End Sub