الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

عمل انتقال راسى للصورة

مغلق
بدأه hwahbah في 22 أبريل 2002 · 1 رد · 630 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

الاخوة الاعزاء

لقد صممت برنامج صغير لتغير و اللعب فى الصور

و ذلك عن طريق رسم دائرة او مربع او اى شكل هندسى على الصورة

****** فاين المشكلة ؟؟؟؟؟ !!!!!!!

المشكلة هى انه عندما اردت ان يتم ان تعكس الصورة

عكس افقى او عكس راسى و جد ان كل الاشياء التى تمت على الصورة

قد ازيلت من على الصورة بمعنى

ان ادرجت صورة فى البرنامج و رسمت مربع على الصورة ثم اردت بعد ذلك

ان اعكس الصورة عكل راسى اجد ان المربع الذى رسم على الصورة قد ازيل

و ايضا عندما اريد ان انفذ امر العكس الراسى مرة اخرى حتى ترجع الصورة الى

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

و هذا هو الكود:

Private Sub horizontal_Click()

Picture1.PaintPicture Picture1.Picture, 0, 0, _

Picture1.ScaleWidth, Picture1.ScaleHeight, Picture1.ScaleWidth, 0, _

-Picture1.ScaleWidth, Picture1.ScaleHeight, &HCC0020

End Sub

************************************************

Private Sub vertical_Click()

Picture1.PaintPicture Picture1.Picture, 0, 0, _

Picture1.ScaleWidth, Picture1.ScaleHeight, 0, _

Picture1.ScaleHeight, Picture1.ScaleWidth, -Picture1.ScaleHeight, &HCC0020

End Sub

فما هو حل هذة المشكلة

الرجاء مساعدتى

#2

جرب الاتى

Private Sub horizontal_Click() 

Picture1.PaintPicture Picture1.Image, 0, 0, _ 
Picture1.ScaleWidth, Picture1.ScaleHeight, Picture1.ScaleWidth, 0, _ 
-Picture1.ScaleWidth, Picture1.ScaleHeight, &HCC0020 

End Sub 



Private Sub vertical_Click() 

Picture1.PaintPicture Picture1.Image, 0, 0, _ 
Picture1.ScaleWidth, Picture1.ScaleHeight, 0, _ 
Picture1.ScaleHeight, Picture1.ScaleWidth, -Picture1.ScaleHeight, &HCC0020 
End Sub

اللهم أغفر لنا ولوالدينا ومعلمينا وأساتذتنا ومشايخنا وكل من له فضل علينا

هذا الموضوع مغلق.

مواضيع مشابهة