المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : كيف يمكن ان افعل الاتى؟؟


d.a.m.h
02-12-2006, 02:30 PM
انا استعمل الفيجوال بيزك 6
فى احد البرامج التى اصنعها قمت بادخال

("Image1.picture=Loadpicture(C:\sky.gif

("Image2.picture=loadpicture("C:\terrain.gif

والسؤال كيف يمكن تخزين الصورتين معا فى نفس الملف باستخدام الدالة Savepicture
Argonaut
03-12-2006, 07:05 AM
بسم الله الرحمن الرحيم
السلام عليكم والرحمة

ان كنت تقصد حفط الملفات في ملف واحد جرب هذا
http://www.montada.com/showthread.php?t=505153
هل كنت تقصد حفظها كل على حد ثم جمعها في 1
نرجوا التوضيح

(:،،

وشكرا"
Argonaut
03-12-2006, 07:09 AM
يمكنك ان تجد بعض الحلول في قسم المصادر المفتوحة
علما اذكر اني وضعت مثل هذا الامر .

(:،،

وشكرا"
أبو هاجر الحلوة
03-12-2006, 02:48 PM
1- ضع الأداتين في PictureBox1
2-SavePicture PictureBox1.Image,"C:\Test.bmp
لا تنسى تعديل الخاصية AutoRedreaw
أبو هاجر الحلوة
05-12-2006, 12:46 PM
Private Sub Form_Click()
Picture1.AutoRedraw = True
Picture1.PaintPicture Image1.Picture, Image1.Left, Image1.Top, Image1.Width, Image1.Height
Picture1.PaintPicture Image2.Picture, Image2.Left, Image2.Top, Image2.Width, Image2.Height
SavePicture Picture1.Image, "D:\Test.bmp"
Picture1.AutoRedraw = False
End Sub
d.a.m.h
06-12-2006, 02:04 PM
Argonaut:

اولا اشكرك على محاولة المساعدة لكنى دخلت على الوصلة وحملت البرنامج الموجود لكنى لم اجد ما احتاجه

ان كنت تقصد حفط الملفات في ملف واحد

نعم هذا ما كنت احتاجه لكن ابو هاجر الحلوة حل مشكلتى


هل كنت تقصد حفظها كل على حد ثم جمعها في 1

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

ابو هاجر الحلوة:
الف شكر على الكود وهذا ما احتاجه لكن عندى سؤال بسيط....ما فائدة ال Auto redraw ?

ولكما جزيل الشكر واعذرونى على التأخير فانتم ادرى بمشاغل الدراسة :31:
Argonaut
06-12-2006, 08:18 PM
العفو لو تشاهد حل ابو هاجر لوجدته هو
العفو هذا الذي كنت اقصده

(:،،

وشكرا"