تغير ايقونه البرنامج فى شريط المهام

User user · ديسمبر 14, 2021

كيفية تغير ايقونه البرنامج فى شريط المهام فى ويندوز 8 فما اعلى

Lamyaa · ديسمبر 14, 2021

في الأكسس من قائمة ملف أنزل في الأسفل إلى خيارات ومن ثم انتقل إلى تبويب قاعدة البيانات الحالية وقم بتحديد مسار الأيقونة

أو يمكنك عمل ذلك من خلال الأكواد باستخدام VBA

User user · ديسمبر 14, 2021

18 دقائق مضت, Lamyaa said:

في الأكسس من قائمة ملف أنزل في الأسفل إلى خيارات ومن ثم انتقل إلى تبويب قاعدة البيانات الحالية وقم بتحديد مسار الأيقونة

أو يمكنك عمل ذلك من خلال الأكواد باستخدام VBA

كل هذا تم عمله
اى ويندوز بعد ويندوز 7 لا تظهر الايقونه المختارة وتظهر ايقونه الاكسيس

**qathi** · ديسمبر 15, 2021

تعقيب ..

هذه الطريقة تنفع في ويندوز 7 .. لكن للاسف لا تنفع في ويندوز 10 و 11

هل يوجد حل لعرض الايقونة في شريط المهام في ويندوز 11 وكذلك 10 مع ملاحظة اختلاف الاعدادات في كلاء الاصدارين للويندوز ؟؟؟

**ابو جودي** · ديسمبر 15, 2021

22 دقائق مضت, qathi said:

تعقيب ..

هذه الطريقة تنفع في ويندوز 7 .. لكن للاسف لا تنفع في ويندوز 10 و 11

هل يوجد حل لعرض الايقونة في شريط المهام في ويندوز 11 وكذلك 10 مع ملاحظة اختلاف الاعدادات في كلاء الاصدارين للويندوز ؟؟؟

اهلا اهلا اهلا استاذى الحبيب طال غيابك مليون مرحب

انا باستخدم الكود الاتى فى وحدة نمطية

مع مراعاة تغيير البيانات الاتية فى رأس الموديول

اسم التطبيق AppName
اسم الايقونة بدون الامتداد icoName
وتم عمل الكود على ان الايقونة فى نفس مسار القاعدة فى حالة تغيير مكان الايقونة لابد من تغير المسار فى الروتين AppIcon()

ويتم استدعاء الروتين من خلال

  Call Xicon

onst AppName = "www.officena.net"
Const icoName = "officenaIco"

Public Function AppIcon()
  AppIcon = CurrentProject.Path & "\" & icoName & ".ico"
End Function

