PDA

View Full Version : گرد کردن تصاویر



safari_m4
جمعه 07 آذر 1399, 22:08 عصر
سلام دوستان چگونه یک تصویر داخل پیکچرباکس را در موقع نمایش بصورت دایره یا همان گرد نمایش بدهیم با تشکر از دوستان

the king
شنبه 08 آذر 1399, 04:04 صبح
سلام دوستان چگونه یک تصویر داخل پیکچرباکس را در موقع نمایش بصورت دایره یا همان گرد نمایش بدهیم با تشکر از دوستان


Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint
Dim pic = CType(sender, PictureBox)
Dim rect = New Rectangle(Point.Empty, pic.Size)
Using path = New Drawing2D.GraphicsPath()
path.AddEllipse(rect)
e.Graphics.SetClip(path, Drawing2D.CombineMode.Exclude)
Using b = New SolidBrush(pic.BackColor)
e.Graphics.FillRectangle(b, rect)
End Using
End Using
End Sub

safari_m4
دوشنبه 10 آذر 1399, 14:43 عصر
Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint
Dim pic = CType(sender, PictureBox)
Dim rect = New Rectangle(Point.Empty, pic.Size)
Using path = New Drawing2D.GraphicsPath()
path.AddEllipse(rect)
e.Graphics.SetClip(path, Drawing2D.CombineMode.Exclude)
Using b = New SolidBrush(pic.BackColor)
e.Graphics.FillRectangle(b, rect)
End Using
End Using
End Sub


با تشکر فراوان و سپاسگزاری از شما دوست گرانقدر