مشکل متن لیبل در مولتی پنل

[fito 45]

با سلام، برنامه ای که دارم روش کار میکنم از مولتی پنل استفاده شده و در پنلش اکشن منو اضافه کردم حالا مشکلی که دارم نتونستم متن لیبل رو برابر با همون پوزیشن کنم!

حلقه	
For i = 0 To cur.RowCount -1
		cur.Position = i
		''''
		''''		
		menu_panel.Tag = cur.GetString("name")
		menu_panel.Menu.Add(1, 1, "دانلود صوت", Null)
		menu_panel.Menu.Add(2, 2, "حذف", Null)	
	Next

کلیک آیتم منو

Sub menu_panel_MenuItemClick (Item As ACMenuItem)
	Dim m As Button = Sender

	If Item.Id = 1 Then			
		If File.Exists(File.DirInternal,m.Tag) = False Then
			panel_download.Visible = True
			matn.Text = curr.GetString("name")
		End If						
	End If
	
End Sub

در کد بالا هنگام کلیک منو، اگه صوتی نبود پنل دانلود نمایان میشه و توی پنل دانلود matn داریم که همون لیبل هست

حالا میخوام این لیبل اسم همون گزینه ای که در مولتی پنل انتخاب کردیم رو نشون بده اما چطوری؟

اینم پنل دانلود با رنگ زرد و لیبلی که میخوام اسم رو بگیره:

[محمد رشوند 1,208]

در 7 ساعت قبل، fito گفته است :

حالا میخوام این لیبل اسم همون گزینه ای که در مولتی پنل انتخاب کردیم رو نشون بده اما چطوری؟

سلام

این کد رو پیاده سازی کن شاید جواب بده

متن تکست رو برابر با تگ منو قرار بده

dim b as button 
b.tag = menu_panel.Tag
matn.Text = b.text

 

[fito 45]

در 48 دقیقه قبل، محمد رشوند گفته است :

سلام

این کد رو پیاده سازی کن شاید جواب بده

متن تکست رو برابر با تگ منو قرار بده

dim b as button 
b.tag = menu_panel.Tag
matn.Text = b.text

 

نه متاسفانه خود منو که تکست رو ساپورت نمیکنه

مشکلم همینه وگرنه راحت تگ منو رو برابر با id میکردم و تکست رو برابر با فیلد اسامی صوت ها

 

int = b.Tag -1
cur = sql.ExecQuery("SELECT * FROM tbl WHERE id="&b.Tag)
cur.Position = 0
matn.Text = cur.GetString("name")

اگه مثلا منو تکست رو ساپورت میکرد با کد بالا راحت حل میشد و هر وقت گزینه ای از منو رو میزدیم، پنلی که نمایان میشد لیبل هم اسم همون فیلدی که تو مولتی پنل انتخاب شده رو نمایش میداد و کاربر میفهمید چه گزینه ای انتخاب کرده...

اگه میشه یه راهنمایی کنن دوستان چطور کنار تگ یه چیز مثله تکست هم بدیم به منو!!

مثلا تو حلقه:

menu_panel.Tag = cur.Getint("id")
menu_panel.Text = cur.GetString("name") ??

با تشکر