رفتن به مطلب
  • 0

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


fito

سوال

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

حلقه	
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 داریم که همون لیبل هست

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

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

ax.jpg

لینک ارسال
به اشتراک گذاری در سایت های دیگر

2 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

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

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

سلام

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

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

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

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 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") ??

با تشکر

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...