اجرای ساب

[ArmaN17 0]

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

[ArmaN17 0]

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

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

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

[msd313 62]

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

[ArmaN17 0]

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

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

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

[msd313 62]

در در 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

 

[ArmaN17 0]

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

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

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

[msd313 62]

خُب من با 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

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

 

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

 

 

 

[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

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

 

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

 

 

 

نمیشه دادا

[ArmaN17 0]

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

نمیشه دادا

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

[msd313 62]

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

[ArmaN17 0]

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

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

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

[msd313 62]

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

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

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

 

[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) بنویسی که وقتی کلیک شد این اجرا بشه

ممنون میشم

[msd313 62]

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

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

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