رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.
جستجو در
  • تنظیمات بیشتر ...
نمایش نتایجی که شامل ...
جستجو در ...

AnswerCenter

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

  • مرجع پاسخگویی
  • تولید آموزش
  • سفارش پروژه

درخواست سفارش پروژه

اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

 برای استفاده از تمامی امکانات سایت لطفا در انجمن عضو شوید


سوال

ArmaN17    0

کاربر عادی

سلام.دوستان چیکار کنم که فقط وقتی رو دکمه کلیک شد ساب اجرا بشه

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


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

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

پست های پیشنهاد شده

  • 0
msd313    43

کاربر عادی

منظورت رو دقیق بگو؟
خود رویداد کلیک دکمه یه سابه
میخوای داخل اون چه سابی قرار بگیره

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


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

کاربر عادی

در 6 دقیقه قبل، msd313 گفته است :

منظورت رو دقیق بگو؟
خود رویداد کلیک دکمه یه سابه
میخوای داخل اون چه سابی قرار بگیره

به فرض وقتی دکمه کلیک شد sub jobdone اجرا بشه

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


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

کاربر عادی

اگه job باشه که باید با url اجرابشه و غیر ممکنه
ولی اگه هر تابعی باشه مثل زیر انجام میشه

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

Sub Activity_KeyPress (KeyCode As Int) As Boolean
	If KeyCode=KeyCodes.KEYCODE_BACK Then
		btn1_bak_Click
	End If
End Sub

 

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


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

کاربر عادی

در ۱ ساعت قبل، msd313 گفته است :

اگه job باشه که باید با url اجرابشه و غیر ممکنه
ولی اگه هر تابعی باشه مثل زیر انجام میشه

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


Sub Activity_KeyPress (KeyCode As Int) As Boolean
	If KeyCode=KeyCodes.KEYCODE_BACK Then
		btn1_bak_Click
	End If
End Sub

 

داش میبخشید من اینو نفهمیدم میشه برای Sub cc_Result (Success As Boolean, Dir As String, FileName As String) بنویسی که وقتی کلیک شد این اجرا بشه

ممنون میشم

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


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

کاربر عادی

در 13 ساعت قبل، ArmaN17 گفته است :

Sub cc_Result (Success As Boolean, Dir As String, FileName As String)

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

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


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

کاربر عادی

در در 1397/10/14, 06:58:02، msd313 گفته است :

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

یه ارور میده میگه duplicate sub

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


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

کاربر عادی

در 3 ساعت قبل، msd313 گفته است :

میشه کد ها یا سورس رو بذاری یه نگاه بندازیم

راستش خیلی روش وقت گزاشتم نمیتونم بزارمش

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


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

کاربر عادی

در در 1397/10/13, 17:01:01، ArmaN17 گفته است :

Sub cc_Result (Success As Boolean, Dir As String, FileName As String)

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

 

ولی توی اینجا من چیکار کردم؟:

کد دکمه برگضت در برنامه

Sub btn1_bak_Click
	Activity.Finish
	StartActivity(home)
End Sub

کد دکمه فیزیکی بک خود گوشی

Sub Activity_KeyPress (KeyCode As Int) As Boolean
	If KeyCode=KeyCodes.KEYCODE_BACK Then
		btn1_bak_Click
	End If
End Sub

 

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


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

کاربر عادی

در 1 دقیقه قبل، msd313 گفته است :

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

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

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


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

کاربر عادی

خُب من با job مثال میزنم
 

Dim ht1 As HttpJob
ht1.Initialize(Me,"ht1")

ht1.PostFile("http//....",File.DirInternal,"aaa.jpg")

Sub jobdone(job As HttpJob)
	If job.Success Then
		ToastMessageShow("عکس ارسال شد",False)
	End If
End Sub

این بصورت معمولی با اجرای اکتیویتی فایل رو ارسال میکنه

 

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

 

 

 

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


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

کاربر عادی

در در 1397/10/19, 16:10:47، msd313 گفته است :

خُب من با job مثال میزنم
 


Dim ht1 As HttpJob
ht1.Initialize(Me,"ht1")

ht1.PostFile("http//....",File.DirInternal,"aaa.jpg")

Sub jobdone(job As HttpJob)
	If job.Success Then
		ToastMessageShow("عکس ارسال شد",False)
	End If
End Sub

این بصورت معمولی با اجرای اکتیویتی فایل رو ارسال میکنه

 

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

 

 

 

نمیشه دادا

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


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

کاربر عادی

در 4 دقیقه قبل، ArmaN17 گفته است :

نمیشه دادا

فهمیدم چیکار کنم الان

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


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

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

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

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

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

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

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

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

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

×