اضافه کردن Menu و Sub Menu در RunTime

[3Dmajid]

تو RunTime با چه کدی میشه Menu درست کنیم و برای اون منو یه Sub Menu بسازیم ؟
البته کد منو که مشخصه ولی کد زیر منو رو بلد نیستم. :چشمک:

[sari-1369]

اگر به کد زیر دقت کنی 6 تا زیر منو با نام های 0 و 1 و ... و 5 به آیتم TSPlanOpen اضافه میکنه .



For i = 0 To 5
TSPlanOpen.DropDownItems.Add(i.ToString)
Next

[Hossis]

اگر به کد زیر دقت کنی 6 تا زیر منو با نام های 0 و 1 و ... و 5 به آیتم TSPlanOpen اضافه میکنه .

کاملترش اينه


dim Mnu as toolstripmenuItem
For i = 0 To 5
mnu= TSPlanOpen.DropDownItems.Add(i.ToString)
mnu.forecolor=blue
mnu.DropDownItems.Add("SubMenu" & i.ToString)
Next