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

[basicofdata 99]

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

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

Sub listv_ItemClick (Position As Int, Value As Object)
	If Pardakht = True Then
		Select Value
			Case "Remove_Ads"
			Msgbox("با تشکر از خرید شما حذف تبلغات یک بار انجام شده است","حذف تبلیغات")
			Case "1000"
						payment.RequestPayment("1000","inapp","1000")
			Case "5000"
						payment.RequestPayment("5000","inapp","5000")				
			Case "6000"
						payment.RequestPayment("6000","inapp","6000")	
						
			If File.Exists(File.DirInternal,"ads.txt") Or File.Exists(File.DirDefaultExternal,"ads.txt") = True Then	
					
				Case "2000"	
							payment.RequestPayment("200","inapp","2000")			
				Case "3000"
							payment.RequestPayment("300","inapp","3000")				
				Case "4000"	
							payment.RequestPayment("400","inapp","4000")	
			Else
				
				Case "2000"	
							payment.RequestPayment("2000","inapp","2000")								
				Case "3000"
							payment.RequestPayment("3000","inapp","3000")	'در این خط ارور میده
				Case "4000"
							payment.RequestPayment("4000","inapp","4000")			
			End If				

		End Select
	Else
		Msgbox("خطایی رخ داد لطفا بعدا تلاش کنید.","خطا")
		Return
	End If
End Sub

 

ایا جای ایف اونجا هست یا نه

ممنون راهنمایی کنید

[basicofdata 99]

بله جاش درست نیست

select case هم درست ننوشتی فک کنم

بله ممنون از شما هر چند بدون راهنمایی کامل ولی بازم یک پیام ارسال کردید 

کد را خودم دستکاری کردم و اینو نوشتم

Sub listv_ItemClick (Position As Int, Value As Object)
	If Pardakht = True Then
		
		If File.Exists(File.DirInternal,"ads.txt") Or File.Exists(File.DirDefaultExternal,"ads.txt") = True Then	
			Select Value
			Case "Remove_Ads"
								Msgbox("با تشکر از خرید شما حذف تبلغات یک بار انجام شده است","حذف تبلیغات")

			Case "5000"
							payment.RequestPayment("500","inapp","5000")				
			Case "6000"
							payment.RequestPayment("600","inapp","6000")	
						

					
			Case "2000"	
							payment.RequestPayment("200","inapp","2000")			
			Case "3000"
							payment.RequestPayment("300","inapp","3000")				
			Case "4000"	
							payment.RequestPayment("400","inapp","4000")	
			End Select
		Else
			Select Value
				
			Case "1000"
							payment.RequestPayment("1000","inapp","1000")
			Case "2000"	
							payment.RequestPayment("2000","inapp","2000")								
			Case "3000"
							payment.RequestPayment("3000","inapp","3000")	
			Case "4000"
							payment.RequestPayment("4000","inapp","4000")			
			Case "5000"
							payment.RequestPayment("5000","inapp","5000")				
			Case "6000"
							payment.RequestPayment("6000","inapp","6000")	
			End Select
		End If
	Else
		Msgbox("خطایی رخ داد لطفا بعدا تلاش کنید.","خطا")
		Return
	End If
End Sub

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

ممنون

[pourya-man 33]

بله جاش درست نیست

select case هم درست ننوشتی فک کنم