نقل قول نوشته شده توسط AMIN_SG مشاهده تاپیک
سلام
دوست عزیز میتونی از این کد استفاده کنی بجای عدد 45 هم میتونی به میزانی که میخوای گرد بشه عدد وارد کنی و بجای me.height هم میتونی اسم شی های دیگه رو استفاده کنی و این کد رو هم سعی کن تو resize استفاده کنی که اگه lable رو dock کردی بازم درست کار کنه در هنگام تغییر اندازه ی فرم
    Private Sub Item_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
Dim gp As New System.Drawing.Drawing2D.GraphicsPath
Dim chgcorn As Integer = 45
If chgcorn Mod 10 <> 0 Then
chgcorn = chgcorn - (chgcorn Mod 10)
End If
Dim r1 As New Rectangle(0, Me.Height - chgcorn, chgcorn, chgcorn)
Dim r2 As New Rectangle(Me.Width - chgcorn + 1, Me.Height - chgcorn, chgcorn, chgcorn)
gp.AddArc(0, 0, chgcorn, chgcorn, 180, 90)
gp.AddArc(Me.Width - chgcorn + 1, 0, chgcorn, chgcorn, 270, 90)
gp.AddRectangle(New Rectangle(0, chgcorn / 2, Me.Width, Me.Height - chgcorn))
gp.AddArc(r1, -270, 90)
gp.AddArc(r2, 360, 90)
Region = New Region(gp)
End Sub
سلام دوست عزیز باتوجه به این که این پست در قسمت C#‎ ایجاد شده کد ها رو از VB به C#‎ تغییر دهید شاید کسی Vb کار نکرده باشه !
ممنون