نظر دادن

[taha1371 84]

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

 

[esmaeil76 135]

Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
    If KeyCode = KeyCodes.KEYCODE_BACK Then
    Dim r As Int         
    r = Msgbox2("آیا مایلید قبل از خروج به برنامه امتیاز دهید ؟  ","خروج","خارج می شوم", "امتیاز می دهم","خارج نمی شوم",LoadBitmap(File.DirAssets,"1.png"))        'Tarif MsgBox
    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=پکیج نیم برنامه"            
market.Initialize(market.ACTION_EDIT,uri)
StartActivity(market)
Catch
ToastMessageShow("لطفا ابتدا برنامه بازار را نصب کنید", False)             
End Try
End If
End If
Return True
End Sub

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

[مهدی کفشگر 548]

Dim a As Int
Dim kafe As Intent
	a = Msgbox2 ("به همین زودی میخوای بری؟نظر دادی؟","خروج","بله میرم","بریم نظر بدم","نه هستم",Null)
	If a = DialogResponse.POSITIVE Then
	ExitApplication
	End If
	If a = DialogResponse.CANCEL Then
	kafe.Initialize(kafe.Action_edit,"bazaar://details?id=PackageName")
	StartActivity(kafe)
	End If

کتابخونه Phone رو هم تیک بزنید

پکیج نیم برنامتون رو هم به جای عبارت PackageName قرار بدید.

[taha1371 84]

Dim a As Int
Dim kafe As Intent
	a = Msgbox2 ("به همین زودی میخوای بری؟نظر دادی؟","خروج","بله میرم","بریم نظر بدم","نه هستم",Null)
	If a = DialogResponse.POSITIVE Then
	ExitApplication
	End If
	If a = DialogResponse.CANCEL Then
	kafe.Initialize(kafe.Action_edit,"bazaar://details?id=PackageName")
	StartActivity(kafe)
	End If

کتابخونه Phone رو هم تیک بزنید

پکیج نیم برنامتون رو هم به جای عبارت PackageName قرار بدید.

 میشه  یه سورس ازش بزاری

[taha1371 84]

من که چیزی نفهمیدم

[esmaeil76 135]

من که چیزی نفهمیدم

سورس رو کپی کن تو بیسیک تا کاملا دستت بیاد قضیه چیه اینجا نتونستم سورس رو خوب وارد کنم. شرمنده

[taha1371 84]

مشه خوده فایلو بزاری

[esmaeil76 135]

مشه خوده فایلو بزاری

دیگه فایل نمی خواهد اون کد رو تو اکتیویتی main کپی کن

در ضمن یه عکس به پوشه فایل کپی کن با نام 1 و فرمتpng

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

[shahab.es 5,429]

سلام،

این تاپیک، داره میره به سمت اسپم .....

 

 

 

این لینک کتابخونه،

http://answercenter.ir/topic/5764-ariamarkets-استفاده-از-اینتنت-های-مارکت-ها/

 

 

اینم نحوه استفاده از کتابخونه

	Dim am As AriaMarkets
	am.Cafebazaar_SafheNazar("yourpackagename")

سوالی داشتید، لطفا جستجو کنید، اگر نتیجه ای پیدا نکردید، یه تاپیک جدید بزنید

برای سوالاتی هم که در مورد کتابخونه اریا لیب و کلاس ایا مارکت دارید، به تاپیک مربوطه برید و سوالاتتون رو مطرح کنید :gol: