hw to get index
-
hi all i have some lines of code which generarte menu at run time.now i want to pass the index value of menu to another function.hw to do so plz help me.... [code] For i = 1 To n s = "Select account from cash" com = New OleDbCommand(s, con) con.Open() dr = com.ExecuteReader While dr.Read() a = dr(0) b = a Dim mSubSubMenuItem As System.Windows.Forms.MenuItem mSubSubMenuItem = New System.Windows.Forms.MenuItem mSubSubMenuItem.Index = i mSubSubMenuItem.Text = b mSubSubMenuItem.Enabled = True mSubSubMenuItem.Visible = True AddHandler mSubSubMenuItem.Click, AddressOf MenuClickHandler mShowMenuItem.MenuItems.Add(mSubSubMenuItem) i = i + 1 End While [/code] i want to pass the value of i to MenuClickHandler
poonam
-
hi all i have some lines of code which generarte menu at run time.now i want to pass the index value of menu to another function.hw to do so plz help me.... [code] For i = 1 To n s = "Select account from cash" com = New OleDbCommand(s, con) con.Open() dr = com.ExecuteReader While dr.Read() a = dr(0) b = a Dim mSubSubMenuItem As System.Windows.Forms.MenuItem mSubSubMenuItem = New System.Windows.Forms.MenuItem mSubSubMenuItem.Index = i mSubSubMenuItem.Text = b mSubSubMenuItem.Enabled = True mSubSubMenuItem.Visible = True AddHandler mSubSubMenuItem.Click, AddressOf MenuClickHandler mShowMenuItem.MenuItems.Add(mSubSubMenuItem) i = i + 1 End While [/code] i want to pass the value of i to MenuClickHandler
poonam
easyst way would be to put i into the tag property of mssubsubmenuitem then in you'r menuclickhandler cast sender to a menuitem and you can extract i from the tag property again code would look something like this: While dr.Read() a = dr(0) b = a Dim mSubSubMenuItem As System.Windows.Forms.MenuItem mSubSubMenuItem = New System.Windows.Forms.MenuItem mSubSubMenuItem.Index = i mSubSubMenuItem.tag = i mSubSubMenuItem.Text = b mSubSubMenuItem.Enabled = True mSubSubMenuItem.Visible = True AddHandler mSubSubMenuItem.Click, AddressOf MenuClickHandler mShowMenuItem.MenuItems.Add(mSubSubMenuItem) i = i + 1 End While private sub MenuClickHandler (sender as object , e as system.eventargs) Dim menu As System.Windows.Forms.MenuItem = sender dim i as integer = menu.tag end sub hope it helps
If my help was helpfull let me know, if not let me know why. The only way we learn is by making mistakes.