اشتراک گذاری تمام مولتی پنل

[mahdi tahan 723]

با سلام یک مولتی پنل دارم ک متنشو از دیتابیس میگیره و خلاصه اخر به یک باتون نسبت میدتش.

به این صورت

If File.Exists(File.DirInternal,"paresh.db") = False Then
		File.copy(File.DirAssets,"paresh.db",File.DirInternal,"paresh.db")
	End If
	
	If sql.IsInitialized = False Then
		sql.Initialize(File.DirInternal,"paresh.db",True)
		cur = sql.ExecQuery("SELECT * FROM paresh100")
		For i = 0 To cur.RowCount - 1
			
		cur.Position = i	
		Dim p As Panel
		p.Initialize("")
		ScrollView1.Panel.AddView(p,0,Stop,100%x,100%y)
		Stop= Stop + 20%y
		p.LoadLayout("main")
		Label1.Text= (cur.GetString("fname")&CRLF&cur.GetString("link")&CRLF&"")
		'cur.GetString("link")
		ScrollView1.Panel.Height = Stop
		Label1.Gravity = Gravity.NO_GRAVITY
        Label1.TextColor=Colors.Black

و میخوام label1 رو داخل یک لیبل دیگ بیارم. و بعد اشتراک گذاری کنمش

lab.Text=("سلام بر همه"&CRLF&Label1) 

مشکل سر اینه سر لیبل یک.

 

نمدونم چطوری اشتراک گذاری کنمش

[shahab.es 5,429]

ببین شما میخوای کل ستون هات رو به اشتراک بذاری مثلا

خوب؟

چرا کار سخت بشه ؟؟؟

dim str as string
for i = 0 to cur.RowCount - 1
cur.position = i
str = str & cur.getint("id") &"  "& cur.getstring("matn") & "  " & cur.getString("info")&CRLF
next

بعد هم متغیر Str رو لطف میکنید و میشیرید

اگر درست متوجه سوال شده باشم

[parham01 82]

سلام دوست عزیز ازکد زیر استفاده کنید

 

بنظرم مشکلی نداشته باشه

Sub share_Click
	Dim i As Intent
	 Dim a As String

   a = lab.Text
   i.Initialize(i.ACTION_SEND, "")
	i.SetType("text/plain")
    i.PutExtra("android.intent.extra.TEXT",a)

   i.WrapAsIntentChooser("ارسال از طریق...")
    StartActivity(i)
End Sub

lab.Text=("سلام بر همه"&CRLF&Label1.text) 

[mahdi tahan 723]

نه متاسفانه درست نشد.مشکل سر ‌label1.چون متن رو از دیتابیس میگیره و هی تکرار میش.نمدونم چطوری اشترام گذاریش کنم.ینی در واقع ما کلی لیبل داریم به اسم لیبل یک...

[sejil 180]

سورس برای شما ارسال شد ، این پاسخ برای افرادیه که شاید همین مشکلو داشته باشن.

 

توی حلقه از این طریق پنلو تگ میکنیم:

cur1.GetString("id")

و توی لی اوتی که برای مولتی ساختیم یک دکمه یا ایمیج ویوو اضافه میکنیم و به برنامه تعریفش میکنیم

و بعد توی رویداد کلیکش تگو میگیریم میریزیم توی یک متغیرو با ایدیش رکوردو سلکت میکنیم و با کتابخونه آرمین جان اونو به اشتراک میزاریم:

Dim send As Panel
	send = Sender
	cur2 = sql2.ExecQuery("SELECT * FROM paresh100 WHERE id='"& send.tag & "'")
	Dim a As AriaLib
	StartActivity(a.ShareText(cur2.GetString("fname")&CRLF&cur2.GetString("link")&CRLF&"","share with"))

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

راه های دیگه ای هم هست برای این کار ، ولی این سریع ترین روشی هستش که به فکرم رسید

[shahab.es 5,429]

سلام

ببین شما علاوه بر تمام چیزهایی که داری توی مولتی پنل، یه دکمه داری برای شیر دیگه

تمام ستون هاتو بگیر و بریز توی تگ این دکمه شیر

و بین هر ستون یه # اینطوری بذار

این شکلی میشه تقریبا

btnShare.tag = cur.getstring("matn") & "#" & cur.getstring("matn2")

توی رویداد کلیک اون دکمه به کل زیر کار کن...

