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

[rezaz مهمان]

سلام

 

دوتا سوال داشتم :

 

1)چجوری برا مولتی پنل دکمه اشتراک گذاری میشه ساخت ؟؟

 

2) چجوری میشه اندازه هز کدوم ازمولتی پنل هارو با متن داخلش ست کرد؟؟

 

پیشاپیش تشکر هر کی کمک کنه!

 

 

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

 

http://s6.picofile.com/file/8198388600/reza.zip.html

[پژمان نیکروان 6,055]

شرمنده دیر دیدم

 

بعدشم خواستم ببینم شاید تو سورس اقای ایزدی یه چیزای دیگه باشه ... گفتم یه چیز جدید دیگه هم یاد بیگرم   

 

بازم دمت گرم پژمان جان

فدات.

منظور آقای ایزدی هم اینه که میتونی همونجا که متن رو میدی به لیبل ، به تگ باتون هم بدی و دوباره از همونجا فراخوانی کنی:

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("sc")

	If File.Exists(File.DirInternal,"mp.db") = False Then
	File.Copy(File.DirAssets,"mp.db",File.DirInternal,"mp.db")
	End If
	
	sql1.Initialize(File.DirInternal,"mp.db",False)
	cur1 = sql1.ExecQuery("SELECT * FROM mp ")
	Dim p As Panel
	For i = 0 To cur1.RowCount-1
	cur1.Position = i
	Dim p As Panel
	p.Initialize("p")
	ScrollView1.Panel.AddView(p,0,s,100%x,100%Y)
	s = s + 35%Y
	p.LoadLayout("main")
	Label1.Text = cur1.GetString("txt")
	
	Button1.Tag=Label1.Text 'متن رو بدی به تگ باتون
	
	ScrollView1.Panel.Height = s
	
	Next


End Sub

واسه اشتراک هم اینجوری فراخوانی میکنی:

Sub Button1_Click
Dim b As Button
b=Sender

Dim g As send
g.Initialize
g.ersalmatn(b.Tag,"others")
End Sub

متن رو از تگ باتون میگیره.

[مهدی ایزدی 9,203]

آقا دمتون ویژه گرمممممممم!!

اشتراکش درست شد 

 

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

 

با کتابخونه TextSetting  میشه کاریش کرد ؟؟؟  

 

سوالتون ربطی به این تاپیک نداره . تاپیک حل شده حسابه.

لطفا برای سوالات بعدی جست و جو کنید و اگه چیزا پیدا نکردید تاپیک جدید ایجاد کنید !

[پژمان نیکروان 6,055]

سلام.

1.چی رو میخوای از مولتی پنل به اشتراک بذاری؟ - یکم بیشتر توضیح بده.

2.اینو ببین بکارت میاد؟

http://answercenter.ir/topic/539-%D9%85%D8%A7%DA%98%D9%88%D9%84-%D8%AA%D8%A7%DB%8C%DB%8C%D9%86-%D8%A7%D9%86%D8%AF%D8%A7%D8%B2%D9%87-%D9%81%D9%88%D9%86%D8%AA-%D8%A8%D8%B1%D8%A7%DB%8C-label-%D8%A8%D8%B1%D8%A7%DB%8C-%D8%B3%D8%A7%DB%8C%D8%B2-%D9%87%D8%A7%DB%8C-%D9%85%D8%AE%D8%AA%D9%84/

[rezaz مهمان]

سلام.

1.چی رو میخوای از مولتی پنل به اشتراک بذاری؟ - یکم بیشتر توضیح بده.

2.اینو ببین بکارت میاد؟

http://answercenter.ir/topic/539-%D9%85%D8%A7%DA%98%D9%88%D9%84-%D8%AA%D8%A7%DB%8C%DB%8C%D9%86-%D8%A7%D9%86%D8%AF%D8%A7%D8%B2%D9%87-%D9%81%D9%88%D9%86%D8%AA-%D8%A8%D8%B1%D8%A7%DB%8C-label-%D8%A8%D8%B1%D8%A7%DB%8C-%D8%B3%D8%A7%DB%8C%D8%B2-%D9%87%D8%A7%DB%8C-%D9%85%D8%AE%D8%AA%D9%84/

 

 

سلام پژمان جان

 

 

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

 

بزن رو لینک زیر سورس و دانلود کم منظورمو میفهمی

 

 

http://s6.picofile.com/file/8198388600/reza.zip.html

[Farzad Musavi 576]

سلام پژمان جان

 

 

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

 

بزن رو لینک زیر سورس و دانلود کم منظورمو میفهمی

 

 

http://s6.picofile.com/file/8198388600/reza.zip.html

یه باتن بزار تو مولتی پنل تگشو مساوی متن لیبلت بزار

[rezaz مهمان]

