سوال درمورد اشتراک گذاری

[namo_57 8]

سلام دوستان چطوری میتونم یک جمله رو شر کنم وجمله درعین شر شدن به صدها جمله تکرار بشه

مثال من فقط (سلام)یک دونه مینویسم ولی موقع شر کردن به صد تا یا دویست تا برسه ممنون میشم

[namo_57 8]

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

 

متشکرم

23.rar

[محمدرضا معتمدی 612]

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

Dim matn As String
For i = 0 To 100
matn = matn & " " & Edittext1.text
Next
Dim share As AriaLib 
StartActivity(mr.ShareText(Edittext1.text , " اشتراک با : " ))

بازم اگه ارور داد اون dim share as arialib رو توی Globals بنویس

 

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

 

arialib

 

http://answercenter.ir/topic/2714-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-arialib-%D8%A7%D8%B4%D8%AA%D8%B1%D8%A7%DA%A9-%DA%AF%D8%B0%D8%A7%D8%B1%DB%8C/

[namo_57 8]

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

Dim matn As String
For i = 0 To 100
matn = matn & " " & Edittext1.text
Next
Dim share As AriaLib 
StartActivity(mr.ShareText(Edittext1.text , " اشتراک با : " ))

بازم اگه ارور داد اون dim share as arialib رو توی Globals بنویس

 

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

 

arialib

 

http://answercenter.ir/topic/2714-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-arialib-%D8%A7%D8%B4%D8%AA%D8%B1%D8%A7%DA%A9-%DA%AF%D8%B0%D8%A7%D8%B1%DB%8C/

 

متشکرم

 

ولی باز دراین خط ارور میده

StartActivity(mr.ShareText(EditText1.text , " اشتراک با : " ))

اونmr هم قرمز هست

[محمدرضا معتمدی 612]

متشکرم

 

ولی باز دراین خط ارور میده

StartActivity(mr.ShareText(EditText1.text , " اشتراک با : " ))

اونmr هم قرمز هست

 

اره اره قاطی نوشتم

 

اینو بزار جای این خط که ارور داده

StartActivity(share.ShareText(EditText1.text , " اشتراک با : " ))

[namo_57 8]

 

اره اره قاطی نوشتم

 

اینو بزار جای این خط که ارور داده

StartActivity(share.ShareText(EditText1.text , " اشتراک با : " ))

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

من میخوام فرضا یک سلام وکه در ادیت تکست مینویسم وبعد به اشتراک میذارم با یه نفر اون یک سلام به تعداد دلخواه از یک تا مثلا 100 تا یا 200تا تبدیل بشه ویا زیا دتر وکمتر

 

باز متشکرم ازتون

[shahab.es 5,429]

برادرم، شما کدی که من بهتون دادم رو هم استفاده کردید؟

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

[namo_57 8]

برادرم، شما کدی که من بهتون دادم رو هم استفاده کردید؟

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

نه متاسفانه تنونستم استفاده کنم اخه ارور میداد حتی سورس وهم در چند پست بالاتر پیوست کردم

 

 

..

[امین شاهدی 5,773]

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

Sub Share

Dim edit As EditText
Dim txt As String

For i=1 To 100
txt=txt&"  "&edit.Text
Next
Dim aria As AriaLib
StartActivity( aria.ShareText(txt,"Share with") )

End Sub

[shahab.es 5,429]

برادرم

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

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

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

یا تیک نمیزنید...

[namo_57 8]

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

[امین شاهدی 5,773]

http://answercenter.ir/topic/2714-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-arialib-%D8%A7%D8%B4%D8%AA%D8%B1%D8%A7%DA%A9-%DA%AF%D8%B0%D8%A7%D8%B1%DB%8C/

[shahab.es 5,429]

این rakroidsend

اینم اریا لیب عزیز AriaLib

[namo_57 8]

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

[shahab.es 5,429]

برادرم خوب معلومه تو 5000 تا هنگ میکنه

فک کنم اگه منتظر بمونی و پردازش تموم شه، هنگش درست شه

اما ایا سرویس هایی مثل وایبر یا لاین، 5 هزار کلمه رو ، توی یه پیام میفرستن؟

غیر منطقی و بی استفاده به نظر میرسه

[shahab.es 5,429]

سلام برادرم
شما میخوای سلام رو به 100 نفر بفرستی ، یا 100 تا سلام رو بفرستی به یه نفر؟
از حلقه میتونی استفاده کنی
این رو در رویداد کلیک کمه بنویس
از کتابخونه ralroidsend استفاده کردم

for i = 0 to 100 
label1.text = label1.text & " salam"
next
dim s as send
s.initialize
s.ersalmatn(label1.text,"other")

اینجا اومدم متن لیبل رو ، 100 بار تکرار کردم و ریختم توی لیبل

در اخر هم متن نهایی(که 100 تا سلام هست) رو اشتراک میدم...

[namo_57 8]

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

[shahab.es 5,429]

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

اینم شدنیه

اینو یه تست بکن 

dim matn as strin
for i = 0 to 100
matn = matn & " " & edittext1.text
next
dim s as send
s.initialize
s.ersalmatn(matn,"other")

[namo_57 8]

 

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

اینم شدنیه

اینو یه تست بکن 

dim matn as strin
for i = 0 to 100
matn = matn & " " & edittext1.text
next
dim s as send
s.initialize
s.ersalmatn(matn,"other")

 

سلام به خط پایین گیر میده

s.ersalmatn(matn,"other")