26-04-20, 02:52 AM
26-04-20, 04:05 AM
هل يوجد رد ام لا
26-04-20, 04:12 AM
تفضل الكود
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim pic As New Drawing2D.GraphicsPath
pic.AddEllipse(2, 2, 126, 126)
PictureBox1.Region = New Region(pic)
End Sub
26-04-20, 01:42 PM
PHP كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim pic As New Drawing2D.GraphicsPath
pic.AddEllipse(2, 2, PictureBox1.Width, PictureBox1.Height)
PictureBox1.Region = New Region(pic)
End Sub