seyed ehsan
سه شنبه 23 شهریور 1389, 23:28 عصر
من این کد را در زمان جستجو در اینترنت دیدم .
کارش اینه که لبه های فرم را گرد میکنه .
کسی از دوستان میتونه اون رو شرح بده ؟ خیلی گنگ هستش . این همه عدد چیه ؟ اصلا در کل چیزهایی مثل این رو اونهایی که برنامه نویس حرفه ای هستند چکار می کنند ؟ حفظ می کنند ؟ می نویسند ؟ بلدن ؟ از رو دست بغل دستی تقلب می کنند ...؟
Dim p As New Drawing2D.GraphicsPath()
p.StartFigure()
p.AddArc(New Rectangle(0, 0, 35, 35), 180, 90)
p.AddLine(35, 0, Me.Width - 35, 0)
p.AddArc(New Rectangle(Me.Width - 35, 0, 35, 35), -90, 90)
p.AddLine(Me.Width, 35, Me.Width, Me.Height - 35)
p.AddArc(New Rectangle(Me.Width - 35, Me.Height - 35, 35, 35), 0, 90)
p.AddLine(Me.Width - 35, Me.Height, 35, Me.Height)
p.AddArc(New Rectangle(0, Me.Height - 35, 35, 35), 90, 90)
p.CloseFigure()
Me.Region = New Region(p)
کارش اینه که لبه های فرم را گرد میکنه .
کسی از دوستان میتونه اون رو شرح بده ؟ خیلی گنگ هستش . این همه عدد چیه ؟ اصلا در کل چیزهایی مثل این رو اونهایی که برنامه نویس حرفه ای هستند چکار می کنند ؟ حفظ می کنند ؟ می نویسند ؟ بلدن ؟ از رو دست بغل دستی تقلب می کنند ...؟
Dim p As New Drawing2D.GraphicsPath()
p.StartFigure()
p.AddArc(New Rectangle(0, 0, 35, 35), 180, 90)
p.AddLine(35, 0, Me.Width - 35, 0)
p.AddArc(New Rectangle(Me.Width - 35, 0, 35, 35), -90, 90)
p.AddLine(Me.Width, 35, Me.Width, Me.Height - 35)
p.AddArc(New Rectangle(Me.Width - 35, Me.Height - 35, 35, 35), 0, 90)
p.AddLine(Me.Width - 35, Me.Height, 35, Me.Height)
p.AddArc(New Rectangle(0, Me.Height - 35, 35, 35), 90, 90)
p.CloseFigure()
Me.Region = New Region(p)