• اطلاعیه ها

    • H@mid.RS

      جذب نیرو   پنجشنبه, 10 فروردین 1396

      درود به دوستان عزیز به چند نفر مدیر برای بخش های php و گرافیک نیازمندیم درصورت تمایل درخواست خود را در پیام خصوصی بفرستید  
    • H@mid.RS

      تغییر نام کاربری   دوشنبه, 28 فروردین 1396

      درود دوستانی که نام کاربری انها با ایمل شان یکی بود تغییر کرد مثلا نام کاربری sss@tmail.com به sss تغییر کرد دوستانی که مشکل ورود دارند @ به بعد را پاک کنند
    • H@mid.RS

      کسب درآمد   پنجشنبه, 31 فروردین 1396

      دوستانی که میخواهند با انجمن خودشون همکاری کنند و از محیط انجمن درآمد کسب کنند به بنده پیام خصوصی بفرستند
    • H@mid.RS

      راه اندازی وبلاگ برای انجمن   دوشنبه, 18 اردیبهشت 1396

      درود به همه دوستان عزیز از این پس کاربران ویژه  - همکاران - و مدیران میتوانند در انجمن برای خود وبلاگ بسازند
  • 0
ali dorodiyan

ایجاد یک باتن برا معرفی برنامه

سوال

سلام به بچه های گل بیسیک فور ایکس

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

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

 

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

 

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

 

مثل این برنامه های عضو گیر که میگه با معرفی برنامه سکه بگیرین که با زدن باتن لینک و متنی که نویسنده به برنامه داده و از همه مهمتر که یه شماره تو لیبل داریم مثلا تو لیبل 1 اون هم به نوشته ها اضافه کنه و بفرسته

 

ممنون

به اشتراک گذاری این ارسال


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

5 پاسخ به این سوال تا کنون داده شده است

  • 0

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

 

متن یه لیبل رو با & میتونی به متنت اضاف کنی مثل زیر

StartActivity(stu.Share(Label1.Text&CRLF&CRLF&"http://cafebazaar.ir/app/com.instagrad.eris/?l=fa","اشتراک گذاری با:"))
پسند شده توسط ali dorodiyan و H@mid.RS

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

سلام به بچه های گل بیسیک فور ایکس

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

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

 

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

 

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

 

مثل این برنامه های عضو گیر که میگه با معرفی برنامه سکه بگیرین که با زدن باتن لینک و متنی که نویسنده به برنامه داده و از همه مهمتر که یه شماره تو لیبل داریم مثلا تو لیبل 1 اون هم به نوشته ها اضافه کنه و بفرسته

 

ممنون

 

بفرما داداش 

Sub share_btn_Click
	Dim stu As StudentLibrary
	StartActivity(stu.Share("صفحه ی اینستاگرام زیبا با اینستاگراد"&CRLF&CRLF&"http://cafebazaar.ir/app/com.instagrad.eris/?l=fa","اشتراک گذاری با:"))
End Sub

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

 

http://s8.picofile.com/file/8268416900/StudentLibrary.zip.html

پسند شده توسط ali dorodiyan و H@mid.RS

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

بفرما داداش 

Sub share_btn_Click
	Dim stu As StudentLibrary
	StartActivity(stu.Share("صفحه ی اینستاگرام زیبا با اینستاگراد"&CRLF&CRLF&"http://cafebazaar.ir/app/com.instagrad.eris/?l=fa","اشتراک گذاری با:"))
End Sub

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

 

http://s8.picofile.com/file/8268416900/StudentLibrary.zip.html

 

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

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

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

 

من میخوام هم متنه باشه گذاشتین هم لینک هم متن لیبل

 

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

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
Activity.LoadLayout("SASA")
	Private Label1 As Label
	Private Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("SASA")
End Sub


Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub Button1_Click
	Dim stu As StudentLibrary
	StartActivity(stu.Share(Label1.Text&CRLF&CRLF&"صفحه ی اینستاگرام زیبا با اینستاگراد"&CRLF&CRLF&"http://cafebazaar.ir/app/com.instagrad.eris/?l=fa","اشتراک گذاری با:"))

End Sub

به اشتراک گذاری این ارسال


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

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !


ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید


ورود به حساب کاربری