كيفية عرض جزء من صورة بشكل مكبر

للرفع

أين المساعدات

أرجوكم أنا مضطر للحل عندي مسابقة بدي اشترك فيها ببرنامجي 23/7

أرجزكم ساعدوني

الكود التالي مكتوب بفيجوال بيسك 2005

قم بوضع مربعي صورة على الفورم ثم افتح إحدى الصور في مربع الصورة الأول ثم الصق الكود في حدث MouseMove له كما يلي:

	Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
		Dim G As System.Drawing.Graphics = PictureBox2.CreateGraphics
		Dim SourceRect As New Rectangle
		Dim DestRect As New Rectangle
		SourceRect.X = e.X - PictureBox2.Width / 2
		SourceRect.Y = e.Y - PictureBox2.Height / 2
		SourceRect.Width = PictureBox2.Width
		SourceRect.Height = PictureBox2.Height

		DestRect.X = 0
		DestRect.Y = 0
		DestRect.Width = SourceRect.Width
		DestRect.Height = SourceRect.Height

		G.DrawImage(PictureBox1.Image, DestRect, SourceRect, GraphicsUnit.Pixel)
	End Sub

الكود هو مجرد تمثيل للتابع BtBilt القديم، وعليك تطوير الكود ليقوم بالعملية الكاملة.

السلام عليكم

شكرا لك أخي محمد على مشاركتك

و لكني وصلت إلى هذه المرحلة قبل أن أطرح السؤال فقد توقفت عند كيفية جعل الكود يعمل عمل الدالة BtBilt تماما لأني لم أستطع تطوير الكود ليعمل نفس العمل فهذا هو سؤالي

أرجو وضع الطريقة الحرفية التي تقوم بهذا العمل و في المثال الذي أرفقته أعلاه يوضح المطلوب تماما و لكنه على الفيجوال بيسك 6

أرجو الرد بسرعة

و شكرا

السلام عليكم

إخواني لقد حلّت المشكلة بعد أن بحثت عنها في المواقع الأجنبية و قد أرفقت مثال يوضح الحل و هو باستخدام الدالةBitBlt و الدالة StretchBlt

Zoom.rar

فعلاً موضوع مهم ..... شكراً لك أخي golden man ...

فعلاً اسم على مسمى الرجل الذهبي .. ;)