Ajout de "marge" dans un TextBox

**patrickvier** · 19/08/2015, 12h36

Bonjour,
je souhaiterai ajouter une marge (gauche) au texte d'un textbox ou richtextbox.
J'ai déjà regardé dans les props, mais il ne semble pas y avoir qlq chose du style :
TextLeftMargin = 5, par exemple.
Je ne parle pas de la marge du composant, je parle bien d'une marge intérieur pour le texte, car la 1ere lettre collée sur la gauche, c'est pas très joli

Une idée ?
Évidemment, il y a : créer un panel, et mettre un textbox de la même couleur, dedans, mais c'est un peu trop, non ?

Patrick

**Kropernic** · 19/08/2015, 13h10

Regarde du côté des propriétés Margin ou Padding. Je confonds toujours les deux. L'une est pour l'intérieur et l'autre pour l'extérieur du contrôle. Et vu que tu peux définir séparément les valeurs pour les 4 côtés, ça devrait faire ton bonheur.

**patrickvier** · 19/08/2015, 13h25

Bonjour Kropernic,
le Margin sert aux espacement entre controls voisins.
Le Padding est une marge interne, mais pour un container de controls, genre un panel par rapport à ses bords interne et les autres composant qui y sont contenus.
Pas de Padding pour une boite texte

Cela aurait pu être la soluce.

En effet, faudrait un Padding pour le texte à l'interieur de la textbox.

Patrick

**Kropernic** · 19/08/2015, 13h31

Ah zut...

Mais t'as vraiment besoin d'une marge supplémentaire ? Dans mes textbox, le texte n'est pas du tout collé au bord gauche. Doit bien y avoir 2 ou 3 pixels...

EDIT : C'est marrant, l'espace est moins grand avec les minuscules qu'avec les majuscules (et j'ai testé avec le M histoire d'avoir un bord droit)

**patrickvier** · 19/08/2015, 13h39

J'utilise les textbox et autre boutons en BorderStyle=none, donc le texte est super collé sur le bord.
Seul moyen est d'être en BorderStyle=FixedSingle.

Sinon, je viens de trouver cela :

Code :

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

TextBox1.Text = TextBox1.Text.PadLeft(30)

Mais ça ajoute des espace devant le text, donc si on fait un copié/collé de la txtbox, on se retrouve avec des espace en plus... la loose

Patrick

**Kropernic** · 19/08/2015, 13h49

Ouais c'est ce que j'allais dire... Tu peux ajouter des espaces mais bon et faire un trim au moment de mettre dans le clipboard mais bon... C'est moche... A mon avis, va falloir passer par un contrôle custom pour ça je crois...

T'as rien trouvé de tout fait sur le net ?

**patrickvier** · 19/08/2015, 14h23

Non, rien trouvé de concret.
Pour l'ajout d'espace (PadLeft), c'est pas beau car avec une tbox en multiligne, voila la galère si tu veux copier le contenu.
Bon, je me débrouille avec le BorderStyle=FixedSingle, ça me donne un tout petit peu de marge et je reste dans le design (plat).
Merci pour ton aide.
Patrick

**Kropernic** · 19/08/2015, 14h27

Suis en train de me créer un petit framework de contrôle custom. Du coup, je teste cette histoire de marge. Si j'arrive à qqch de probant, je posterai le résultat.

**Kropernic** · 19/08/2015, 14h42

Hello,

C'est à terminer mais avec un truc dans ce genre-ci (voir code ci-dessous), tu peux arriver à tes fins.

J'ai en fait créé un UserControl dans lequel j'ai un TextBox sans bordure. Une propriété InnerLeftMargin qui stocke le nombre de pixel de la marge et on va modifier la place du TextBox avec cette valeur.

Plus qu'à modifier la couleur de fond du UserControl pour avoir le même histoire de ne pas voir de différence et voilà.

Après, reste plus qu'à exposer à travers ce nouveau UserControl toutes les propriétés, méthodes et évènement du TextBox.

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
38
39
40
41
42
43
44
45
46
47
48
49
50
Imports System.Windows.Forms
Public Class MargedTextBox
    Inherits UserControl
 
    Friend WithEvents TextBox1 As TextBox
 
    Private _innerLeftMargin As Integer
    Public Property InnerLeftMargin As Integer
        Get
            Return _innerLeftMargin
        End Get
        Set(value As Integer)
            _innerLeftMargin = value
            TextBox1.Location = New Drawing.Point(value, 0)
        End Set
    End Property
 
    Public Sub New()
        InitializeComponent()
 
        InnerLeftMargin = 0
        Me.BackColor = TextBox1.BackColor
    End Sub
 
    Private Sub InitializeComponent()
        Me.TextBox1 = New System.Windows.Forms.TextBox()
        Me.SuspendLayout()
        '
        'TextBox1
        '
        Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.TextBox1.Location = New System.Drawing.Point(0, 0)
        Me.TextBox1.Margin = New System.Windows.Forms.Padding(0)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(100, 13)
        Me.TextBox1.TabIndex = 0
        '
        'MargedTextBox
        '
        Me.AutoSize = True
        Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
        Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.Controls.Add(Me.TextBox1)
        Me.Name = "MargedTextBox"
        Me.Size = New System.Drawing.Size(100, 13)
        Me.ResumeLayout(False)
        Me.PerformLayout()
 
    End Sub
End Class

N.B. : Par contre, je pense qu'il doit y avoir plus simple.