dim bt as button
bt = SENDER
dim str() as string = Regex.Split("#",bt.tag)
dim matn1 as string = str(0)
dim matn2 as string = str(1)

حالا متن 1 و متن 2 رو داری دیه

میتونی مسیج باکس نشون بدی، اشتراک بذاری، هر کاری خواستی، این روش برای هر تعداد که خواستی هم جواب میده

موفق تر باشید

[mahdi tahan 723]

خوب اینطوری که cur فقط رکورد اول رو میگیره...

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

 

[shahab.es 5,429]

اگر پوزیشن cur رو i حلقه ات بدی، میاد و هر ردیفی که کلیک شده رو میگیره

یه سرچ بزن تگ و سندر و اموزشش با مولتی پنل رو ببین حتما...

[sejil 180]

سلام و درود

 

شما بیا توی حلقه ای که مولتیرو نشون میدی پنل اصلیتو که تو دیزاینر گزاشتی تگ کن حالا چجوری اینجوری:

pnl.Tag = cur1.GetString("id")

من اومدم تگو برابر با ای دی قرار دادم ، شما برابر با متن بزار

بعد توی رویداد کلیک اشتراک گذاری اینو بزار

Sub pnl_Click
	Dim Send As Panel
    Send=Sender
	ToastMessageShow("ID: " & Send.Tag &" Cicked!!!",False)
End Sub

من کاری کردم که وقتی روی پنل کلیک میشه بیاد ای دی اون پنل رو توی توست نشون بده

موفق باشید

بدرود

[mahdi tahan 723]

بهتر نیست من اصلا داخل مولتی پنل نیارم و مستقیم متن رو از دیتا بیس بگیرم وبه یک لیبل متصلش کنم وشیرش کنم؟

اصلا میش؟

[mahdi tahan 723]

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

 

با این روش دو تا ستون پشت سر هم میاد

[mahdi tahan 723]

گرفتم 

اینطوری 

str = str & cur.getint("id") &CRLF& cur.getstring("fname") & CRLF & cur.getString("link")&CRLF

[shahab.es 5,429]

خوبه که ردیف شد

الان اینکاری که کردی

اگه سه تا ستون داری اینطوری میشه ها

1

2

3

1

2

3

1

2

3

1

2

3

.

.

.

به این شکل میگیره که برای چیزی که تو پیام خصوصی گفتی فک کنم مناسب نباشه زیاد

[mahdi tahan 723]

من نیازی به ایدی نداشتم  کلا آیدی رو پاک کردم

که این شد

str = str & cur.GetString("fname")&CRLF&cur.GetString("link")&CRLF

[mahdi tahan 723]

ن اینطوری نشد.

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

با سلام یک مولتی پنل دارم ک متنشو از دیتابیس میگیره و خلاصه اخر به یک باتون نسبت میدتش.

به این صورت

If File.Exists(File.DirInternal,"paresh.db") = False Then
		File.copy(File.DirAssets,"paresh.db",File.DirInternal,"paresh.db")
	End If
	
	If sql.IsInitialized = False Then
		sql.Initialize(File.DirInternal,"paresh.db",True)
		cur = sql.ExecQuery("SELECT * FROM paresh100")
		For i = 0 To cur.RowCount - 1
			
		cur.Position = i	
		Dim p As Panel
		p.Initialize("")
		ScrollView1.Panel.AddView(p,0,Stop,100%x,100%y)
		Stop= Stop + 20%y
		p.LoadLayout("main")
		Label1.Text= (cur.GetString("fname")&CRLF&cur.GetString("link")&CRLF&"")
		'cur.GetString("link")
		ScrollView1.Panel.Height = Stop
		Label1.Gravity = Gravity.NO_GRAVITY
        Label1.TextColor=Colors.Black

و میخوام label1 رو داخل یک لیبل دیگ بیارم. و بعد اشتراک گذاری کنمش

lab.Text=("سلام بر همه"&CRLF&Label1) 

مشکل سر اینه سر لیبل یک.

 

نمدونم چطوری اشتراک گذاری کنمش

شما اینو

(cur.GetString("fname")&CRLF&cur.GetString("link")&CRLF&"")

بریز داخل یه متغیر string بعد به جای اینکه لیبیل یک رو بیاری جای دیگه متغییر روتعریف کن اونجا

بنظرم اینطوری جواب بده