تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] تكبير الصورة
#1
Rainbow 
اطلب منكم ايها الاعزاء وما يأمر عليكم ظالم اريد مساعدة في الكود الخاص بتكبير الصورة وتصغيره كاملة ، وكذلك خيار حفظ الصورة اتمنى المساعدة وهذه الاكواد الخاصة بالصور في المشروع بحيث عنما اشغل البرنامج اضغط على الصورة اكبرها اصغرها احفظها منتظر ردودكم وشكراً يااحلى ناس .


الملفات المرفقة صورة/صور
       
الرد }}}}
تم الشكر بواسطة:
#2
أالأكواد مع PictureBox 



كود التكبير ضعه في بوتون 

 
كود :
PictureBox1.Width += 40%

       PictureBox1.Height += 40%


كود التصغير 

كود :
PictureBox1.Width -= 40%
       PictureBox1.Height -= 40%


كود تكبير الصورة في فورم مستقل 
 
كود :
 Pict.PictureBox1.Image = PictureBox1.Image


       Pict.ShowDialog()


كود الحفظ .. وضع بوتون حفظ + واحد تكست بوكس لجلب رابط الصورة


ضع في البوتون الكود التالي 

كود :
 Dim op As New OpenFileDialog

       With op

           .Title = "اختار صورة"

           .Filter = "Jpg(*.jpg)|*.jpg|Bmp(*.bmp)|*.bmp|Png(*.png)|*.png|Gif(*.gif)|*.gif"

           .ShowDialog()

       End With

       If op.FileName = Nothing Then

           Exit Sub

       Else

           FileName = op.FileName

           TextBox1.Text = IO.Path.GetFileName(FileName)

       End If

كود التكست بوكس
 
كود :
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

       Try


           If TextBox1.Text.Length > 0 Then


               PictureBox1.Image = Image.FromFile(Application.StartupPath & "\pic\" & TextBox1.Text)


           Else


               PictureBox1.Image = Nothing


           End If


       Catch ex As Exception


       End Try

   End Sub



لاتنسى وضع مجلد بإسم pic داخل مجلدات برنامجك تحديداً داخل Debug


------------------------------------

طيب عرفنا اللحين كيف جلب الصوره ووضعها في مجلد بدلاً من القاعدة تخفيفاً عليها .. الأن كيف نحفظ رابط

الصورة بحكم أنه رابط نصي ونوع الحقل عادي حقل نصي


لديك الخيارت في الحفظ وأتركها لك


لاتنسى قبل الحفظ
 
كود :
 Try
               My.Computer.FileSystem.CopyFile(FileName, Application.StartupPath & "\pic\" & IO.Path.GetFileName(FileName), True) 'حتى اذا كانت الصورة موجودة مسبقا يتم الحفظ فوقها
               PictureBox1.Image = Image.FromFile(Application.StartupPath & "\pic\" & TextBox1.Text)
           Catch ex As Exception
           End Try



تحياتي
الرد }}}}
تم الشكر بواسطة:
#3
كويس بس في ملاحظة عندما اريد التكبير الصورة ملاحظ ان الصورة كاملة تتكير طيب لو اريد تكبير جزء معين او تحريك الصورة عند التكبير على مكان معين من خلال تحريك الصورة او تكبير الصورة كما هو واضح ولكن احرك الصورة على اي منطقة اريدة
الرد }}}}
تم الشكر بواسطة:
#4
تفضل هذا المشروع جااهز وتطبيقي عليه كما في الصورة


أنتظر حتى تكتمل تحميل الصورة













المصدر


http://www.vbforums.com/showthread.php?654846-ZoomPictureBox-picture-control-with-mouse-centred-zooming&highlight=picturebox+zoom
الرد }}}}
تم الشكر بواسطة: محمد مسافر
#5
شكراً جزيلاً وفعلاً الواحد يستفيد منك مشروعي شبة جاهز عداء تحريك الصورة على اي جهة اريدة هذاء الذي باقي حاولت وشوفت الشرح وماقدرت هل بالامكان ترفع لي الاكواد مثل مارفعت الاكواد السابقة الخاصة بالتكبير والتصغير


هل ممكن اكواد تحريك الصورة وشكراً جزيلاً

الكود الخاص بتحريك الصورة في مشروعي


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طباعة كل محتويات الصورة بالاضافات الجديدة محمد اسماعيل 7 166 09-10-17, 12:27 AM
آخر رد: محمد اسماعيل
  مشكلة في حفظ الصورة Fantastico 5 163 29-09-17, 04:18 PM
آخر رد: silverlight
  هل بالامكان عمل Rotate لمربع الصورة وليست الصورة سعود 1 105 14-08-17, 08:32 PM
آخر رد: أبو نوره
  تسمية الصورة بمجلد الديباج abdulla2 1 146 16-07-17, 09:39 PM
آخر رد: سعود
  [VB.NET] حفظ الصورة من picturebox الى جهاز الكمبيوتر lkaam 2 178 04-06-17, 06:28 PM
آخر رد: lkaam
  كود ربط الصورة مع بيانات الموظف a.baomar 3 238 09-05-17, 02:25 PM
آخر رد: أبووسم
  [VB.NET] طلب كود جلب النص الي في الصورة A-R 2 198 22-04-17, 03:51 PM
آخر رد: A-R
  [VB.NET] مشكلة فى كود عرض الصورة مصطفى_ظيمة 15 521 05-04-17, 11:23 PM
آخر رد: مصطفى_ظيمة
  طلب كود تغير الصورة من داخل البرنامج MOSTAFA.KAMEL 4 276 24-03-17, 11:58 PM
آخر رد: Master Hacker
  مشكلة في حفظ الصورة أبووسم 4 342 05-03-17, 01:38 PM
آخر رد: أبووسم

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


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