Imports System.Drawing.Drawing2D Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load With TextBox1 .BorderStyle = BorderStyle.None .BackColor = Color.GreenYellow .Multiline = True .Size = New Size(90, 30) End With Dim pt(8) As Point pt(0) = New Point(8, 0) pt(1) = New Point(TextBox1.Width - 8, 0) pt(2) = New Point(TextBox1.Width, 8) pt(3) = New Point(TextBox1.Width, TextBox1.Height - 8) pt(4) = New Point(TextBox1.Width - 8, TextBox1.Height) pt(5) = New Point(8, TextBox1.Height) pt(6) = New Point(0, TextBox1.Height - 8) pt(7) = New Point(0, 8) pt(8) = New Point(8, 0) Dim _region(pt.Length - 1) As Byte For x = 0 To pt.Length - 1 _region(x) = PathPointType.Line Next Dim path As New GraphicsPath(pt, _region) TextBox1.Region = New Region(path) End Sub End Class
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
107 internautes nous ont dit merci ce mois-ci
Me.Region = New Region(path)
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.