سؤال في الاداة Sstab ( التنقل بين التبويبات )

مغلق

بدأه يوفي VIP في 24 أغسطس 2007 · 3 رد · 866 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

#124 أغسطس 2007 في 04:05 صاحب الموضوع

السلام عليكم ..

كيف حالكم يا أخوان شاء الله بخير ..

عندي سؤال صغير وعقدني بصراحة ..

انا استخدم أداة SStab فيها tab1 و tab2 ( ويكون العرض لدى المستخدم على tab1 مثلاً ) أريد عندما ينقر المستخدم على tab2 يظهر MsgBox فيه خيارين YesNo وعند النقر على Yes فانه يعرض Tab2 وعندما ينقر على No فانه يبقى على Tab1 ولا ينتقل ولا يعرض أبداً tab2 ..

أين وقعت المشكلة ..

عندما أنقر على tab2 فانه يعرض محتوياته ومن ثم تظهر الرسالة ؟!

اريد ان يظهر MsgBox قبل كل شيء ولا يظهر لي محتويات tab2 أبداً الا بعد التأكيد عليها من خلال النقر على Yex في المسج ..

ان شاء الله يكون السؤال واضح ..:)

#224 أغسطس 2007 في 05:39

استخدم الاجراء BeforeClick

#324 أغسطس 2007 في 08:47

حل مباشر غير موجود لهذا الامر لكن يمكنك استخدام tabstrip بدل sstab وهي التي يوجد بها الحدث beforeclick.

او وضع اداة اخرى (sstab) وتصغير ارتفاعها الى اخر شيء ووضعها فوق ازرار الاولى وعند التغيير استخدم

Private Sub SSTab2_Click(PreviousTab As Integer)

 Static isINProc As Boolean 'لمنع الرسالة من الظهور عند التراجع
If isINProc Then
Exit Sub
End If

If MsgBox("123", vbYesNo + vbQuestion) = vbYes Then
SSTab1.Tab = SSTab2.Tab
Else
isINProc = True
SSTab2.Tab = PreviousTab
End If

isINProc = False
End Sub