گذاشتن اشتراک در سورس کتاب

[mozafarkhan 6]

سلام

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

لطفا سورسش رو برام بزارید و آموزشش 

که کجا بزارم تا این کتاب اشتراک بشه

ممنون

[Kazem Forghani 2,928]

سلام

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

[mozafarkhan 6]

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

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

منم میخوام بهش اشتراک اضاف کنم

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

[shahab.es 5,429]

سلام برادر

کتابخونه rakroidsend رو دانلود کن

تیکش بزن

در قسمت کلیک دکمه ارسال مطالبت

dim s as share
s.initialize
s.ersalmatn(label1.text,"other")

label1 هم، لیبلیه که متنت توش قرار داره...

موفق تر باشی...

[mozafarkhan 6]

سلام برادر

کتابخونه rakroidsend رو دانلود کن

تیکش بزن

در قسمت کلیک دکمه ارسال مطالبت

dim s as share
s.initialize
s.ersalmatn(label1.text,"other")

label1 هم، لیبلیه که متنت توش قرار داره...

موفق تر باشی...

درست نشد دوست عزیز

سورس امام خامنه ای رو تو همین سایت خریدم

اما شر - اشتراک متن نداره

چیکار کنم

؟؟؟

اسم باتن اشتراک رو share گذاشتم

لیبلی که متن توشه Stxt هست

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

اما سورسش مونده

ممنون میشم راهنمایی کنید

[mozafarkhan 6]

اما الان دارم میفهمم که این سورس امام خامنه ای چقد ناقص بوده

اشتراک نداره

نظرخواهی نداره

تماس با ما نداره

سایر برنامه ها نداره

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

فقط سورسش مونده

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

مرسیییییییییییییییییییی

[mozafarkhan 6]

اما الان دارم میفهمم که این سورس امام خامنه ای چقد ناقص بوده

اشتراک نداره

نظرخواهی نداره

تماس با ما نداره

سایر برنامه ها نداره

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

فقط سورسش مونده

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

مرسیییییییییییییییییییی

کسی بلد نبود ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[Nemesis 1,846]

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

برنامه رو دوباره بررسی کنید و بگید اخطار کجاست

[mozafarkhan 6]

داداش گلم

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

حالا میخوام تو سورس کد اشتراک متن از دیتابیس رو بنویسم

اسم باتن اشتراک در دیزاینر                               share

اسم لیبلی که متن درش هست در دیزاینر                   Stxt

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

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

ممنون میشم راهنمایی کنی

مرسی

[shahab.es 5,429]

برادرم سلام

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

Dim s As send
	s.Initialize
	s.ersalmatn(Stxt.text,"other")

فقط

مسلما باید متن وارد لیبل شده باشه و بعد روی ارسال بزنید

اگر اروری دارید، لطف کنید تصویرش رو یا متنشو قرار بدید تا بررسی کنیم عزیزم

[mozafarkhan 6]

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

[shahab.es 5,429]

عزیزم میتونید پیام خصوصی کنید...

اینم ایمیل بنده

shahabeskandary16@gmail.com

[mozafarkhan 6]

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

[Nemesis 1,846]

کتابخانه Arialib رو دانلود کن

Sub share_Click
	Dim sh As AriaLib
	StartActivity(sh.ShareText(Stxt.Text,"Share with :"))
End Sub

[Nemesis 1,846]

کتابخانه Arialib رو دانلود کن

Sub share_Click
	Dim sh As AriaLib
	StartActivity(sh.ShareText(Stxt.Text,"Share with :"))
End Sub

[mozafarkhan 6]

Sub bshare_Click
    File.WriteString(File.DirInternal,"ttt.txt","این سورس توسط فروشگاه basic4android.org ارائه شده است" & CRLF &Ltxt1.Text & CRLF & Ltxt2.Text & CRLF& Ltxt3.Text & CRLF& Ltxt4.Text)    
Dim i As Intent
   i.Initialize(i.ACTION_SEND, "")
   i.SetType("text/plain")
   i.PutExtra("android.intent.extra.TEXT", File.ReadString(File.DirInternal,"ttt.txt"))
   i.WrapAsIntentChooser("اشتراک گذاری متن با...")
   StartActivity(i)
End Sub

 

 

این سورسشه اما چرا این ارور زیر رو میده ؟

Parsing code.                           Error
Error parsing program.
Error description: Undeclared variable 'ltxt4' is used before it was assigned any value.
Occurred on line: 201
File.WriteString(File.DirInternal,"ttt.txt","این سورس توسط فروشگاه basic4android.org ارائه شده است" & CRLF &Ltxt1.Text & CRLF & Ltxt2.Text & CRLF& Ltxt3.Text & CRLF& Ltxt4.Text)

[shahab.es 5,429]

برادرم

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

این لیبل رو داره میگه

 

Ltxt4

[mozafarkhan 6]

Sub bshare_Click

File.WriteString(File.DirInternal,"ttt.txt","این سورس توسط فروشگاه basic4android.org ارائه شده است" & CRLF &Ltxt1.Text & CRLF & Ltxt2.Text & CRLF& Ltxt3.Text & CRLF& Ltxt4.Text)

Dim i As Intent

i.Initialize(i.ACTION_SEND, "")

i.SetType("text/plain")

i.PutExtra("android.intent.extra.TEXT", File.ReadString(File.DirInternal,"ttt.txt"))

i.WrapAsIntentChooser("اشتراک گذاری متن با...")

StartActivity(i)

End Sub

این سورسشه اما چرا این ارور زیر رو میده ؟

 

Parsing code.                           Error

Error parsing program.

Error description: Undeclared variable 'ltxt4' is used before it was assigned any value.

Occurred on line: 201

File.WriteString(File.DirInternal,"ttt.txt","این سورس توسط فروشگاه basic4android.org ارائه شده است" & CRLF &Ltxt1.Text & CRLF & Ltxt2.Text & CRLF& Ltxt3.Text & CRLF& Ltxt4.Text)

[mozafarkhan 6]

الان چیکار کنم ؟

این سورس خود اینجاست

راهنمایی کن لطفا

[mozafarkhan 6]

آقا nemesis کد شما رو گذاشتم ارور زیر رو میده

Parsing code. 0.13

Compiling code. Error

Error compiling program.

Error description: Unknown member: text

Occurred on line: 202

StartActivity(sh.ShareText(Stxt.Text,"Share with :"))

Word: text