Welcome to بیسیک فور ایکس

Register now to gain access to all of our features. Once registered and logged in, you will be able to contribute to this site by submitting your own content or replying to existing content. You'll be able to customize your profile, receive reputation points as a reward for submitting content, while also communicating with other members via your own private inbox, plus much more! This message will be removed once you have signed in.

  • 0
taha1371

نمایش ندادن بعد از نظر

سوال

سلام کد زیرو کذاشتم که اگه  کاربر امد خارج بشه نظر بده   حال میخوام اگر نظر داد دفع بعد نشون داده نشه 





Dim r As Int

r = Msgbox2("آیا مایلید قبل از خروج به برنامه امتیاز دهید ؟ ","خروج","خارج می شوم", "امتیاز می دهم","خارج نمی شوم",LoadBitmap(File.DirAssets,"123.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.ahd2.taha"
market.Initialize(market.ACTION_EDIT,uri)
StartActivity(market)
Catch
ToastMessageShow("لطفا ابتدا برنامه بازار را نصب کنید", False)
End Try

پسند شده توسط mostafa-gh

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


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

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

  • 0

به هیچ عنوان نمیتونی بفهمی که کاربر نظر داده یا نه.

اگر بخای اینکه طرف روی دکمه نظر لمس کرد(حالا احتمال داره که نظر نده) و بار بعدی نشون نده میتونم راهنماییت کنم

پسند شده توسط Sina

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


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

  • 0

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

Dim nazar as int
If nazar =0  then
Dim r As Int 		

r = Msgbox2("آیا مایلید قبل از خروج به برنامه امتیاز دهید ؟  ","خروج","خارج می شوم", "امتیاز می دهم","خارج نمی شوم",LoadBitmap(File.DirAssets,"123.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.ahd2.taha"			
market.Initialize(market.ACTION_EDIT,uri)
nazar=1
StartActivity(market)
Catch
ToastMessageShow("لطفا ابتدا برنامه بازار را نصب کنید", False) 			
End Try
Else
Toastmassage)"قبلا نظر داده آید ,true(
end if

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


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

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

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

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

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


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

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

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


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