+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيفي عمل التفعيل و التعطيل للقوائم في ToolStrip (/showthread.php?tid=6581)
كيفي عمل التفعيل و التعطيل للقوائم في ToolStrip - rinawi - 20-10-12
[COLOR="#0000CD"]السلام عليكم و رحمة الله
أخواني و أخواتي الكرام في المنتدى، لدي مشكلة في كيفية تفعيل و تعطيل (Enable = True/False) القوائم في أداة ToolStrip مرة واحد، حيث أنني لا أريد أن أكتبها قائمة تلو الأخرى للتفعيل و التعطيل.
و من محاولاتي كان هذا الكود التالي و لكنه لم ينجح
أتمنى أن ألقى الإجابة منكم و أنا ممنون لكم في الإجابة أو عدم الإجابة.[/COLOR]
أخواني و أخواتي الكرام في المنتدى، لدي مشكلة في كيفية تفعيل و تعطيل (Enable = True/False) القوائم في أداة ToolStrip مرة واحد، حيث أنني لا أريد أن أكتبها قائمة تلو الأخرى للتفعيل و التعطيل.
و من محاولاتي كان هذا الكود التالي و لكنه لم ينجح
PHP كود :
Private Sub SetToolStrip(ByRef toolstrip As ToolStrip, ByVal enable As Boolean)
Dim c As ToolStripItem
Dim t As ToolStripSplitButton
For Each c In toolstrip.Items
c.Enabled = enable
If c.GetType Is GetType(ToolStripSplitButton) Then
t = c
SetToolStrip(t.DropDownItems, enable)
End If
Next
End Sub
Private Sub SetToolStrip(ByRef stripitem As ToolStripItemCollection, ByVal enable As Boolean)
Dim c As ToolStripItem
Dim t As ToolStripSplitButton
For Each c In stripitem
c.Enabled = enable
If c.GetType Is GetType(ToolStripSplitButton) Then
t = c
SetToolStrip(t.DropDownItems, enable)
End If
Next
End Sub
Private Sub Main_Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SetToolStrip(ToolStrip1, True)
End Sub
أتمنى أن ألقى الإجابة منكم و أنا ممنون لكم في الإجابة أو عدم الإجابة.[/COLOR]
كيفي عمل التفعيل و التعطيل للقوائم في ToolStrip - kslawy - 20-10-12
السلام عليكم ورحمة الله وبركاته
عملت لك كود علي السريع :
كود :
Private Sub EnabeldToolStripControls(ByVal b As Boolean)
For Each button In ToolStrip1.Items.OfType(Of ToolStripButton)()
button.Enabled = b
Next
For Each DropDown In ToolStrip1.Items.OfType(Of ToolStripDropDownButton)()
' DropDown.Enabled = b
If DropDown.HasDropDownItems Then
For Each btn In DropDown.DropDown.Items.OfType(Of ToolStripDropDownItem)()
btn.Enabled = b
Next
End If
Next
End Subإذا كان الزر من نوع DropDown وأردت تفعيل وتعطيل أزراره الداخلية فقط يمكن استخدام الكود السابق . أما إذا أردت تفعيله وتعطيله هو نفسه فاستخدم الكود أدناه :
كود :
Private Sub EnabeldToolStripControls(ByVal b As Boolean)
For Each button In ToolStrip1.Items.OfType(Of ToolStripButton)()
button.Enabled = b
Next
For Each DropDown In ToolStrip1.Items.OfType(Of ToolStripDropDownButton)()
DropDown.Enabled = b
'If DropDown.HasDropDownItems Then
' For Each btn In DropDown.DropDown.Items.OfType(Of ToolStripDropDownItem)()
' btn.Enabled = b
' Next
'End If
Next
End Subكيفي عمل التفعيل و التعطيل للقوائم في ToolStrip - rinawi - 21-10-12
جاري التجربة و ما قصرت يا كبير
تسلم يا رب و كل عام و إنت بخير يا صديقي و ينعاد عليكم بكل خير
كيفي عمل التفعيل و التعطيل للقوائم في ToolStrip - kslawy - 21-10-12
كل عام و إنت بخير
كيفي عمل التفعيل و التعطيل للقوائم في ToolStrip - rinawi - 22-10-12
للأسف أخ كسلاوي لم ينجح الأمر و مازلت أحاول فيها و في نفس الوقت هذا مثال للموضوع نفسه في المرفقات
كيفي عمل التفعيل و التعطيل للقوائم في ToolStrip - سعود - 22-10-12
كود :
If CheckBox1.Checked = True Then
ToolStrip1.Enabled = False
Else
ToolStrip1.Enabled = True
End Ifكيفي عمل التفعيل و التعطيل للقوائم في ToolStrip - rinawi - 22-10-12
أخ سعود الموضوع هنا مختلف ممكن تشوف المثال و تعطيني رأيك
كيفي عمل التفعيل و التعطيل للقوائم في ToolStrip - سعود - 22-10-12
اطلعت على المثال ولم افهم شي معلش
ان كان القصد تعطيل الاداة بالكامل فلا اريح من الكود اللي انا كتبته اما لو المقصود تعطيل عمود معين وكافة ابناءه فلم اتطرق لهذا من قبل وان شاء الله تجد الحل
كيفي عمل التفعيل و التعطيل للقوائم في ToolStrip - rinawi - 22-10-12
مشكور على مجهودك أخ سعود و ما قصرت والله، المقصود في التعطيل هو تعطيل أو تفعيل جميع القوائم من أبناء و أحفاد لأي زر من الأداة
كيفي عمل التفعيل و التعطيل للقوائم في ToolStrip - kslawy - 23-10-12
السلام عليكم ورحمة الله وبركاته
كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DisableAllButtons(ToolStrip1, True)
End Sub
Public Sub DisableAllButtons(ByVal ts As ToolStrip, ByVal b As Boolean)
Dim i As Integer = 0
For i = 0 To ts.Items.Count - 1
Child(ts.Items(i), b)
Next
End Sub
Private Sub Child(ByVal DDI As ToolStripDropDownItem, ByVal b As Boolean)
For Each itm As ToolStripDropDownItem In DDI.DropDownItems
itm.Enabled = b
If itm.HasDropDownItems Then
For Each it As ToolStripDropDownItem In itm.DropDownItems
Child(it, b)
Next
For Each it As ToolStripMenuItem In itm.DropDownItems
it.Enabled = b
Next
End If
Next
End Sub****
***
**
*