الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

هل يمكن إخفاء الأزرار من ال Tab Control

بدأه Dream_Works في 14 ديسمبر 2011 · 7 رد · 2,519 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

لدي سؤال بسيط عن برنامج VB.Net

هل يمكن إخفاء ال Tabs من ال Tab Control و التحكم بالتنقل بين الصفحات برمجيا

200px-Dreamworks.jpg
#2

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

اخي يمكنك التحكم بها برمجيا ولكن اذا اخفيتها لن تظهر التبويبات ولن يصبح Tab Control!!

.:: Wish to become better and better ::.

#3

أشكرك أخي الكريم على تجاوبك

الموضوع أني أرغب بوضع أزرار منفصلة عن ال TabControl للتنقل بين صفحات ال Tab Control

طبعا العملية هذي كانت بسيطة جدا بالأكسيس ... و لكن الدوت نت سوا منها عقدة كالعاده

أعتقد إن لدي حل من اثنين ...

إما وضع عدة Panels فوق بعض و التنقل فيما بينها

أو وضع ال TabControl و نسخ الصفحات الموجودة فيه على متغيرات ... ثم مسح جميع الصفحات و إدخال الصفحة المطلوب عرضها فقط من المتغيرات التي تم تخزين الصفحات فيها

تم الحل بالطريقة التالية

تكبير جميع أزرار ال TabControl بحيث يصبح عرض الزر نفس عرض ال Tab Control و يتم وضع عنوان كل صفحة على الزر نفسه

تعديل الخاصية Appearance إلى FlatButtons

تعريف متغير على مستوى الفورم

Private TabPages(4) as TabPage

On Load

 For i As Byte = 0 To 3
            Me.TabPages(i) = Me.TbControlMain.TabPages(i)
        Next
        Me.TbControlMain.TabPages.Clear()

عند الضغط على أحد الأزرار المخصصة و المنفصلة عن ال TabControl يتم عمل التالي

 Dim TabIndex As Byte
        If sender.checked Then
            TabIndex = CByte(sender.tag)
            Me.TbControlMain.TabPages.Clear()
            Me.TbControlMain.TabPages.Insert(TabIndex, Me.TabPages(TabIndex))
        End If

مع خالص شكري لكل من حاول المساعدة ... و أتمنى إذا فضيت و صار عندي وقت سأساعد أعضاء المنتدى في مساعدة الناس و تعليمهم

تم تعديل هذه المشاركة بواسطة Dream_Works في 14 ديسمبر 2011 في 21:22

200px-Dreamworks.jpg
#4

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

اخي لا عقدة ولا حاجة اذا انت تريد عمل ازرار لما لا تستخدم الاداة Panel بحيث كل تبويب ما هو الا عبارة عن Panel وما عليك الا اظهار التبويب المناسب واخفاء البقية وذلك باستخدام الخاصيه Visible

.:: Wish to become better and better ::.

#5
VB Helper كتب:

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

اخي لا عقدة ولا حاجة اذا انت تريد عمل ازرار لما لا تستخدم الاداة Panel بحيث كل تبويب ما هو الا عبارة عن Panel وما عليك الا اظهار التبويب المناسب واخفاء البقية وذلك باستخدام الخاصيه Visible

أشكرك على المساعدة أخي الكريم

و لكن حسب رأيي المتواضع

إذا وضعت 4 Panel فوق بعض و جربتها أنا بالفعل ... يصبح التنقل بين الصفحات في مرحلة التصميم Design صعبا بعض الشيء حيث أن الصفحات فوق بعض

ثانيا : الخاصية Visible ما اشتغلت معاي بشكل مضبوط و لكن استخدام الأوامر BringtoFront و SendToBack هي التي اشتغلت في هذه الحالة

200px-Dreamworks.jpg
#6

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

وجمعه مباركه

انا كانت عندي هذي المشكله وحاولت استخدم panel او جروب بوكس

لكن كان الانتقال اثناء التصميم صعب وايضاً العناصر تدخل مع بعض

بحثت عن حل ولم اجد بعدها استخدمت هذي الطريقه

بعد الانتهاء من مرحله التصميم تعمل lable وتخليه بنفس خلفيه الفورم وتخليه فوق العناوين على طول

وبامكانك استخدام 4 label بنفس خلفيه الفورم على حدود الtab

صحيح طريقه بدائيه بس افضل من استخدام عدة panel

في المثال استخدمت فيه 4 label على حدود tabcontrol

ويطلع شكل ال tabcontrol وكانها panel

ويمكنك الانتقال عبر الـ button بين صفحات ال tab

الرابط الخاص بي

تحياتي

احفظ الله يحفظك ، احفظ الله تجده تجاهك ،

إذا سألت فاسأل الله ، وإذا استعنت فاستعن بالله ،

واعلم أن الأمة لو اجتمعت على أن ينفعوك بشيء ، لم ينفعوك إلا بشيء قد كتبه الله لك ،

وإن اجتمعوا على أن يضروك بشيء لم يضروك إلا بشيء قد كتبه الله عليك

#7

وهذا رابط المثال

تحميل

تم تعديل هذه المشاركة بواسطة alshamery في 16 ديسمبر 2011 في 13:50

احفظ الله يحفظك ، احفظ الله تجده تجاهك ،

إذا سألت فاسأل الله ، وإذا استعنت فاستعن بالله ،

واعلم أن الأمة لو اجتمعت على أن ينفعوك بشيء ، لم ينفعوك إلا بشيء قد كتبه الله لك ،

وإن اجتمعوا على أن يضروك بشيء لم يضروك إلا بشيء قد كتبه الله عليك

#8
alshamery كتب:

وهذا رابط المثال

تحميل

فكرة جميلة أخي الكريم ... الله يعطيك العافية ... .مع إنها ما اشتغلت معاي لأن النموذج مصمم ب 2010 و أنا عندي 2008 و لكن فهمتها و شغلت ال Exe

200px-Dreamworks.jpg

مواضيع مشابهة