تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] [مساعدة] ... كيف انفذ هذا الكود ...؟
#1
Information 
بسم الله الرحمن الرحيم










اوكي سؤالى بسيط جدا و مباشر  Heart







اول شئ ابغي لما اختار صورة ب استخدام OpenFileDialog  يتم فتح الصوره في picturebox .



و اسألكم اذا اقدر اسوي صوره دائرية في picturebox بحيث اي صوره تدخل من OpenFileDialog تصبح دائرية فورا.



وشكرا لكل من قرأ كلامي و انتظر منكم الافادة..... 
الرد
تم الشكر بواسطة: ابراهيم ايبو
#2
(31-12-20, 03:08 AM)Mahmoud41 كتب :
بسم الله الرحمن الرحيم










اوكي سؤالى بسيط جدا و مباشر  Heart







اول شئ ابغي لما اختار صورة ب استخدام OpenFileDialog  يتم فتح الصوره في picturebox .



و اسألكم اذا اقدر اسوي صوره دائرية في picturebox بحيث اي صوره تدخل من OpenFileDialog تصبح دائرية فورا.



وشكرا لكل من قرأ كلامي و انتظر منكم الافادة..... 

السلام عليكم
تفضل اخي الكريم
كود :
Imports System.Drawing.Drawing2D
Public Class Form1
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Using ofd As New OpenFileDialog
           ofd.Filter = "Image Files|*.jpg;*.png;*.bmp"
           ofd.Multiselect = False
           If ofd.ShowDialog = DialogResult.OK Then
               MakeRoundedImage(Image.FromFile(ofd.FileName), PictureBox1)
           End If
       End Using
   End Sub

   Private Sub MakeRoundedImage(ByVal Img As Image, ByVal PicBox As PictureBox)
       Using bm As New Bitmap(Img.Width, Img.Height)
           Using grx2 As Graphics = Graphics.FromImage(bm)
               grx2.SmoothingMode = SmoothingMode.AntiAlias
               Using tb As New TextureBrush(Img)
                   tb.TranslateTransform(0, 0)
                   Using gp As New GraphicsPath
                       gp.AddEllipse(0, 0, Img.Width, Img.Height)
                       grx2.FillPath(tb, gp)
                   End Using
               End Using
           End Using
           If PicBox.Image IsNot Nothing Then PicBox.Image.Dispose()
           PicBox.Image = New Bitmap(bm)
       End Using
   End Sub
End Class
الرد
تم الشكر بواسطة: ابو روضة , Mahmoud41 , ابراهيم ايبو , asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج مساعدة لمشروع تشفير الصور باستخدام RSA هيوا 0 11 منذ 2 ساعة مضت
آخر رد: هيوا
  [VB.NET] الكود المكافئ لعرض أسماء الجداول فى قاعدة البيانات mmaalmesry 4 204 منذ 9 ساعة مضت
آخر رد: d3vc0d
  [VB.NET] أرجو التعديل في الكود المرفق معتز حسن 3 182 10-04-21, 06:33 PM
آخر رد: معتز حسن
  ممكن مساعدة فى كود البحث محمد فوزى محمد 1 212 08-04-21, 10:28 PM
آخر رد: messry
  [VB.NET] اريد مساعدة في حل الكود asrar 6 749 27-03-21, 11:08 PM
آخر رد: asrar
  كيف أحط attachment في إيميل المرسل من البرنامج؟ ما هو الكود؟ Alziny 2 177 27-03-21, 05:17 AM
آخر رد: علي بنيان
Question [VB.NET] مساعدة ضرورية ارجوكم saqaf 1 100 27-03-21, 04:54 AM
آخر رد: علي بنيان
  [VB.NET] مساعدة: مع اداة print document الارقام تطبع انجليزى مع ويندز 8 أو 10 فقط هل من حل؟ ym_a11 3 182 24-03-21, 11:07 PM
آخر رد: أبو عبدالله الحلواني
  ارجو التعديل علىى هذا الكود من فضلكم على زهران 2 221 19-03-21, 11:31 PM
آخر رد: على زهران
  ممكن مساعدة alhaj1982 1 150 19-03-21, 10:20 PM
آخر رد: 3booody

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم