- موديول إخفاء إطار الأكسس
- التوسيط
- التصغير بجوار الساعة
- تغيير الأيقونة
- استدعاء بيانات ورسائل من جدول
تم وضع التذكيـــر الاتى برأس الموديول لسهولة التعامل مع الأكودا واستدعائها
'icon path >>---> CurrentProject.Path &"\"&"\File Library\Fav Ico\Myicon.ico"
'Hide Access >>---> CallStartForm()
'CenterObjects >>---> Call CenterFrm(Me)
'Minimize To Systray >>---> Call AppMini()
'To Quit Application >>---> Call AppQuit()
'To Close Any Forms >>---> Call AppCloseFrm()
'Application Name >>---> Call AppName()
'Designer Name >>---> Call DesName()
'Designer Phone >>---> Call DesPhone()
'Designer Email >>---> Call DesEmail()
'call Any Message From Table
'>>>>> StrMyCriteria = "MyCriteria ='xxxx'"
'>>>>> MyMesg (txtOfMesg), vbOKOnly, strMsgTitle
'>>>>> Change "xxx" By Criteria From Table >> UsystblUsefulData << By Criteria From Field [MyCriteria]
'>>>>> Example MyCriteria >>---->> msgDesData
'>>>>> StrMyCriteria = "MyCriteria ='msgDesData'"
'>>>>> MyMesg (txtOfMesg), vbOKOnly, strMsgTitle
هذا المرفق الاول بدون عمل اختصار للبرنامج
Utilities Hide Ico Minimze To SysTray.zip
---------------------------------------------------------------
هذا المرفق للإضافة إختصار أليا الى سطح المكتب وتحكم كامل فى كل ما يخص الاختصار من الجدول UsystblUsefulData
اسم الاختصار
الوصف
مفتاح الاختصار من الكيبور لفتح التطبيق
وفى حالة عدم وجود اى بيانات بالجدول تخص الاختصار او عدم وجود ايقونة فى المسار المخصص يتم استخدام البيانات الاساسية والايقونة الاساسية
Utilities Hide Ico Minimze To SysTray V.02.zip