Public Function AccessIcon()
  AccessIcon = (SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE")
  Debug.Print AccessIcon
End Function

Function AddAppProperty(strName As String, _
        varType As Variant, varValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270

    Set dbs = CurrentDb
    On Error GoTo AddProp_Err
    dbs.Properties(strName) = varValue
    AddAppProperty = True

AddProp_Bye:
    Exit Function

AddProp_Err:
    If Err = conPropNotFoundError Then
        Set prp = dbs.CreateProperty(strName, varType, varValue)
        dbs.Properties.Append prp
        Resume
    Else
        AddAppProperty = False
        Resume AddProp_Bye
    End If
      
End Function

Function Xicon()
On Error GoTo ErrHandler

Dim dbs As Object
Set dbs = CurrentDb()

Dim intX As Integer
    Const DB_Text As Long = 10
    ' AppTitle
    intX = AddAppProperty("AppTitle", DB_Text, AppName)
    
    ' AppIcon
    Dim Chk
    Dim MyIcon As String
    Set Chk = CreateObject("Scripting.FileSystemObject")
    If Chk.FileExists(AppIcon()) = False Then
    MyIcon = (SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE")
    Else
    MyIcon = AppIcon()
    End If
    
    intX = AddAppProperty("AppIcon", DB_Text, MyIcon)
    dbs.Properties("UseAppIconForFrmRpt") = 1
    Application.RefreshTitleBar
exitProc:
Exit Function
ErrHandler:
    If Err = 3270 Then
        Resume Next
    Else
        MsgBox Err & Err.Description
        Resume exitProc
    End If
End Function

وهذا مرفق للتجربة

testIcon.zip

User user · ديسمبر 15, 2021

56 دقائق مضت, ابو جودي said:

اهلا اهلا اهلا استاذى الحبيب طال غيابك مليون مرحب

انا باستخدم الكود الاتى فى وحدة نمطية

مع مراعاة تغيير البيانات الاتية فى رأس الموديول

اسم التطبيق AppName
اسم الايقونة بدون الامتداد icoName
وتم عمل الكود على ان الايقونة فى نفس مسار القاعدة فى حالة تغيير مكان الايقونة لابد من تغير المسار فى الروتين AppIcon()

ويتم استدعاء الروتين من خلال

  Call Xicon

onst AppName = "www.officena.net"
Const icoName = "officenaIco"

Public Function AppIcon()
  AppIcon = CurrentProject.Path & "\" & icoName & ".ico"
End Function

Public Function AccessIcon()
  AccessIcon = (SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE")
  Debug.Print AccessIcon
End Function

Function AddAppProperty(strName As String, _
        varType As Variant, varValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270

    Set dbs = CurrentDb
    On Error GoTo AddProp_Err
    dbs.Properties(strName) = varValue
    AddAppProperty = True

AddProp_Bye:
    Exit Function

AddProp_Err:
    If Err = conPropNotFoundError Then
        Set prp = dbs.CreateProperty(strName, varType, varValue)
        dbs.Properties.Append prp
        Resume
    Else
        AddAppProperty = False
        Resume AddProp_Bye
    End If
      
End Function

Function Xicon()
On Error GoTo ErrHandler

Dim dbs As Object
Set dbs = CurrentDb()

Dim intX As Integer
    Const DB_Text As Long = 10
    ' AppTitle
    intX = AddAppProperty("AppTitle", DB_Text, AppName)
    
    ' AppIcon
    Dim Chk
    Dim MyIcon As String
    Set Chk = CreateObject("Scripting.FileSystemObject")
    If Chk.FileExists(AppIcon()) = False Then
    MyIcon = (SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE")
    Else
    MyIcon = AppIcon()
    End If
    
    intX = AddAppProperty("AppIcon", DB_Text, MyIcon)
    dbs.Properties("UseAppIconForFrmRpt") = 1
    Application.RefreshTitleBar
exitProc:
Exit Function
ErrHandler:
    If Err = 3270 Then
        Resume Next
    Else
        MsgBox Err & Err.Description
        Resume exitProc
    End If
End Function

وهذا مرفق للتجربة

testIcon.zip 28.17 kB · 2 downloads

تتغير فى الفورم ولا تتغير فى شريط المهام لاحظ الصورة

تم تعديل ديسمبر 15, 2021 بواسطه User user

**محمد أبوعبدالله** · ديسمبر 17, 2021

في ١٥‏/١٢‏/٢٠٢١ at 16:53, User user said:

تتغير فى الفورم ولا تتغير فى شريط المهام لاحظ الصورة

الكود يعمل جيدا مع ويندوز 11 + اوفيس 365

Untitled.png.506a087c0963a2ea03b7406c350d8baa.png

تحياتي

Lamyaa · ديسمبر 17, 2021

في ١٥‏/١٢‏/٢٠٢١ at 16:31, qathi said:

تعقيب ..

هذه الطريقة تنفع في ويندوز 7 .. لكن للاسف لا تنفع في ويندوز 10 و 11

هل يوجد حل لعرض الايقونة في شريط المهام في ويندوز 11 وكذلك 10 مع ملاحظة اختلاف الاعدادات في كلاء الاصدارين للويندوز ؟؟؟

هذه الطريقة تعمل إلى الآن ولا علاقة لها بالويندوز

جهازي ويندوز 10 وتعمل عليه

alidonkaka · ديسمبر 25, 2021

هل يوجد حل لعرض الايقونة في شريط المهام في ويندوز 11 وكذلك 10 مع ملاحظة اختلاف

alidonkaka · ديسمبر 27, 2021

Quote

هذه الطريقة تعمل إلى الآن ولا علاقة لها بالويندوز

real estate istanbul

تتغير فى الفورم ولا تتغير فى شريط المهام لاحظ الصورة

**qathi** · فبراير 20, 2022

في ١٥‏/١٢‏/٢٠٢١ at 16:58, ابو جودي said:

اهلا اهلا اهلا استاذى الحبيب طال غيابك مليون مرحب

أهلا باستاذي الغالي @ابو جودي .. اشتقنالك .. اعتذر عن غيابي .. لأنشغالي .. لكن لا بد من عودة نتلمس احوالك اساتذتي ورفاق المنتدى الرائعيين

في ١٥‏/١٢‏/٢٠٢١ at 16:58, ابو جودي said:

مع مراعاة تغيير البيانات الاتية فى رأس الموديول

اسم التطبيق AppName
اسم الايقونة بدون الامتداد icoName
وتم عمل الكود على ان الايقونة فى نفس مسار القاعدة فى حالة تغيير مكان الايقونة لابد من تغير المسار فى الروتين AppIcon()

ويتم استدعاء الروتين من خلال

جرت ولم تنفع .. أرجو ان تقوم بالتجربة في اوفس 2016 عربي نوع 32 بت >> Office Professional Plus 2016 32bit Ar

**ابو جودي** · فبراير 23, 2022

في 20‏/2‏/2022 at 16:44, qathi said:

أهلا باستاذي الغالي @ابو جودي .. اشتقنالك .. اعتذر عن غيابي .. لأنشغالي .. لكن لا بد من عودة نتلمس احوالك اساتذتي ورفاق المنتدى الرائعيين

جرت ولم تنفع .. أرجو ان تقوم بالتجربة في اوفس 2016 عربي نوع 32 بت >> Office Professional Plus 2016 32bit Ar

اولا اسف ع التاخير

ثانيا محتاج اشوف شئ وقت تكون اونلاين نظبطها سوا ان شاء الله

**qathi** · فبراير 23, 2022

2 ساعات مضت, ابو جودي said:

ثانيا محتاج اشوف شئ وقت تكون اونلاين نظبطها سوا ان شاء الله

وهو كذلك ان شاء الله

**ابو جودي** · فبراير 23, 2022

يا هلا

**qathi** · مارس 26, 2022

استاذي الغالي @ابو جودي .. هل ينفع الليلة لحل هذا الاشكال اون لاين .. منتظر منك رد .

تسجيل الدخول

تغير ايقونه البرنامج فى شريط المهام

الردود الموصى بها

User user

Lamyaa

User user

qathi

ابو جودي

User user

محمد أبوعبدالله

Lamyaa

alidonkaka

alidonkaka

qathi

ابو جودي

qathi

ابو جودي

qathi

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information