مشکل خروج از برنامه

[naser sahami 90]

سلام دوستان بنده کد خروج را درست نوشتم ولی نمیدونم چرا ارور زیر را میده منظورم دکمه خروج است بخش(end if و end sub)

B4A version 4.30
Parsing code.                           Error
Error parsing program.
Error description: Missing Keyword: end if
Occurred on line: 52
End Sub

Sub Globals	
Private ListView1 As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	
Activity.LoadLayout("Layout1")
ListView1.AddTwoLines("فهرست ","")
	ListView1.AddTwoLines("علاقمندی","")
	ListView1.AddTwoLines("جستجو","")
	ListView1.AddTwoLines("تنظیمات","")
	ListView1.AddTwoLines("خروج","")
	ListView1.TwoLinesLayout.ItemHeight=25dip
	ListView1.TwoLinesLayout.Label.TextSize=15
	ListView1.TwoLinesLayout.Label.TextColor=Colors.blue
	ListView1.TwoLinesLayout.Label.Gravity=Gravity.CENTER
	
End Sub
Sub listview1_ItemClick (Position As Int, Value As Object)
	
	If Position= 0 Then
	StartActivity("Fehrest")
	End If
	
	If Position= 1 Then
	StartActivity("Fav")
	End If
	
	If Position= 2 Then
	StartActivity("serch11")
	End If
	
	If Position=3 Then
	StartActivity("Tanzim")
	End If
	
   If Position=4 Then
	Dim nase As Int
	nase=Msgbox2("ایا قصد خروج دارید؟","","بلی","","خیر",Null)
	If nase=DialogResponse.POSITIVE Then
	ExitApplication
	End If
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

[-A.T.M- 58]

دوست عزیز یک شرط if رو نیستی دیگه :|

یکم کدها رو نگاه کن میفهمی :|

   If Position=4 Then
	Dim nase As Int
	nase=Msgbox2("ایا قصد خروج دارید؟","","بلی","","خیر",Null)
	If nase=DialogResponse.POSITIVE Then
	ExitApplication
	End If

 توی تیکه کد بالایی یک End If کم نوشتی.

 

درضمن چرا اینقدر If نوشتی. با یک شرط if هم میشه اینکارو کرد. به این صورت:

If SomThing = True Then
........
Else If SomThing1 = True Then
.........
Else If SomeThing2= True Then
.......
End If

[-A.T.M- 58]

If Position=4 Then
    Dim nase As Int     
    nase=Msgbox2("ایا قصد خروج دارید؟","","بلی","","خیر",Null)     
    If nase=DialogResponse.POSITIVE Then             
    ExitApplication                  
                                          End If             
     End If

همیشه کد هاتو هم با نظم بنویس که بفهمی چیکار میکنی. این تیکه کد مشکلتو حل میکنه جایگزین آخرین دستور If کن.

[naser sahami 90]

من متوجه نشدم توکه کدت عین منه  هم زیر end subخط قرمزه  مال تو راهم امتحان کردم جواب نداد

[-A.T.M- 58]

کدوما منظورت هست؟

 

Else If ها یا خود همون تیک کد فقط؟

اگه Else if  هاس بله شبیه هست ولی هنگام اجرا شدن برامه یکی یکی تست نمیکنه درست دستشو میذاره روی همون تیکه کدی که مخصوص کارتو هست.

[naser sahami 90]

حل شد