20-10-12, 10:31 PM
[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]