کمک برای ایجاد منوی آرایه ای

برای انجام این کار دو راه وجود داره...!؟! :

1. استفاده از توابع API ویندوز که خیلی پیچیده ست...!؟! :13: :2:

2. استفاده از توابع خود VB که خیلی ساده تره...!؟! :27:

ما با همون روش دوم کار می کنیم... چون بهتر و ساده تره...!؟! :

برای انجام این کار باید یه SubItem به Album اضافه کنید... و خاصیت Index اش رو هم برابر صفر قرار بدید...!؟! بهتره که خاصیت Visible اش رو هم False کنید...!؟! :13:

فرض رو بر این میگریم... که اسم این SubMenu جدیدی که به منو ها تون اضافه کردید... mnuNewItem ه...!؟! :20:

حالا با استفاده از کد های زیر... می تونید در زمان اجرا... یه Item جدید به منو هاتون اضافه کنید...!؟! (منو به زیر مجموعه های Album اضافه میشه...!؟!) :

کد:

ُPrivate Sub Command1_Click() On Error Resume Next Static index As Integer Dim strAlbumName As String index = index + 1 Load mnuNewItem(index) strAlbumName = InputBox("Please Enter Album Name : ", "New Album", "myAlbum") mnuNewItem(index).Caption = strAlbumName mnuNewItem(index).Visible = True End Sub

اگه مشکلی بود... من در خدمتم...!؟! :20:

موفق باشید...!؟! :46: