تغيير ايقونة اكسس في شريط المهام

[أبو نادر]

السلام عليكم

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

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

Option Compare Database
Option Explicit


Public Function AddAppProperty(strName As String, varTyp As Variant, varWert As Variant) As Integer
    Dim dbs As Database, prp As Property
    Const conPropNotFoundError = 3270

    Set dbs = CurrentDb
    On Error GoTo AddAppProperty_Err

dbs.Properties(strName) = varWert
    AddAppProperty = True

AddAppProperty_End:
    Exit Function

AddAppProperty_Err:
    If Err = conPropNotFoundError Then
        Set prp = dbs.CreateProperty(strName, varTyp, varWert)
        dbs.Properties.Append prp
        Resume
    Else
        AddAppProperty = False
        Resume AddAppProperty_End
    End If
End Function

Public Function DBStart()
AddAppProperty "AppTitle", dbText, "hhhhhh"
AddAppProperty "AppIcon", dbText, CurrentProject.path & "\hhh.ico"
RefreshTitleBar
End Function

 

المهم

تم تثبيت اكسس في شريط المهام

وعند فتح البرنامج ازلت التثبيت من شريط المهام وضغطت خروج من البرنامج ... واخترت  لا ... فظهرت ايقونتي المختاره !!!

 

لعباقرة الأكواد :

هل ممكن عمل كود عند فتح الشاشة الرئسية للبرنامج تك,ن مهمته ... تثبيت اكسس في شريط المهام ... ثم ازالة التثبيت ؟

 

 

[ابو جودي]

اعتقد اخى الحبيب ابو نادر حضرتك عاوز تسأل السؤال بالطريقة دى 

لعباقرة الأكواد :
هل ممكن عمل كود عند فتح الشاشة الرئسية للبرنامج تكون مهمته ... ازالة تثبيت اكسس في شريط المهام ... ثم عند الاغلاق تثبيت اكسس مرة اخرى على شريط المهمام ؟

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

ضع المسار في الصورة على الشكل التالي 

.\img\image1.ico

بحيث النقطة تدل على مكان قاعدة البيانات 

img اسم مجلد جانب قاعدة البيانات

image1.ico اسم الايقونة مع امتدادها 

تحصل على نفس نتيجة الكود 

[ابو جودي]

3 دقائق مضت, عبد الله قدور said:

ضع المسار في الصورة على الشكل التالي 

.\img\image1.ico

بحيث النقطة تدل على مكان قاعدة البيانات 

img اسم مجلد جانب قاعدة البيانات

image1.ico اسم الايقونة مع امتدادها 

تحصل على نفس نتيجة الكود 

  ههههههههههههه دى وصفة هايله


بس للاسف الاستاذ ابو نادر عنده ويندو  10 تقريبا

وفى خاصية تعمل بتثبيت التطبيق على شريط المهام  pin api 

الاكسس عموما اذا كان تم عمل تثبيت له

عند فتح اى قاعدة بيانات تم تغيير الرمز لها سواء بالكود او بما تفضلتم  لن تظهر الايكونة الا اذا تم عمل  ازالة للاكسس من شريط لمهام

 

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

10 دقائق مضت, ابا جودى said:

بس للاسف الاستاذ ابو نادر عنده ويندو  10 تقريبا

وفى خاصية تعمل بتثبيت التطبيق على شريط المهام  pin api 

الاكسس عموما اذا كان تم عمل تثبيت له

عند فتح اى قاعدة بيانات تم تغيير الرمز لها سواء بالكود او بما تفضلتم  لن تظهر الايكونة الا اذا تم عمل  ازالة للاكسس من شريط لمهام

 

هذه صورة شريط المهام عندي استخدمت فيها ما ذكرت سابقا ولاحظ اني مثبت اكسس في شريط مهام وبرنامجي منفصل عنه تماما

[ابو جودي]

الان, عبد الله قدور said:

هذه صورة شريط المهام عندي استخدمت فيها ما ذكرت سابقا ولاحظ اني مثبت اكسس في شريط مهام وبرنامجي منفصل عنه تماما

استاذ عبد الله
كل الشكر والتقدير لجهد حضرتك

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

ولكن اسمح لى بالاثقال عليكم
حتى الان هناك من لا يريد تغيير الاوفيس 2003
هل تغير الرمز بتلك الطريقة فعالة مع من يستخدم الاوفيس 2003
ام انه سوف يكون مضطر حينها الى استخدام موديول تغير الايقونة المرفق فى اول المشاركة ؟

[أبو نادر]

بالضبط اخي ابا جودي .. هذا ما قصدته وشكرا لك

 

اخي عبدالله قدور ..كلامك صحيح فقط اذا ضبطت اعدادات شريط المهام  على ( عند الإمتلاء ) جرب اي خيار غيرها ولن تظهر معك الايقونه الا كما ذكرت في المشاركة الأولى

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

 

وبارك الله فيكم

 

 

تم تعديل أكتوبر 25, 2016 بواسطه أبو نادر

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

اليك الصور التالية اخي الكريم

16 ساعات مضت, أبو نادر said:

اخي عبدالله قدور ..كلامك صحيح فقط اذا ضبطت اعدادات شريط المهام  على ( عند الإمتلاء ) جرب اي خيار غيرها ولن تظهر معك الايقونه الا كما ذكرت في المشاركة الأولى

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

في الحالات الثلاثة البرنامج مستقل عن اكسس

 

[أبو نادر]

 

في شي انت مسويه وانا لا ... هل حزمت البرنامج ؟ واصبح تنفيذي ؟

انا لازم اتعلم طريقة هالتحزيم ...

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

انا استخدم التحزيم بالوينرار

لكن هذا البرنامج غير محزم امتداد البرنامج accdb 

[أبو نادر]

ماااش ما زبطت معي ؟

الي يجرب طريقة عبدالله يعلمنى بالنتيجه 

الله يعطيك العافيه يا عبدالله