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

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

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

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

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

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

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

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

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

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

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

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

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

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

True_And_False_Bar.rar

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

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

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

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

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

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

خالص شكرى

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

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

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

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

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

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

/index.php?showtopic=137531

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

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

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

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

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

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

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

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

الف شكر