Discussion :

[Shadam]

Bonjour tout le monde,

Je souhaite mettre en page une TextBox multiligne, c'est à dire que je voudrais que la 1ère ligne soit un titre (donc rentré en dur dans le code) et que le reste soit rentré dynamiquement par mon application.
Cependant ça ne marche pas du tout...

Je vous mets mon code, si vous pouviez me dire ce que vous y voyez comme erreur se serait bien aimable, merci d'avance

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim text As String
            Me.TextBoxParticularite.BackColor = System.Drawing.SystemColors.MenuText
            Me.TextBoxParticularite.Font = New System.Drawing.Font("Arial Narrow", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
            Me.TextBoxParticularite.ForeColor = System.Drawing.SystemColors.Menu
            text = "PARTICULARITÉS" + vbCrLf + vbCrLf
            Me.TextBoxParticularite.BackColor = DefaultBackColor
            Me.TextBoxParticularite.Font = DefaultFont
            Me.TextBoxParticularite.ForeColor = DefaultForeColor
            For Each p As Particularites In listeParticularites
                text += p.Part_ID.ToString + ".   " + p.Part_LIB.ToString.ToLower + vbCrLf
            Next
            TextBoxParticularite.Text = text

[asmduty]

Dans une textbox toutes les lgnes auront la même police, couleur et backcolor.

Si tu veux faire ça, utilise une richtextbox

[Shadam]

Bon j'ai commencé à bosser dessus mais il me reste encore quelques problèmes...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub DGVParticularite_RowsAdded(ByVal sender As Object, ByVal e As System.EventArgs) Handles DGVParticularite.RowsAdded
        If listeParticularites.Count > 0 Then
            RichTextBoxParticularites.BackColor = Color.Black
            RichTextBoxParticularites.ForeColor = Color.White
            RichTextBoxParticularites.Font = New Font("Verdana", 16)
            RichTextBoxParticularites.Text = "PARTICULARITÉS" + vbCrLf + vbCrLf
            RichTextBoxParticularites.BackColor = Color.White
            RichTextBoxParticularites.ForeColor = Color.Black
            RichTextBoxParticularites.Font = New Font("Verdana", 10)
            For Each p As Particularites In listeParticularites
                RichTextBoxParticularites.Text += p.Part_ID.ToString + ".  " + p.Part_LIB.ToString.ToLower + vbCrLf
            Next
        End If
    End Sub

le problème c'est que ça me donne ça :



Or normalement la 1ère ligne devrait être blanche sur fond noir...

Si vous avez des suggestions