ahmad_mustafa قام بنشر أكتوبر 31, 2022 مشاركة قام بنشر أكتوبر 31, 2022 السلام عليكم ارجو منكم مساعدتي في طريقة تغيير ايقونة الواجه الامامية لقاعدة بيانات تم تقسيمها لجداول ونماذج ..الايقونة اللي على سطح المكتب وليس في شريط المهام ولكم الشكر رابط هذا التعليق شارك More sharing options...
عبد الله قدور قام بنشر نوفمبر 1, 2022 مشاركة قام بنشر نوفمبر 1, 2022 وعليكم السلام ورحمة الله وبركاته بالنسبة لي انا استخدم هذه الطريقة اضع قاعدة بيانات النماذج في مجلد داخل قرص d ثم انشىء اختصار لها على سطح المكتب ثم اقوم بتغيير ايقونة الاختصار على سطح المكتب رابط هذا التعليق شارك More sharing options...
ahmad_mustafa قام بنشر نوفمبر 1, 2022 الكاتب مشاركة قام بنشر نوفمبر 1, 2022 اخي عبد الله قدور انا اريد ان ارسل الواجهة الامامية لاكثرمستخدم مباشرة بأيكونة غير ايكون الاكسسز رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر نوفمبر 1, 2022 مشاركة قام بنشر نوفمبر 1, 2022 (معدل) وعليكم السلام أخي أحمد 🙂 شاهد طريقتي في عمل أيقونة سطح المكتب هنا : ويوجد كذلك لدي كود VBA لعمل اختصار للبرنامج في سطح المكتب .. إن شئت أرسلته لك 🙂 تم تعديل نوفمبر 1, 2022 بواسطه Moosak 1 رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر نوفمبر 1, 2022 مشاركة قام بنشر نوفمبر 1, 2022 كود لإنشاء إختصار للبرنامج أو أي مجلد على سطح المكتب مع تعيين أيقونة له Public Function CreateShortCut(strTargetFileFullPath As String, strShortCutName As String, strIconPath As String) 'strTargetFileFullPath : Sorce File Like : "D:\DomnFunBuldr.accdb" 'strShortCutName : Wanted Name for the ShortCut Like : "Moosak" 'strIconPath : Icon Full Path Like : "D:\MyIcon.ico" Dim oWSH As Object Dim oShortcut As Object Dim sPathDeskTop As String Set oWSH = CreateObject("WScript.Shell") sPathDeskTop = oWSH.SpecialFolders("Desktop") strShortCutName = strShortCutName & ".lnk" Set oShortcut = oWSH.CreateShortCut(sPathDeskTop & "\" & strShortCutName) With oShortcut .IconLocation = strIconPath .TargetPath = strTargetFileFullPath .Save End With Set oWSH = Nothing End Function '===================================(Testing) Sub TestCreateShortCut() Call CreateShortCut("D:\DomnFunBuldr.accdb", "MoosakAp", "D:\MyIcon.ico") End Sub 1 رابط هذا التعليق شارك More sharing options...
ahmad_mustafa قام بنشر نوفمبر 2, 2022 الكاتب مشاركة قام بنشر نوفمبر 2, 2022 السلام عليكم اخي Moosak والله انت من الرائعين.. اعجبتني الطريقة الاولى رغم انها مطولة لكنها احترافية وسأجربها واما الطريقة الثانية مافهمت اين يوضع الكود محتاج شرحها بارك الله فيك 1 رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر نوفمبر 2, 2022 مشاركة قام بنشر نوفمبر 2, 2022 53 دقائق مضت, ahmad_mustafa said: واما الطريقة الثانية مافهمت اين يوضع الكود محتاج شرحها بارك الله فيك وعليك السلام ورحمة الله أخي أحمد 🙂 أخي العزيز يمكنك وضع كود إنشاء الأيقونة عند تشغيل البرنامج مثلا .. عند حدث فتح أول نموذج ( على سبيل المثال ) الكود سيحتاج منك أن تخبره (مكان ملف الأكسس الأصلي ) + ( أسم الاختصار الذي سينشئه في سطح المكتب ) + ( مكان صورة الأيقونة التي ستضعها ) .. وهي مشروحة في الكود مع ضرب مثال عليها .. هكذا : 'strTargetFileFullPath : Sorce File Like : "D:\DomnFunBuldr.accdb" 'strShortCutName : Wanted Name for the ShortCut Like : "Moosak" 'strIconPath : Icon Full Path Like : "D:\MyIcon.ico" رابط هذا التعليق شارك More sharing options...
ahmad_mustafa قام بنشر نوفمبر 2, 2022 الكاتب مشاركة قام بنشر نوفمبر 2, 2022 بارك الله فيك سأعتمد الطريقة الاولى لكني اسال هل يمكن التعديل على الملف بعد تحوبله الى exe رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر نوفمبر 2, 2022 مشاركة قام بنشر نوفمبر 2, 2022 2 ساعات مضت, ahmad_mustafa said: هل يمكن التعديل على الملف بعد تحوبله الى exe نعم ممكن .. 🙂 افتح الملف عن طريق الـ WinRaR 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.