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


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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من الممكن تكبير الخطوط هاوي1995 6 126 28-10-16, 08:03 PM
آخر رد: هاوي1995
  [سؤال] اظهار الصورة naden 3 155 03-10-16, 08:58 AM
آخر رد: silverlight
  [سؤال] تحريك الصورة naden 3 120 02-10-16, 01:13 AM
آخر رد: ممدوح
  سوال عن الصورة في الفورم soper 8 211 29-09-16, 09:47 PM
آخر رد: soper
  تكبير اول حرف فى textbox Mohamed20 3 113 28-09-16, 09:27 PM
آخر رد: ابراهيم النعيمي
  [vb6.0] ما هو كود قص او تعديل على الصورة ؟؟ proff2016 0 76 31-08-16, 05:03 PM
آخر رد: proff2016
  تصوير بواسطة ويب وحفظ الصورة بقاعدة بيناتات MS Access haniblack 0 92 11-08-16, 01:41 PM
آخر رد: haniblack
  كيف التحقق من صوره اذا كانت نفس الصورة ام لا Mohamed20 4 159 06-08-16, 03:55 PM
آخر رد: Mohamed20
  كيف جعل مابداخل الفورم يكون في الوسط عند تكبير الفورم في حالة التشغيل طالب 22 5 241 26-07-16, 12:19 PM
آخر رد: الوادي
  سؤال حفظ الصورة وعرضها فراس صلاح 7 264 24-07-16, 12:21 AM
آخر رد: عدنان الشمري

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


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