مشكلة في كود حفظ الأيقونة

بالنسبة للسؤال الأول:

لحفظ الصور استخدم SavePicture مثال:

SavePicture Picture1.Picture,"c:\myPic.bmp"

فالوسيط الأول هو الصورة التي نريد حفظها، والثاني هو مسار الصورة،

بالنسبة للملفات فما نوع الملفات التي تريد حفظها؟

والسؤال الثاني:

راجع هذا الموضوع:

صندوق الاستمرار بنعم أو لا

وفقك الله

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

البرنامج طبعا عارض ايقونات اي انه ينسخ الايقونه ويضعها في picture ومن ثم اختار زر الحفظ واحفظ الايقونه مثل ماهي لاستخدامها لاي برنامج تريده هذا هو البرنامج

وراح احط الاكواد بالترتيب

* زر الفتح

Private Sub Command1_Click()

On Error Resume Next

CommonDialog1.ShowOpen

DoEvents

If CommonDialog1.FileName = "" Then

Exit Sub

Else

mIcon = ExtractAssociatedIcon(App.hInstance, CommonDialog1.FileName, 2) ' Common Dialog

Call DrawIconEx(Picture1.hdc, 0, 0, mIcon, 0, 0, 0, 0, &H1 + &H2) 'Picture Box End If

End Sub

* زر الحفظ

Private Sub Command2_Click()

On Error Resume Next

CommonDialog1.CancelError = True

CommonDialog1.Filter = "*.ico"

CommonDialog1.ShowSave

SavePicture Picture1.Picture, "c:\myPic.ico"

End Sub

الأخ الكريم/الأخت الكريمة

السلام عليكم ورحمة الله وبركاته

مرحباً بكم في منتدى الفريق العربي للبرمجة

نود تنبيهك أن العنوان غير مناسب.

الرجاء اختيار عنوان مناسب أكثر في مواضيعك القادمة، وهذا بمثابة إشعار للأهمية.

وفي حال التكرار سيتعرض موضوعك للإغلاق والحذف!!!

قواعد المشاركة

/index.php?showtopic=29343

شاكرين لكم حُسن تعاونكم

وعليكــم السـلام ورحمة الله وبركاتـه..

اخوي احمد وصلت المعلومه

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

ارجو ان تفيدني بما تعلم عن موضوعي هذا وشكرا على حسن تعاملك

وايضا حذف المشاركه اللي تحتوي على اكواد لانها أتت بالغلط

ما الذي يحدث عندك؟ وما هي رسالة الخطأ؟

السلام عليكم اخوي عبود

المشكله هي في حفظ الايقونه لااستطيع حفظها

كل الاكواد اللتي استخدمتها لاتعمل

وقد وضعت اكواد البرنامج لك لكي تعاينها

والكود الذي اعطيتني لايعمل ولا يحفظ الايقونه

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

______________.rar

اضبط الخاصية AutoRedraw للأداة Picture1 لى True

استخدم الكود التالي للحفظ :

		SavePicture Picture1.Image, CommonDialog1.FileName

هو يحفظ هكذا، ولكن يبدو أن المشكلة ليست هنا، وإنما أنه يحفظ صورة بيضاء.

السلام عليكــم ورحمـة الله وبركاتــه

شكرا اخواني ماقصرتوا ولكن اخوي احمد اذا ضبطت خاصية AutoRedraw لل picture الى true لاتظهر الايقونه في مربع picture وبالتالي لاتحفظ

لإظهار الأيقونة فقط أضف الكود التالي بعد كود إدراج الأيقونة :

Picture1.Refresh

في كل الحالات تظهر الصورة بعد الحف بيضاء، ولا أدري ما السبب