Discussion :

[megamario]

Bonjour,

J'aurai besoin de faire un espion de communication, afin de surveiller ce qu'il est envoyé est reçus par mon logiciel, donc je partais sur une simple listbox, mais j’aimerais ajouter des couleurs pour bien différencier l’émission et la réception.

J'ai trouvé un projet avec une listbox acceptant de la couleur mais il n'accepte que 130 item.

Je ne suis pas bloqué sur une listbox, s'il y a d'autre choix plus judicieux.

Merci

[ProgElecT]

Salut

Bonjour,
.....
j’aimerais ajouter des couleurs pour bien différencier l’émission et la réception.
.....
Je ne suis pas bloqué sur une listbox, s'il y a d'autre choix plus judicieux.

Merci

Alors pourquoi pas le composant MSHFlexGrid à une colonne, (MSHFLXGD.oca, Microsoft Hierarchical FlexGrid Control 6.0 (OLEDB)
en jouant sur les propriétés CellBackColor pour le fond et CellForeColor pour l'encre.

[megamario]

Je viens de voir le richtextbox

C'est pas mal non plus. Avec la possibilité d'enregistrer facilement ce qui le compose en gardant le format.

Pour le moment j'arrive à quelque chose de pas trop mal, mais j'ai pas fini.

[l_autodidacte]

Il y a aussi le contrôle ListView qui peut être utilisé dans ce cadre.

A titre d'exemple, ajouter sur Form1 un contrôle ListView (Microsoft Windows Common Controls 6.0 (SP6) ) et mettre la propriété View à 3-lvwReport et ajouter deux entêtes de colonnes par exemple avec ce

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
Option Explicit
'
Dim itemX As ListItem, I%
Private Sub Form_Load()
   For I = 0 To 25
    Set itemX = LV.ListItems.Add(, , Chr(65 + I))
    itemX.SubItems(1) = LCase(Chr(65 + I))
   Next I
   For I = 1 To LV.ListItems.Count
      If I Mod 5 = 0 Then
       LV.ListItems(I).ForeColor = vbRed
       LV.ListItems(I).Bold = vbRed
       LV.ListItems(I).ListSubItems(1).ForeColor = vbRed
       LV.ListItems(I).ListSubItems(1).Bold = True
      End If
    Next I
End Sub

[megamario]

Merci pour l'info,

Voici ce que j'ai fait avec le richtextbox

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
28
29
30
31
32
33
34
35
36
37
 
'tp indique si c'est une réception ou une émission.
Public Sub AddText(ByVal tp As Integer, ByVal Message As String)
    Dim m As String
    Dim i As Integer
    If Not enStop Then
        RichTextBox1.SelColor = ColorConstants.vbBlack
        RichTextBox1.SelText = "[" & TimeToMillisecond & "] : "
        RichTextBox1.SelBold = False
        RichTextBox1.SelItalic = False
        For i = 1 To Len(Message)
            m = Mid(txt, i, 1)
            If InStr(1, m, Chr(22)) > 0 Then
                If optHex.value Then m = Replace(m, Chr(22), "(16)")
                If optChar.value Then m = Replace(m, Chr(22), "(SYN)")
                RichTextBox1.SelColor = &HC000&         'ColorConstants.vbCyan
            ElseIf InStr(1, m, Chr(13)) > 0 Then
                If optHex.value Then m = Replace(m, Chr(13), "(0D)")
                If optChar.value Then m = Replace(m, Chr(13), "(CR)")
                RichTextBox1.SelColor = &H8000&           'ColorConstants.vbCyan
            ElseIf InStr(1, m, Chr(10)) > 0 Then
                If optHex.value Then m = Replace(m, Chr(10), "(0A)")
                If optChar.value Then m = Replace(m, Chr(10), "(LF)")
                RichTextBox1.SelColor = &H4000&       'ColorConstants.vbCyan
            ElseIf InStr(1, m, Chr(6)) > 0 Then
                If optHex.value Then m = Replace(m, Chr(6), "(06)")
                If optChar.value Then m = Replace(m, Chr(6), "(ACK)")
                RichTextBox1.SelColor = &H80FF&    'ColorConstants.vbCyan
            Else
                If tp = 1 Then RichTextBox1.SelColor = ColorConstants.vbBlue
                If tp = 2 Then RichTextBox1.SelColor = ColorConstants.vbRed
            End If
            RichTextBox1.SelText = m
        Next i
        RichTextBox1.SelText = vbCrLf
    End If
End Sub

Ce qui me donne exporté ensuite en doc ou rtf



Bon les couleurs sont un peu criardes va falloir que j'adapte.
J'ai remplacé les caractères invisibles par du texte.