[كود] تكبير الصورة - نسخة قابلة للطباعة

[كود] تكبير الصورة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] تكبير الصورة (/showthread.php?tid=10667)

تكبير الصورة - محمد مسافر - 13-11-14

اطلب منكم ايها الاعزاء وما يأمر عليكم ظالم اريد مساعدة في الكود الخاص بتكبير الصورة وتصغيره كاملة ، وكذلك خيار حفظ الصورة اتمنى المساعدة وهذه الاكواد الخاصة بالصور في المشروع بحيث عنما اشغل البرنامج اضغط على الصورة اكبرها اصغرها احفظها منتظر ردودكم وشكراً يااحلى ناس .

RE: تكبير الصورة - العزابي - 14-11-14

أالأكواد مع 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

تحياتي

RE: تكبير الصورة - محمد مسافر - 14-11-14

كويس بس في ملاحظة عندما اريد التكبير الصورة ملاحظ ان الصورة كاملة تتكير طيب لو اريد تكبير جزء معين او تحريك الصورة عند التكبير على مكان معين من خلال تحريك الصورة او تكبير الصورة كما هو واضح ولكن احرك الصورة على اي منطقة اريدة

RE: تكبير الصورة - العزابي - 15-11-14

تفضل هذا المشروع جااهز وتطبيقي عليه كما في الصورة

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

المصدر

http://www.vbforums.com/showthread.php?654846-ZoomPictureBox-picture-control-with-mouse-centred-zooming&highlight=picturebox+zoom

RE: تكبير الصورة - محمد مسافر - 16-11-14

شكراً جزيلاً وفعلاً الواحد يستفيد منك مشروعي شبة جاهز عداء تحريك الصورة على اي جهة اريدة هذاء الذي باقي حاولت وشوفت الشرح وماقدرت هل بالامكان ترفع لي الاكواد مثل مارفعت الاكواد السابقة الخاصة بالتكبير والتصغير

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

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