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

[Nemesis 1,846]

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

[mozafarkhan 6]

ببینید داداشای گلم

من یه صفحه رو تو دیزاینر طراحی کردم که داخل این صفحه دو تا لیبله

لیبلی که یه نوار باریک بالای صفحه

لیبلی که پایین صفحه هست

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

'All variants script

AutoScaleAll

ptxt.SetLeftAndRight(0,100%x)

ptxt.SetTopAndBottom(0,100%y)

Stxt.SetLeftAndRight(0,100%x)

Stxt.SetTopAndBottom(10%y,100%y)

fav.SetTopAndBottom(0%y,10%y)

fav.SetLeftAndRight(79%x,99%x)

Bsting.SetTopAndBottom(0%y,10%y)

Bsting.SetLeftAndRight(55%x,75%x)

bshare.SetTopAndBottom(0%y,10%y)

bshare.SetLeftAndRight(1%x,21%x)

حالا اومدم تو Sub Globals

Private bshare As Button

تعریف کردم

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

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

ممنون

[Nemesis 1,846]

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

[mozafarkhan 6]

ببینید داداشای گلم

من یه صفحه رو تو دیزاینر طراحی کردم که داخل این صفحه دو تا لیبله

لیبلی که یه نوار باریک بالای صفحه

لیبلی که پایین صفحه هست

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

'All variants script

AutoScaleAll

ptxt.SetLeftAndRight(0,100%x)

ptxt.SetTopAndBottom(0,100%y)

Stxt.SetLeftAndRight(0,100%x)

Stxt.SetTopAndBottom(10%y,100%y)

fav.SetTopAndBottom(0%y,10%y)

fav.SetLeftAndRight(79%x,99%x)

Bsting.SetTopAndBottom(0%y,10%y)

Bsting.SetLeftAndRight(55%x,75%x)

bshare.SetTopAndBottom(0%y,10%y)

bshare.SetLeftAndRight(1%x,21%x)

حالا اومدم تو Sub Globals

Private bshare As Button

تعریف کردم

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

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

ممنون

[Nemesis 1,846]

برادرم به این متن توجه کن

 

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

 

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

اگه از مولتی پنل استفاده میکنه باید از tag  و sender استفاده کنید

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

 

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

[mozafarkhan 6]

اقای فرزاد موسوی

[mozafarkhan 6]

اصلا اشتراک متن براش نزاشته

خودم تو دیزاینر گذاشتم

اکتیویتی های زیر رو داره

main

acfehrest

acsearch

tanzimat

txtv

alaqe

com

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

شما استادی من مبتدی هستم

[Alireza.Ghafari 2,104]

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

مورد توجه کلیه خریداران محترم :
انجمن هیچگونه مسئولیتی در قبال پاسخگویی قطعی به مشکلات مربوط به تغییر دادن سورس که ناشی از عدم آگاهی به برنامه نویسی
باشد را ندارد اما در صورتی که خود سورس مشکلی را داشته باشد انجمن به صورت کامل پشتیبانی این محصول را عهده دار خواهد بود

[mozafarkhan 6]

سورس امام خامنه ای ورژن جدید هست داداش دقت کن

[Nemesis 1,846]

اقای فرزاد موسوی

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

[mozafarkhan 6]

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

واقعا که

 

کسی نبود کار ما رو بسازه ؟؟؟

[Nemesis 1,846]

30 پست در این تایپیک ارسال شد شما بعد میفرمایید

 

 

واقعا که

 

کسی نبود کار ما رو بسازه ؟؟؟

 

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

 

در پناه حق

[mozafarkhan 6]

نمی خواد روحیه ضعیف کنید

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

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

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

نه اینکه سورس بخواد

مرسی

[Alireza.Ghafari 2,104]

نمی خواد روحیه ضعیف کنید

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

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

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

نه اینکه سورس بخواد

مرسی

الان ایشون کامپایلر هستن ؟ نزدیک 1000 خط کد رو از کجا تو ذهنشون تجسم کنن ؟ میتونید سورس رو ارسال کنید و جواب هم بگیرید... یا علی ... 

[sganji 678]

نمی خواد روحیه ضعیف کنید

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

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

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

نه اینکه سورس بخواد

مرسی

 

دوست عزیز لطفا ادب رو توی انجمن رعایت کنید و حد و حدود خودتون رو بدونید.

بارها گفتم کسی تو این انجمن نه طلبکاره نه بدهکار!

[sganji 678]

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

[ali2016 54]

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

 

 

منم اینو نوشتم

 

Sub Button1_Click

     Dim s As send

s.Initialize

s.ersal(EditText1.text,"other")

End Sub

 

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

 

 

 

B4A version: 5.02

Parsing code.    (0.01s)

Compiling code.    Error

Error compiling program.

Error description: Missing parameter.

Occurred on line: 40

s.ersal(EditText1.text,"other")

Word: )

[ali2016 54]

مرسی آقا این کد کار کرد

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

[shahab.es 5,429]

s.ersalmatn رو باید استفاده کنی

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

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