تقييم الموضوع :
  • 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
شكراً جزيلاً وفعلاً الواحد يستفيد منك مشروعي شبة جاهز عداء تحريك الصورة على اي جهة اريدة هذاء الذي باقي حاولت وشوفت الشرح وماقدرت هل بالامكان ترفع لي الاكواد مثل مارفعت الاكواد السابقة الخاصة بالتكبير والتصغير


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

الكود الخاص بتحريك الصورة في مشروعي
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عدم عرض الصورة في تقرير rdlc لماذا atefkhalf2004 2 72 23-03-24, 04:42 AM
آخر رد: atefkhalf2004
  عدم عرض الصورة في تقرير rdlc atefkhalf2004 0 30 21-03-24, 05:23 PM
آخر رد: atefkhalf2004
  [VB.NET] إعادة استدعاء البيانات من قاعدة بيانات اكسس والاهم الصورة مبرمج صغير 1 1 273 13-01-24, 01:17 PM
آخر رد: مبرمج صغير 1
Lightbulb [VB.NET] إطهار الصورة بمقاس معين في DataGridView أبو خالد الشكري 2 323 14-12-23, 03:01 PM
آخر رد: أبو خالد الشكري
  حل هذه المشكلة الموضحة في الصورة Adel27213 3 361 21-11-23, 07:14 AM
آخر رد: justforit
  كيف اصغر حجم الصورة من خلالPictureBox1 قبل حفظها بقاعدة البيانات mohamedgadain61 2 514 11-04-23, 01:46 PM
آخر رد: mohamedgadain61
Lightbulb [VB.NET] سؤال وارجو المساعدة بخصوص عرض الصورة في تقرير كرستال younus 1 396 27-03-23, 10:13 PM
آخر رد: sanyor77
  [سؤال] ما هو كود: الصورة في إطار التحميل ؟ hazim1 5 692 06-03-23, 11:55 PM
آخر رد: سعود
  [Acces2010] ادراج الصورة في قاعدة بيانات اكسس عن طريق الفيجوال بيسك Tajaldeen 6 835 25-12-22, 08:37 AM
آخر رد: Tajaldeen
  مطلوب كود تكبير الفورم مع الحفاظ علي حجم ومكان الادوات عند التكبير والتصغير Mostafa201255411 1 737 12-12-22, 07:02 PM
آخر رد: Taha Okla

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


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