برنامه پیامکی آنلاین

[susa 25]

سلام دوستان خسته نباشید

بنده یه برنامه پیامکی آنلاین میخوام بنویسم اما توی کپی و اشتراک گذاری متن مشکل دارم

وقتی کپی رو میزنم یا اشتراک رو آخرین ردیف دریافتی رو کپی میکنه ، روی هرکدوم که میزنم اینجوره ، لطفا اگه راه حل ساده ای هست بگید ، مرسی

لیست دریافتی توی مولتی پنل لود میشن و توی ادامه مطلب نمایش داده نمیشن میخوام توی همون پنل کپی یا به اشترام گذاشته بشه

[majid08 266]

سلام

شما از لیستی که استفاده میکنید 

یک لیبل بزارید برای اشتراک مثلا

بعد متنی رو که میخای اشتراک بزاری بزار برای تگ لیبل توی حلقه یا توی ریسایکلر یا هرچی

بعد با سندر توی ساب کلیک لیبل متن رو بگیرید

for i = 0 to 10
dim lb as label
lb.Initialize("")
lb.text = "Test"&i
tb.tag = "Test"&i
next

sub lb_click
dim lb as label = sender
log(lb.tag)
end sub

 

[susa 25]

در 6 ساعت قبل، majid08 گفته است :

سلام

شما از لیستی که استفاده میکنید 

یک لیبل بزارید برای اشتراک مثلا

بعد متنی رو که میخای اشتراک بزاری بزار برای تگ لیبل توی حلقه یا توی ریسایکلر یا هرچی

بعد با سندر توی ساب کلیک لیبل متن رو بگیرید

for i = 0 to 10
dim lb as label
lb.Initialize("")
lb.text = "Test"&i
tb.tag = "Test"&i
next

sub lb_click
dim lb as label = sender
log(lb.tag)
end sub

 

دمت گرم خدایی عالی بود

 

تاپیک قفل شه و اسمش رو به کپی و اشتراک گذاری از دیتابیس آنلاین تغییر بدید لطفا با تشکر