اطلب منكم ايها الاعزاء وما يأمر عليكم ظالم اريد مساعدة في الكود الخاص بتكبير الصورة وتصغيره كاملة ، وكذلك خيار حفظ الصورة اتمنى المساعدة وهذه الاكواد الخاصة بالصور في المشروع بحيث عنما اشغل البرنامج اضغط على الصورة اكبرها اصغرها احفظها منتظر ردودكم وشكراً يااحلى ناس .
أالأكواد مع 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
تحياتي
كويس بس في ملاحظة عندما اريد التكبير الصورة ملاحظ ان الصورة كاملة تتكير طيب لو اريد تكبير جزء معين او تحريك الصورة عند التكبير على مكان معين من خلال تحريك الصورة او تكبير الصورة كما هو واضح ولكن احرك الصورة على اي منطقة اريدة
تفضل هذا المشروع جااهز وتطبيقي عليه كما في الصورة
أنتظر حتى تكتمل تحميل الصورة
المصدر
http://www.vbforums.com/showthread.php?654846-ZoomPictureBox-picture-control-with-mouse-centred-zooming&highlight=picturebox+zoom
شكراً جزيلاً وفعلاً الواحد يستفيد منك مشروعي شبة جاهز عداء تحريك الصورة على اي جهة اريدة هذاء الذي باقي حاولت وشوفت الشرح وماقدرت هل بالامكان ترفع لي الاكواد مثل مارفعت الاكواد السابقة الخاصة بالتكبير والتصغير
هل ممكن اكواد تحريك الصورة وشكراً جزيلاً
الكود الخاص بتحريك الصورة في مشروعي
