[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