تغير ايقونه الاكسس

[النجاشي]

السلام عليكم ورحمه الله وبركاته  احبتي الكرام كيف اغير ايقونه الاكسس بسطح المكتب  أي الشعار 

شاكرين مقدرين

تم تعديل مايو 3, 2017 بواسطه ابو زاهر

[صالح حمادي]

السلام عليكم

حسب علمي يمكن إنشاء اختصار للبرنامج بسطح المكتب و تغيير أيقونته بإستعمال هذا الكود:

 With CreateObject("WScript.Shell")
      With .CreateShortcut(.SpecialFolders("Desktop") & "\Test Database.lnk")
        .TargetPath = "f:\aa\Test.accdb"
        .WindowStyle = 1
        .Hotkey = ""
        .IconLocation = "f:\aa\arabic.BMP, 0"
        .Description = "Test Icon Substitution"
        .WorkingDirectory = "f:\aa\"
        .Save
      End With
 End With

أما تغيير أيقونته مباشرة فلم تمر عليا من قبل و الله أعلى و أعلم.

[Shivan Rekany]

منذ ساعه, ابو زاهر said:

السلام عليكم ورحمه الله وبركاته  احبتي الكرام كيف اغير ايقونه الاكسس بسطح المكتب  أي الشعار 

شاكرين مقدرين

اليكم هذا الرابط به برامج لتغير ايقونات اي ملف تريد

https://iconchanger.en.uptodown.com/windows

 

 

[محمد ايمن]

6 دقائق مضت, Shivan Rekany said:

اليكم هذا الرابط به برامج لتغير ايقونات اي ملف تريد

https://iconchanger.en.uptodown.com/windows

والله شي رائع

تسلم ايديك

[ابو جودي]

18 دقائق مضت, Shivan Rekany said:

اليكم هذا الرابط به برامج لتغير ايقونات اي ملف تريد

https://iconchanger.en.uptodown.com/windows

 

 

كل الشكر والتقدير استاذ @Shivan Rekany

ولإكمال الفائدة بيانات تسجيل البرنامج كالاتى

 

Name  :    

Johny Khan 

 

 

CODE :

HP4ANyamVnhPkJUTTsOx2CdPhAyLTMSZiXxkNERW KAwkZC+a6+sTipI7MMPyhJam0jdUttMT4Ebo9USN o9IcmHB9FGrgYIeDPhW7WujYCM1s/bpe7hzoE5tj RKphe5N1gew6I1BDJ37EMijaO+x0ROUw/YUbXOjv V1ZeSKDFqlo=

الخــيــــــــــ( دمتم بكل )ــــــــــــــر  

تم تعديل مايو 3, 2017 بواسطه ابا جودى

[النجاشي]

جزاكم الله خير اخوتي جميعا @صالح حمادي @Shivan Rekany@محمد ايمن@ابا جودىنفع الله بكم الإسلام والمسلمين اسال الله ان يزيدك علما ويبارك فيكم شكرا لكم

[Shivan Rekany]

2 ساعات مضت, محمد ايمن said:

والله شي رائع

تسلم ايديك

شكرا لك استاذي ... جزاك الله الفردوس الاعلى

1 ساعه مضت, ابا جودى said:

كل الشكر والتقدير استاذ @Shivan Rekany

ولإكمال الفائدة بيانات تسجيل البرنامج كالاتى

 

Name  :    

Johny Khan 

 

 

CODE :

HP4ANyamVnhPkJUTTsOx2CdPhAyLTMSZiXxkNERW KAwkZC+a6+sTipI7MMPyhJam0jdUttMT4Ebo9USN o9IcmHB9FGrgYIeDPhW7WujYCM1s/bpe7hzoE5tj RKphe5N1gew6I1BDJ37EMijaO+x0ROUw/YUbXOjv V1ZeSKDFqlo=

الخــيــــــــــ( دمتم بكل )ــــــــــــــر  

شكرا لك ابا جودي للاضافة 

منذ ساعه, ابو زاهر said:

جزاكم الله خير اخوتي جميعا @صالح حمادي @Shivan Rekany@محمد ايمن@ابا جودىنفع الله بكم الإسلام والمسلمين اسال الله ان يزيدك علما ويبارك فيكم شكرا لكم

وجزاك الله كل خير

واستاذنا @صالح حمادي اليك افضل تحيه

والرابط الاعلاه في مشاركتي السابقة لك هدية

تقبلوا تحياتي

[محمد ايمن]

صحبة ان شاء الله يا اخي شيفان

جزاك الله كل خير يا اخي  ابا جودي

 

تم تعديل مايو 3, 2017 بواسطه محمد ايمن

[صالح حمادي]

12 ساعات مضت, Shivan Rekany said:

استاذنا @صالح حمادي اليك افضل تحيه

والرابط الاعلاه في مشاركتي السابقة لك هدية

شكرا جزيلا أخي تشفان هديتك رائعة و مقبولة إنشاء الله

لقد حملت نسخة من قبل من هذا البرنامج و لكنه لم يشتغل معي أما هذه النسخة فتعمل بشكل ممتاز برافو عليك أخي تشفان

[عبد الله قدور]

السلام عليكم

ضع في المكان الذي في الصورة مسار الايقونة على ان يكون المسار جانب البرنامج او في مجلد جانب البرنامج وضع نقطة قبل المسار على الشكل التالي

.\img\iconName.ico

هذا المسار يدل على ان الايقونة في مجلد جانب البرنامج اسمه img واسم الايقونة هو iconName

 

[صالح حمادي]

12 ساعات مضت, عبد الله قدور said:

السلام عليكم

ضع في المكان الذي في الصورة مسار الايقونة على ان يكون المسار جانب البرنامج او في مجلد جانب البرنامج وضع نقطة قبل المسار على الشكل التالي

.\img\iconName.ico

هذا المسار يدل على ان الايقونة في مجلد جانب البرنامج اسمه img واسم الايقونة هو iconName

 

هذه الطريقة لا تغير أيقونة البرنامج الخارجية.

[النجاشي]

في ‏٠٣‏/‏٠٥‏/‏٢٠١٧ at 19:29, صالح حمادي said:

السلام عليكم

حسب علمي يمكن إنشاء اختصار للبرنامج بسطح المكتب و تغيير أيقونته بإستعمال هذا الكود:

 With CreateObject("WScript.Shell")
      With .CreateShortcut(.SpecialFolders("Desktop") & "\Test Database.lnk")
        .TargetPath = "f:\aa\Test.accdb"
        .WindowStyle = 1
        .Hotkey = ""
        .IconLocation = "f:\aa\arabic.BMP, 0"
        .Description = "Test Icon Substitution"
        .WorkingDirectory = "f:\aa\"
        .Save
      End With
 End With

أما تغيير أيقونته مباشرة فلم تمر عليا من قبل و الله أعلى و أعلم.

استاذي @صالح حمادي وين اضع الكود ممكن شرح اكثر الله يوفقك ويزيدك علما

في ‏٠٣‏/‏٠٥‏/‏٢٠١٧ at 20:20, محمد ايمن said:

والله شي رائع

تسلم ايديك

ما تنصب على الجهاز ايش المشكله استاذي

[صالح حمادي]

السلام عليكم

ضع الكود خلف زر أمر

منذ ساعه, ابو زاهر said:

CreateShortcut(.SpecialFolders("Desktop") & "\Test Database.lnk")

هذا السطر به الإسم الذي سيأخذه الإختصار في سطح المكتب

منذ ساعه, ابو زاهر said:

.TargetPath = "f:\aa\Test.accdb"

هذا السطر يشير إلى مكان القاعدة

منذ ساعه, ابو زاهر said:

.IconLocation = "f:\aa\arabic.BMP, 0"

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

منذ ساعه, ابو زاهر said:

.WorkingDirectory = "f:\aa\"

و هذا مسار الملف الذي به القاعدة و الصورة