User user قام بنشر ديسمبر 14, 2021 قام بنشر ديسمبر 14, 2021 كيفية تغير ايقونه البرنامج فى شريط المهام فى ويندوز 8 فما اعلى
Lamyaa قام بنشر ديسمبر 14, 2021 قام بنشر ديسمبر 14, 2021 في الأكسس من قائمة ملف أنزل في الأسفل إلى خيارات ومن ثم انتقل إلى تبويب قاعدة البيانات الحالية وقم بتحديد مسار الأيقونة أو يمكنك عمل ذلك من خلال الأكواد باستخدام VBA 1
User user قام بنشر ديسمبر 14, 2021 الكاتب قام بنشر ديسمبر 14, 2021 في 14/12/2021 at 19:52, Lamyaa said: في الأكسس من قائمة ملف أنزل في الأسفل إلى خيارات ومن ثم انتقل إلى تبويب قاعدة البيانات الحالية وقم بتحديد مسار الأيقونة أو يمكنك عمل ذلك من خلال الأكواد باستخدام VBA Expand كل هذا تم عمله اى ويندوز بعد ويندوز 7 لا تظهر الايقونه المختارة وتظهر ايقونه الاكسيس
qathi قام بنشر ديسمبر 15, 2021 قام بنشر ديسمبر 15, 2021 تعقيب .. هذه الطريقة تنفع في ويندوز 7 .. لكن للاسف لا تنفع في ويندوز 10 و 11 هل يوجد حل لعرض الايقونة في شريط المهام في ويندوز 11 وكذلك 10 مع ملاحظة اختلاف الاعدادات في كلاء الاصدارين للويندوز ؟؟؟ 1
ابو جودي قام بنشر ديسمبر 15, 2021 قام بنشر ديسمبر 15, 2021 في 15/12/2021 at 13:31, qathi said: تعقيب .. هذه الطريقة تنفع في ويندوز 7 .. لكن للاسف لا تنفع في ويندوز 10 و 11 هل يوجد حل لعرض الايقونة في شريط المهام في ويندوز 11 وكذلك 10 مع ملاحظة اختلاف الاعدادات في كلاء الاصدارين للويندوز ؟؟؟ Expand اهلا اهلا اهلا استاذى الحبيب طال غيابك مليون مرحب انا باستخدم الكود الاتى فى وحدة نمطية مع مراعاة تغيير البيانات الاتية فى رأس الموديول اسم التطبيق 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.zipFetching info... 1
User user قام بنشر ديسمبر 15, 2021 الكاتب قام بنشر ديسمبر 15, 2021 (معدل) في 15/12/2021 at 13:58, ابو جودي 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 Expand تتغير فى الفورم ولا تتغير فى شريط المهام لاحظ الصورة تم تعديل ديسمبر 15, 2021 بواسطه User user
محمد أبوعبدالله قام بنشر ديسمبر 17, 2021 قام بنشر ديسمبر 17, 2021 في 15/12/2021 at 14:53, User user said: تتغير فى الفورم ولا تتغير فى شريط المهام لاحظ الصورة Expand الكود يعمل جيدا مع ويندوز 11 + اوفيس 365 تحياتي
Lamyaa قام بنشر ديسمبر 17, 2021 قام بنشر ديسمبر 17, 2021 في 15/12/2021 at 13:31, qathi said: تعقيب .. هذه الطريقة تنفع في ويندوز 7 .. لكن للاسف لا تنفع في ويندوز 10 و 11 هل يوجد حل لعرض الايقونة في شريط المهام في ويندوز 11 وكذلك 10 مع ملاحظة اختلاف الاعدادات في كلاء الاصدارين للويندوز ؟؟؟ Expand هذه الطريقة تعمل إلى الآن ولا علاقة لها بالويندوز جهازي ويندوز 10 وتعمل عليه
alidonkaka قام بنشر ديسمبر 25, 2021 قام بنشر ديسمبر 25, 2021 هل يوجد حل لعرض الايقونة في شريط المهام في ويندوز 11 وكذلك 10 مع ملاحظة اختلاف
alidonkaka قام بنشر ديسمبر 27, 2021 قام بنشر ديسمبر 27, 2021 Quote هذه الطريقة تعمل إلى الآن ولا علاقة لها بالويندوز Expand real estate istanbul تتغير فى الفورم ولا تتغير فى شريط المهام لاحظ الصورة
qathi قام بنشر فبراير 20, 2022 قام بنشر فبراير 20, 2022 في 15/12/2021 at 13:58, ابو جودي said: اهلا اهلا اهلا استاذى الحبيب طال غيابك مليون مرحب Expand أهلا باستاذي الغالي @ابو جودي .. اشتقنالك .. اعتذر عن غيابي .. لأنشغالي .. لكن لا بد من عودة نتلمس احوالك اساتذتي ورفاق المنتدى الرائعيين في 15/12/2021 at 13:58, ابو جودي said: مع مراعاة تغيير البيانات الاتية فى رأس الموديول اسم التطبيق AppName اسم الايقونة بدون الامتداد icoName وتم عمل الكود على ان الايقونة فى نفس مسار القاعدة فى حالة تغيير مكان الايقونة لابد من تغير المسار فى الروتين AppIcon() ويتم استدعاء الروتين من خلال Expand جرت ولم تنفع .. أرجو ان تقوم بالتجربة في اوفس 2016 عربي نوع 32 بت >> Office Professional Plus 2016 32bit Ar
ابو جودي قام بنشر فبراير 23, 2022 قام بنشر فبراير 23, 2022 في 20/2/2022 at 14:44, qathi said: أهلا باستاذي الغالي @ابو جودي .. اشتقنالك .. اعتذر عن غيابي .. لأنشغالي .. لكن لا بد من عودة نتلمس احوالك اساتذتي ورفاق المنتدى الرائعيين جرت ولم تنفع .. أرجو ان تقوم بالتجربة في اوفس 2016 عربي نوع 32 بت >> Office Professional Plus 2016 32bit Ar Expand اولا اسف ع التاخير ثانيا محتاج اشوف شئ وقت تكون اونلاين نظبطها سوا ان شاء الله
qathi قام بنشر فبراير 23, 2022 قام بنشر فبراير 23, 2022 في 23/2/2022 at 13:08, ابو جودي said: ثانيا محتاج اشوف شئ وقت تكون اونلاين نظبطها سوا ان شاء الله Expand وهو كذلك ان شاء الله
qathi قام بنشر مارس 26, 2022 قام بنشر مارس 26, 2022 استاذي الغالي @ابو جودي .. هل ينفع الليلة لحل هذا الاشكال اون لاين .. منتظر منك رد .
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.