21-01-24, 01:02 PM
اريد حفظ الصور فى مجلد bin ,حفظ الصورة الاولى باسم logo1& حفظ الصورة الثانية باسم logo2&حفظ الصورة الثالثة باسم logo3
[vb6.0] اضافة الصور الى ملف واسترجاعها بدون قاعدة البيانات
|
21-01-24, 01:02 PM
اريد حفظ الصور فى مجلد bin ,حفظ الصورة الاولى باسم logo1& حفظ الصورة الثانية باسم logo2&حفظ الصورة الثالثة باسم logo3
21-01-24, 06:46 PM
- قم بإضافة مكتبة جديدة من قائمة (Project) :
Microsoft Scriping Runtime أمسح الأزرار وقم بإضافتها من جديد بإسماء جديدة بحسب الترتيب مع كل صورة : cmdAdd1 cmdRemove1 --- cmdAdd2 cmdRemove2 --- cmdAdd3 cmdRemove3 --- أمسح الكود السابق واستبدله بالكود التالي : كود : ' From Project Menu :>> Add References : قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
تم الشكر بواسطة: haitham Muhammed
22-01-24, 04:04 PM
تمام اخى الغالى ...ولكن هل يمكن التعديل بحيث عند الإضافة يتم تحميل الصورة فقط ولا يتم الحفظ الا من خلال زرار حفظ الاعدادات الذى يقوم بحفظ الصور التى تم اختيارها.
24-01-24, 01:51 PM
(آخر تعديل لهذه المشاركة : 24-01-24, 02:28 PM {2} بواسطة haitham Muhammed.)
اخى الغالى هل يمكن العمل على الملف المرفق وتعديل الأكواد ان أمكن علماً بأن الاكواد تعمل جيدا...وكيف يمكن حفظ المسافة بال twips ,وعرضها للمستخدم بالسنتمتر لاستخدامها فى اعدادات التقرير...وأشكرك شكراً جزيلاً
(24-01-24, 01:51 PM)haitham Muhammed كتب : اخى الغالى هل يمكن العمل على الملف المرفق وتعديل الأكواد ان أمكن علماً بأن الاكواد تعمل جيدا...وكيف يمكن حفظ المسافة بال twips ,وعرضها للمستخدم بالسنتمتر لاستخدامها فى اعدادات التقرير...وأشكرك شكراً جزيلاًفى حدث عند التحميل On Error Resume Next Image1.Picture = LoadPicture(App.Path & "\Data\logo1.jpg") Image2.Picture = LoadPicture(App.Path & "\Data\logo2.jpg") Image3.Picture = LoadPicture(App.Path & "\Data\logo3.jpg") أمر حفظ الاعدادات If CommonDialog1.FileName <> "" Then Fs.CopyFile CommonDialog1.FileName, App.Path & "\Data\logo1.jpg" ElseIf Image1.Picture = 0 Then Fs.DeleteFile (App.Path & "\Data\logo1.jpg") End If If CommonDialog2.FileName <> "" Then Fs.CopyFile CommonDialog2.FileName, App.Path & "\Data\logo2.jpg" ElseIf Image2.Picture = 0 Then Fs.DeleteFile (App.Path & "\Data\logo2.jpg") End If If CommonDialog3.FileName <> "" Then Fs.CopyFile CommonDialog3.FileName, App.Path & "\Data\logo3.jpg" ElseIf Image3.Picture = 0 Then Fs.DeleteFile (App.Path & "\Data\logo3.jpg") End If |
|