• 0
bakkar2000

[ تمت الإجابة ]عدم تفعيل الخيار Windows In Taskbar برمجياً

سؤال

بســم الله الـرحمــن الرحيــم

كيف يكمن عدم تفعيل خيار الـ Windows In taskbar برمجياً عند تحميل أو افتح البرنامج

post-148704-1225478839.png

خالص شكرى

تم تعديل بواسطه bakkar2000
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

8 إجابة على هذا السؤال .

  • 0

بســم الله الـرحمــن الرحيــم

السلام عليكــم ورحمـة الله وبركاتــة

في حدث عند التحميل لفورم بدء التشغيل في برنامجك ضع الكود التالي

Dim i As Integer
For i = 1 To CommandBars.Count
CommandBars(i).Enabled = False
Next i

وبحول الله يعمل معك الكود .. موفق

تم تعديل بواسطه ekseer
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بســم الله الـرحمــن الرحيــم

كل الشكر أخى / ekseer

فعلت مثلكا قلت لدرجة أنى قمت بنسخ الأكواد التى تفضلتم بها ولكنها لا تعمل لدى

وعند فتح البرنامج وتصفح أكثر من نموذج ظهرت كلها فى الـ Taskbar

فأرجوا الإفاده خالص شكرى لك مره أخرى

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بســم الله الـرحمــن الرحيــم

السلام عليكــم ورحمـة الله وبركاتــة

تفضل أخي هذا المثال

True_And_False_Bar.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بســم الله الـرحمــن الرحيــم

وعليكــم السـلام ورحمة الله وبركاتـه..

أشكر لك أخى العزيز / ekseer

بالنسبة للكود فى المشاركة الأولى الكود يعمل ولكنة يقوم بألغاء الـ Menu Bar

أما المرفقات الأخيرة فعند إنزالها تظهر لى هذه الرساله ولا أدرى ما الحل

post-148704-1225542762_thumb.png

لذا أرجوا التكرم وكتابة الكود

خالص شكرى

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بارك الله بك اخي الفاضل ومشرفنا اكسير

اخي الكريم صاحب السؤال

بالنسبة لإخفاء وإظهار الإطارات في شريط المهام فإننا نستخدم هذه الوظيفة والتي توضع في النموذج

Public Function SetOptions(X As Integer)
'View Tab تبويب عرض من قائمة الخصائص
Application.SetOption "ShowWindowsInTaskbar", X
End Function

ثم تحت زر الأمر اخفاء نقوم بإستدعاء الوظيفة بهذه الطريقة ( اذا كان الرقم 0 ( صفر ) يعني اخفاء اي عدم الإختيار

'إخفاء الإطارات في شريط المهام
Private Sub cmdHide_Click()
Call SetOptions(0)
End Sub

وايضا لإظهار الإطارات في شريط المهام نستدعي الوظيفة بهذه الطريقة ( اذا كان الرقم ( -1 ) يعني اظهار اي اختيار علامة الصح

'إظهار الإطارات في شريط المهام
Private Sub cmdView_Click()
Call SetOptions(-1)
End Sub

المثال بعد التعديل

KeyCode_UP.rar

مواضيع ذات صله

التحكم الكامل في خصائص قاعدة البيانات برمجيا

http://www.arabteam2000-forum.com/index.php?showtopic=137531

تم تعديل بواسطه zahrah
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بســم الله الـرحمــن الرحيــم

خالص شكرى وأمتنانى أستاذه / زهره

أشكرك على تفاعلك معنا أخى أكسير

هذا هو بالفعل المطلوب

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكرا جزيلا للأخت زهرة على هذا المثال الجميل 

الف شكر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .