السلام عليكم
اعزائي وزملائي اعضاء المنتدى الكرام
كيف يمكنني ان اغير عنوان التطبيق والأيقونة بواسطة الكود
لأني اريد أن يتغير الكود بتغيير السنة التي يتم عرض بياناتها.. يعني عندما اختار بيانات ارشيف 2011 يكون عنوان التطبيق: ارشيف 2011 وعندما يكون بيانات 2010 يكون عنوان التطبيق: ارشيف 2010 وهكذا
كذلك اريد تغيير الأيقونة برمجياً
السلام عليكم ورحمة الله وبركاته
أخي الكريم وكما العادة فإن زهرة موقعنا الأستاذة المتألقة كانت قد أجابت على نفس الاستفسار في المشاركة التالية
/index.php?showtopic=151346&st=0&p=759890&hl="
هذا بخصوص تغيير اسم التطبيق أما بخصوص تغيير رمز التطبيق فعليك فقط تعديل الكود إلى :
Sub SetNewFEMDBOptions()
Dim intX As Integer
intX = AddAppProperty("AppTitle", dbText, "YASSIN123")
intX = AddAppProperty("Appicon", dbText, "d:\Sample.ico")
End Subوسلامي لك وللجميع
عَـجِبْتُ لِمَنْ يَتَفَكَّـرُ فى مَـأْكُولِهِ كَيْـفَ لا يَتَفَـكَّـرُ فى مَعْـقُـولِهِ، فَيُجَنِّبُ بَطْنَهُ ما يُؤْذيهِ، وَ يُودِعُ صَدْرَهُ ما يُرْدِيهِ
(الحسن بن علي بن أبي طالب)
اشكرك على سرعة الرد "ياد بيك"
وانا كنت قد اطلعت على مشاركة استاذتنا زهرة المشار إليها
بس المشكلة أن عنوان ورمز التطبيق لا يتغير فورا، بل يتغير عند اعادة تشغيل التطبيق.. والمطلوب: أن يتم تغيير عنوان ورمز التطبيق فورا
ارجو منكم ومن استاذتنا زهرة الاهتمام
يماني اصيل كتب:اشكرك على سرعة الرد "ياد بيك"
وانا كنت قد اطلعت على مشاركة استاذتنا زهرة المشار إليها
بس المشكلة أن عنوان ورمز التطبيق لا يتغير فورا، بل يتغير عند اعادة تشغيل التطبيق.. والمطلوب: أن يتم تغيير عنوان ورمز التطبيق فورا
ارجو منكم ومن استاذتنا زهرة الاهتمام
غالي والطلب رخيص ...
Application.RefreshTitleBar
ملاحظة أنا اسمي إياد وليس ياد
عَـجِبْتُ لِمَنْ يَتَفَكَّـرُ فى مَـأْكُولِهِ كَيْـفَ لا يَتَفَـكَّـرُ فى مَعْـقُـولِهِ، فَيُجَنِّبُ بَطْنَهُ ما يُؤْذيهِ، وَ يُودِعُ صَدْرَهُ ما يُرْدِيهِ
(الحسن بن علي بن أبي طالب)
اخي الفاضل
المثال يعمل بصوره ممتازه ولا تحتاج الى اعادة التشغيل او فتح النموذج واغلاقه بل يتم الحدث مباشرة
بالتوفيق
اقتباسغالي والطلب رخيص ...Application.RefreshTitleBarملاحظة أنا اسمي إياد وليس ياد
انت الغالي ولا شيء من عندك رخيص "إياد بيك" :blush:
احلى مشاركة من احلى رائد في المنتدى
ولا انسى استاذتنا زهرة التي شرفتني في موضوعي :)
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