یه باتن بزار تو مولتی پنل تگشو مساوی متن لیبلت بزار

 

باتن که گذاشتم ... :|

 

بقیه شو بیشتر توضی میدی ؟؟

[مهدی ایزدی 9,203]

باتن که گذاشتم ... :|

 

بقیه شو بیشتر توضی میدی ؟؟

 

توی حلقت بیا و Tag باتن مربوط به اشتراک گذاری رو مساوی متن Label قرار بده !

بقیش هم که دیگه مشخصه . با استفاده از Sender مقدارش رو موقع کلیک شدن بگیر !

[پژمان نیکروان 6,055]

راه های مختفی داره که باید از حلاقیت استفاده کنی تا با تگ و سندر کارو انجام بدی.

من ازاین روش استفاده کردم سورستو ویرایش کردم.

http://s3.picofile.com/file/8198391950/reza.zip.html

اشتراکش هم میمونه به عهده خودت ، چون اینجا مثل اینکه از لایبری send استفاده کرده بودی من نداشتمش.

متن رو مشخص کردم که داخل listmatn.Get(b.Tag) هست.

[rezaz مهمان]

توی حلقت بیا و Tag باتن مربوط به اشتراک گذاری رو مساوی متن Label قرار بده !

بقیش هم که دیگه مشخصه . با استفاده از Sender مقدارش رو موقع کلیک شدن بگیر !

 

 

آقای ایزدی نمونه کد نداری ؟!

[rezaz مهمان]

راه های مختفی داره که باید از حلاقیت استفاده کنی تا با تگ و سندر کارو انجام بدی.

من ازاین روش استفاده کردم سورستو ویرایش کردم.

http://s3.picofile.com/file/8198391950/reza.zip.html

اشتراکش هم میمونه به عهده خودت ، چون اینجا مثل اینکه از لایبری send استفاده کرده بودی من نداشتمش.

متن رو مشخص کردم که داخل listmatn.Get(b.Tag) هست.

 

 

کتابخونه RALROIDSEND هستش 

 

من روش کار میکنم مشکل بود میگم    

[پژمان نیکروان 6,055]

آقای ایزدی نمونه کد نداری ؟!

سورستو واست ویرایش کردم اون امکانو گذاشتم دیگه کد میخوای چیکار عل جان ؟

[rezaz مهمان]

سورستو واست ویرایش کردم اون امکانو گذاشتم دیگه کد میخوای چیکار عل جان ؟

 

شرمنده دیر دیدم

 

بعدشم خواستم ببینم شاید تو سورس اقای ایزدی یه چیزای دیگه باشه ... گفتم یه چیز جدید دیگه هم یاد بیگرم   

 

بازم دمت گرم پژمان جان

[مهران محمودی 778]

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

Sub Button1_Click
	Dim btn = Sender As Button
	Dim intShare As Intent
	intShare.Initialize(intShare.ACTION_SEND,"")
	intShare.SetType("text/plain")
    intShare.WrapAsIntentChooser("اشتراک گذاری توسط:")
	intShare.PutExtra("android.intent.extra.TEXT", btn.tag)
	StartActivity(intShare)
End Sub

البته اگه همونطور که پژمان جان گفتن، Button1.Tag = Label1.Text باشه، این روشی که گفتم پاسخگو هستش.

[rezaz مهمان]

فدات.

منظور آقای ایزدی هم اینه که میتونی همونجا که متن رو میدی به لیبل ، به تگ باتون هم بدی و دوباره از همونجا فراخوانی کنی:

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("sc")

	If File.Exists(File.DirInternal,"mp.db") = False Then
	File.Copy(File.DirAssets,"mp.db",File.DirInternal,"mp.db")
	End If
	
	sql1.Initialize(File.DirInternal,"mp.db",False)
	cur1 = sql1.ExecQuery("SELECT * FROM mp ")
	Dim p As Panel
	For i = 0 To cur1.RowCount-1
	cur1.Position = i
	Dim p As Panel
	p.Initialize("p")
	ScrollView1.Panel.AddView(p,0,s,100%x,100%Y)
	s = s + 35%Y
	p.LoadLayout("main")
	Label1.Text = cur1.GetString("txt")
	
	Button1.Tag=Label1.Text 'متن رو بدی به تگ باتون
	
	ScrollView1.Panel.Height = s
	
	Next


End Sub

واسه اشتراک هم اینجوری فراخوانی میکنی:

Sub Button1_Click
Dim b As Button
b=Sender

Dim g As send
g.Initialize
g.ersalmatn(b.Tag,"others")
End Sub

متن رو از تگ باتون میگیره.

 

 

 

 

آقا دمتون ویژه گرمممممممم!!

اشتراکش درست شد 

 

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

 

با کتابخونه TextSetting  میشه کاریش کرد ؟؟؟