اضافه کردن آیتم به Contextmenu به صورت Runtime

[VisualStudio]

دنبال راه حلی هستم که به ContextMenu که یک ایتم داره یک سری یک به صورت DropDown یا زیر مجموعه اضافه کنم(Runtim(

[Dariuosh]

اگه درست فهمیده باشم


Dim components = New System.ComponentModel.Container
Dim ContextMenuStrip1 AsNew System.Windows.Forms.ContextMenuStrip
ContextMenuStrip1.Name = "ContextMenuStrip1"
ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(components)
Dim ToolStripMenuItem1 = New System.Windows.Forms.ToolStripComboBox
ToolStripMenuItem1.Items.AddRange(NewObject() {"1", "1"})
ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {ToolStripMenuItem1})
Me.ContextMenuStrip = ContextMenuStrip1

[VisualStudio]

نه متاسفانه این کد درست نیست

[Dariuosh]

نه متاسفانه این کد درست نیست

پس بیشتر توضیح بده خوب لطفاً

[VisualStudio]

من میخوام که به آیتم ها یک زیر مجموعه اضافه بشه مثل شکل زیر

[VisualStudio]

دوستان کسی کمک نمکنه

[Dariuosh]

میگم اینم به دردت نمیخوره؟



PublicClass Form1
FriendWithEvents ContextMenuStrip2 As System.Windows.Forms.ContextMenuStrip
FriendWithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem
FriendWithEvents ToolStripMenuItem3 As System.Windows.Forms.ToolStripMenuItem
FriendWithEvents ToolStripMenuItem4 As System.Windows.Forms.ToolStripMenuItem
FriendWithEvents ToolStripMenuItem5 As System.Windows.Forms.ToolStripMenuItem
FriendWithEvents ToolStripMenuItem6 As System.Windows.Forms.ToolStripMenuItem
FriendWithEvents ToolStripMenuItem7 As System.Windows.Forms.ToolStripMenuItem
FriendWithEvents ToolStripMenuItem8 As System.Windows.Forms.ToolStripMenuItem
FriendWithEvents ToolStripMenuItem9 As System.Windows.Forms.ToolStripMenuItem
FriendWithEvents ToolStripMenuItem10 As System.Windows.Forms.ToolStripMenuItem
PublicSub ContextMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
MsgBox(sender.Name)
EndSub
PrivateSub Form1_Load(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Load
Me.components = New System.ComponentModel.Container
ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.component s)
ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem
ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem
ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem
ToolStripMenuItem5 = New System.Windows.Forms.ToolStripMenuItem
ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem
ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem
ToolStripMenuItem8 = New System.Windows.Forms.ToolStripMenuItem
ToolStripMenuItem9 = New System.Windows.Forms.ToolStripMenuItem
ToolStripMenuItem10 = New System.Windows.Forms.ToolStripMenuItem
ContextMenuStrip2.SuspendLayout()
Me.SuspendLayout()
'
'ContextMenuStrip2
'

ContextMenuStrip2.Items.AddRange(

New System.Windows.Forms.ToolStripItem() {ToolStripMenuItem2, ToolStripMenuItem3})

ContextMenuStrip2.Name = "ContextMenuStrip2"
ContextMenuStrip2.Size =


New System.Drawing.Size(81, 48)

'
'ToolStripMenuItem2
'
ToolStripMenuItem2.Name =


"ToolStripMenuItem2"

ToolStripMenuItem2.Size =


New System.Drawing.Size(152, 22)

ToolStripMenuItem2.Text = "1"
'
'ToolStripMenuItem3
'
ToolStripMenuItem3.DropDownItems.AddRange(


New System.Windows.Forms.ToolStripItem() {ToolStripMenuItem4, ToolStripMenuItem5, ToolStripMenuItem6})

ToolStripMenuItem3.Name = "ToolStripMenuItem3"
ToolStripMenuItem3.Size =


New System.Drawing.Size(80, 22)

ToolStripMenuItem3.Text = "2"
'
'ToolStripMenuItem4
'
ToolStripMenuItem4.Name =


"ToolStripMenuItem4"

ToolStripMenuItem4.Size =


New System.Drawing.Size(152, 22)

ToolStripMenuItem4.Text = "21"
'
'ToolStripMenuItem5
'
ToolStripMenuItem5.DropDownItems.AddRange(


New System.Windows.Forms.ToolStripItem() {ToolStripMenuItem7, ToolStripMenuItem8, ToolStripMenuItem9})

ToolStripMenuItem5.Name = "ToolStripMenuItem5"
ToolStripMenuItem5.Size =


New System.Drawing.Size(152, 22)

ToolStripMenuItem5.Text = "22"
'
'ToolStripMenuItem6
'
ToolStripMenuItem6.Name =


"ToolStripMenuItem6"

ToolStripMenuItem6.Size =


New System.Drawing.Size(152, 22)

ToolStripMenuItem6.Text = "23"
'
'ToolStripMenuItem7
'
ToolStripMenuItem7.Name =


"ToolStripMenuItem7"

ToolStripMenuItem7.Size =


New System.Drawing.Size(152, 22)

ToolStripMenuItem7.Text = "221"
'
'ToolStripMenuItem8
'
ToolStripMenuItem8.Name =


"ToolStripMenuItem8"

ToolStripMenuItem8.Size =


New System.Drawing.Size(152, 22)

ToolStripMenuItem8.Text = "222"
'
'ToolStripMenuItem9
'
ToolStripMenuItem9.DropDownItems.AddRange(


New System.Windows.Forms.ToolStripItem() {ToolStripMenuItem10})

ToolStripMenuItem9.Name = "ToolStripMenuItem9"
ToolStripMenuItem9.Size =


New System.Drawing.Size(152, 22)

ToolStripMenuItem9.Text = "223"
'
'ToolStripMenuItem10
'
ToolStripMenuItem10.Name =


"ToolStripMenuItem10"

ToolStripMenuItem10.Size =


New System.Drawing.Size(152, 22)

ToolStripMenuItem10.Text = "2231"
ContextMenuStrip2.ResumeLayout(


False)

ResumeLayout(False)
ContextMenuStrip = ContextMenuStrip2
AddHandler ToolStripMenuItem10.Click, AddressOf ContextMenu_Click
EndSub


EndClass