اريد زووم قوي للصور

ارجو أن يفيد هذا المثال

:blink:

GRAPHICS.rar

شكرا لك اخي HnHnولكن هذا الملف لم يفتح معي ارجو ان تبعته مرة ثانية او بطريقة zip واكون لك من الشاكرين ..او تزودني بمثال اخر ..جد لاني ما بقي وقت لازم اسلم المشروع ..

شكرا لك

اخوكم نبيل ;)

وهذا مثال بسيط جدا ، لعملية الـZoom

تحياتي

Zoom.zip

سبقني مشرف القسم وهذا من ابداعته على العموم أذا كان لا يكفي

سنزل مثال آخر ... وشكرا

شكرا لكم على مساعدتكم واتمنى لكم حظ طيب في هذا المنتدى . ولكن انا رايت المثال ... واستفدت منه ولكن مشروعي قائم على image واريد ان اطبق زووم داخل الا Image وتعرف اذا وضعنا على image خاصية strech =true فان ابعاد الصورة تتغير ؟؟وانا اريد اثناء الزوم ان يظهر جزء من الصورة واضح .. حيث انا اريد ..مثل رقم السيارة فارجوكم ان ترفقوا لي مثال عن الا image وحيث يضهر الكلام واضح مهما تغير ابعاد الصورة يعني انا عندي image1 وفيها خاصية strech = true فعندما اطبق خاصية الزوم على image 1 فاريدها ان تظهر واضحة ويحث انا اريد اي جزء من الصورة ان تظهر واضحة في Image 2 ومكبرة ..فارجوكم ارفقوا لي مثال واكون لكم من الشاكرين ..

اخوكم نبيل .. :)

أعتقد اخي نبيل هذا المثال سيعجبك جدااااااااا

http://vbcodezoom.siteatnet.com/foreign/vb...om/tsviewer.zip

شكرا لك اخي HnHn لهذا المثال الرائع .. انه حقا رائع ..ولكن عندي كود ارجوك ان تعطيني رايك فيه:

هذا هو الكود لعمل زوم للصورة

ادرج اداة صور عدد 2

Picturebox

ثم اجعل حجم الأداة الثانية بالحجم الذي تريد التكبير اليه

وبعد تحميل صورة في الأداه الأولى نفذ هذا الكود

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Picture2.PaintPicture Picture1.Picture, 0, 0, Picture2.Width, Picture2.Height, X, Y, 500, 500, vbSrcCopy

End Sub

هذا الكود فقط على picture ولكن مشروعي قائم على image وتعرف ان خاصية strech=true غير متوفرة في picture فارجود دلني على طريقة لهذه العملية المعقدة ورجعت جبت مثال لتحجيم الصورة يعني انه تصير متل خاصية الا image وهذا هو الكود :

Public Sub RedrawPic(Target As PictureBox, Source As StdPicture)

Dim PicWidth As Integer

Dim PicHeight As Integer

Dim NewWidth As Integer

Dim NewHeight As Integer

Dim CenterX As Integer

Dim CenterY As Integer

PicWidth = Source.Width / 16.763

PicHeight = Source.Height / 16.763

Aspect = PicWidth / PicHeight

If PicWidth > PicHeight Then

NewWidth = Target.Width - 240

NewHeight = Target.Width / Aspect

Else

NewWidth = Target.Height * Aspect

NewHeight = Target.Height - 240

End If

CenterX = Target.Width / 2 - NewWidth / 2

CenterY = Target.Height / 2 - NewHeight / 2

Target.PaintPicture Source, CenterX, CenterY, NewWidth, NewHeight

End Sub

Private Sub Picture1_Click()

RedrawPic Picture1, Picture1.Picture

End Sub

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

يا شباب حدا ياجاوبني على سؤالي ...شو اعمل يا حبيب HnHn الله يخليك جاوبني

يا عالم حدا يعطيني زووم للصور قوي الله يخليكم بس على الايميج ..اذا بتريديوا ردوا على .؟..

اخوكم نبيل

اخ abod112 اسف على التأخر في الرد .. وعذرا

سأحاول أن اعرف ماتريد معرفته واجاوبك .. فأن لست بارعا في عملية الصور والرسومات

وياريت أن تقوم بإرفاق الملف حتى يتسنى لعدد من الاعضاء تقديم المساعدة بشكل أكبر

وشكرا

الرفع555555555555555555555

هاد هو المثال المرفق يا ريت تساعدوني فيه عن طريق الايميج ..انا عملته بس الماوس ماعم تاخد تكبير لك الصورة عن طريق الايميج ياريت تلاقولي حل باسرع ما يمكن واكون لكم من الشاكرين لانه عندي ..مشروع ولازم اسلمه ..

اخوكم نبيل ..

example_zoom.zip

ياشباب انا ارفقت المثال للتعديل عليه وماحدا لهلا جاوبني الله يخليك بسرعة جاوبوني ...

اخوكم عبدو

يا شباب انا ارفقت برنامج للزوم الصور .. ولكن يوجد شيء اريد البكشتر التي تظهر فيها الزووم اريد ان اقدر باستطاعتي حفظها مثل باقي البكتشر ارجوكم شوفوا المثال .. وعدلوا عليه انا ناطر

زووم التخزين.rar

يا شباب يا اخي هاني هاد هو المثال ارجو التعديل عليه ارجوكم ... انا وضعت picture1 و picture2 ووضعت كود للزوم عندما اضع الماوس على picture 1 تظهر الصورة مكبر بقياس معين في picture2ولكن عن طريق picturepaint اريد ان اخزن picture2 وعندما اخزنها فانها تتخزن فاضية اريد ان تتخزن وهي بحجم الصورة المحددة لها يعني بالتكبير المحدد لها وهذه هي مشكلتي ارجو الحل وشكرا ...

هذا المثال فيه ما تريد

TSViewer.rar

اخي هاني .. اني اعرف هذا المثال وليس هذا قصدي ..ارجو ان تنظر الى مثالي واريد فقط ان استطيع تخزين بكتشر2 مع الزوم وشكرا

يا أخ abod112 أنا عارف اللي تبيه والمثال السابق فيه هذه الميزة الحفظ بعد التكبير

خذا الكود الخاص بهذه الميزة وستعملها في برنامجك

تحياتي

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

Private Sub Picture2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

On Error Resume Next

Picture3.PaintPicture Picture2.Picture, 0, 0, Picture3.Width, Picture3.Height, X, Y, 1500, 1500, vbSrcCopy

End Sub

ايد فقط تخزين بكتشر 2 بس ..الله يخليك انا بدي هي ضررور ي مابقي وقت يا شباب يا اخي هاني ...واللي بدوه يشوف المثال انا ارفقته وشكرا لكم

اخي هاني هاد هو المثال الجديد ياريت تعطيني الحل ارجوك

زووم التخزين.rar

يا شباب حدا يجاوبني ................