[VB.NET] لعمل التكست بوكسText box , Button بشكل دائرى الحواف

عمل Class ,Form ثم كتابة هذ الكود
Imports SystemImports System.DrawingImports System.Runtime.InteropServicesImports System.ComponentModelPublic Class RoundButton Inherits Button <DllImport("gdi32.dll", entrypoint:="CreateRoundRectRgn")> Private Shared Function CreateRoundButton(ByVal nLeftRect As Integer, ByVal nTopRec As Integer, ByVal nRightRec As Integer, ByVal nBottomRec As Integer, ByVal nHighRec As Integer, ByVal nWidthRec As Integer) As IntPtr End Function Protected Overrides Sub OnCreateControl() MyBase.OnCreateControl() Me.Region = System.Drawing.Region.FromHrgn(CreateRoundButton(2, 3, Me.Width, Me.Height, 20, 20)) End Sub Protected Overrides Sub OnResize(e As EventArgs) MyBase.OnResize(e) Me.Region = System.Drawing.Region.FromHrgn(CreateRoundButton(2, 3, Me.Width, Me.Height, 20, 20)) End SubEnd Class
ستجد ان RoundButton اضيفت الى Toolbox
اذا اردت عمل اى Tool اخر يكفى تغيير اسم [b]Button الى Textbox او الى Label[/b]
وشكرا

كود :

Imports System

Imports System.Drawing

Imports System.Runtime.InteropServices

Imports System.ComponentModel



Public Class RoundButton

    Inherits Button



    <DllImport("gdi32.dll", EntryPoint:="CreateRoundRectRgn")>

    Private Shared Function CreateRoundButton(ByVal nLeftRect As Integer, ByVal nTopRec As Integer, ByVal nRightRec As Integer, ByVal nBottomRec As Integer, ByVal nHighRec As Integer, ByVal nWidthRec As Integer) As IntPtr



    End Function



    Protected Overrides Sub OnCreateControl()

        MyBase.OnCreateControl()

        Me.Region = System.Drawing.Region.FromHrgn(CreateRoundButton(2, 2, Me.Width - 2, Me.Height - 2, 20, 20))

    End Sub



    Protected Overrides Sub OnResize(e As EventArgs)

        MyBase.OnResize(e)

        Me.Region = System.Drawing.Region.FromHrgn(CreateRoundButton(2, 2, Me.Width - 2, Me.Height - 2, 20, 20))

    End Sub



End Class