مشکل در دکمه بک

[basicofdata 99]

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

Sub Activity_KeyPress (KeyCode As Int) As Boolean
 Dim r As Int 
 r = Msgbox2("ایا برای خروج از برنامه اطمینان دارید؟ ","خروج","بله", "امتیاز دادن به برنامه","خیر",LoadBitmap(File.DirAssets,"2 [www.imagesplitter.net].png")) 
 If ( r = DialogResponse.POSITIVE) Then 
 ExitApplication 
 End If
 
 If ( r = DialogResponse.CANCEL) Then   
 Try 
        Dim market As Intent, uri As String
uri="bazaar://details?id=ir.basicofdata.clashlearn" 
market.Initialize(market.ACTION_EDIT,uri)
StartActivity(market)
Catch
ToastMessageShow("لطفا ابتدا برنامه بازار را نصب کنید", False) 
End Try
End If
end sub

 ممنون میشم کمک کنید

[basicofdata 99]

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

کد را خودم درست کردم و در اخر گزاشتم

در ضمن دستور if با پرانتز ها هم کار میکرد و فقط مشکل من جا بجا بودن متن و جواب ها و بله و خیر بود به همین دلیل  من وقتی که دکمه خیر را کلیک میکردم به صفحه رای دادن میرفت و اگر بله را میزدم در برنامه می ماند

من تواستم با تغیراتی که خودم در سورس انجام دادم سورس اصلی را بدست بیاروم

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

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

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

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

Sub Activity_KeyPress (KeyCode As Int) As Boolean
 Dim r As Int 
 r = Msgbox2("ایا برای خروج از برنامه اطمینان دارید؟","خروج","بله","خیر","امتیاز دادن به برنامه",LoadBitmap(File.DirAssets,"2 [www.imagesplitter.net].png")) 
 
 If  r = DialogResponse.POSITIVE Then 
 ExitApplication 
 
 
 else If  r = DialogResponse.NEGATIVE Then   
 Try 
        Dim market As Intent, uri As String
uri="bazaar://details?id=ir.basicofdata.clashlearn" 
market.Initialize(market.ACTION_EDIT,uri)
StartActivity(market)
Catch
ToastMessageShow("لطفا ابتدا برنامه بازار را نصب کنید", False) 
End Try


	End If
	
End Sub
'basicofdata

[مهدی ایزدی 9,203]

درود

قبلا سی شارپ کار کردید؟ 

دستور شرطی توی بیسیک پرانتز نداره !

به جای چند تا دستور if هم از یک دونه if و مابقی else if استفاده کنید

if shart else
kar
else if shart else
kar
end if

موضوع بعد اینکه وقتی مشکل دارید عکسی از خطا قرار بدید حتما بگید مشکل کجاست و چه خطایی میده !

این مشکل ساده هست...

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

[razavioo 310]

کد خودتونو روی یک گوشی که بازار روی اون نصب شده امتحان کردید ؟