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

[النجاشي]

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

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

تم تعديل مايو 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]

  في 3‏/5‏/2017 at 15:56, ابو زاهر said:

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

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

Expand  

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

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

 

 

[محمد ايمن]

  في 3‏/5‏/2017 at 17:14, Shivan Rekany said:

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

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

Expand  

والله شي رائع

تسلم ايديك

[ابو جودي]

  في 3‏/5‏/2017 at 17:14, Shivan Rekany said:

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

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

 

 

Expand  

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

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

 

Name  :    

Johny Khan 

 

 

CODE :

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

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

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

[النجاشي]

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

[Shivan Rekany]

  في 3‏/5‏/2017 at 17:20, محمد ايمن said:

والله شي رائع

تسلم ايديك

Expand  

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

  في 3‏/5‏/2017 at 17:32, ابا جودى said:

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

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

 

Name  :    

Johny Khan 

 

 

CODE :

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

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

Expand  

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

  في 3‏/5‏/2017 at 18:19, ابو زاهر said:

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

Expand  

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

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

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

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

[محمد ايمن]

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

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

 

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

[صالح حمادي]

  في 3‏/5‏/2017 at 19:29, Shivan Rekany said:

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

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

Expand  

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

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

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

السلام عليكم

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

.\img\iconName.ico

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

 

[صالح حمادي]

  في 4‏/5‏/2017 at 17:41, عبد الله قدور said:

السلام عليكم

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

.\img\iconName.ico

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

 

Expand  

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

[النجاشي]

  في 3‏/5‏/2017 at 16: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

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

Expand  

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

  في 3‏/5‏/2017 at 17:20, محمد ايمن said:

والله شي رائع

تسلم ايديك

Expand  

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

[صالح حمادي]

السلام عليكم

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

  في 13‏/9‏/2017 at 12:46, ابو زاهر said:

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

Expand  

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

  في 13‏/9‏/2017 at 12:46, ابو زاهر said:

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

Expand  

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

  في 13‏/9‏/2017 at 12:46, ابو زاهر said:

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

Expand  

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

  في 13‏/9‏/2017 at 12:46, ابو زاهر said:

.WorkingDirectory = "f:\aa\"

Expand  

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