عدم کار کرد مناسب سورس

[1messi 11]

این سورس باید باعث بشه که وقتی کاربر روی مثلا خروج کلیک کرد ، خارج بشه.

ولی چنین اتفاقی نمی افته.

هیچی فایل هم که نمیشه پیوست کرد.

#Region  Project Attributes 
#ApplicationLabel: once
#VersionCode: 1
#VersionName: 1
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: true
#End Region

#Region  Activity Attributes 
#FullScreen: true
#IncludeTitle: True
#End Region

Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.

End Sub

Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.

Dim listview1 As ListView
Dim Label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("list")
listview1.AddSingleline2("خوش آمدید",1)
listview1.AddSingleline2("سفید رنگ",2)
listview1.AddSingleline2("زرد رنگ",3)
listview1.AddSingleline2("قرمز رنگ",4)
listview1.AddSingleline2("خروج",5)
listview1.singlelinelayout.Label.Gravity=Gravity.center
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub listview1_ltemClick(Position As Int ,value As Object)
If value=1 Then
    Label1.Text="خوش آمدید"
End If

If value=2 Then
    Label1.Text="سفید رنگ"

Label1.TextColor=Colors.White

End If

If value=3 Then
    Label1.Text="زرد رنگ"

Label1.TextColor=Colors.yellow

End If
If value=4 Then
    Label1.Text="قرمز رنگ"
Label1.TextColor=Colors.red
End If

If value=5 Then
ExitApplication
End If
End Sub

[1messi 11]

کد های بالا مشکل دارند ؟

کسی جواب گو نیست.

[1messi 11]

کسی پاسخ گو نیست ؟

[kurd98 50]

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

Sub exit1_Click
Dim i As Int
i = Msgbox2("آیا مایل به خروج هستید؟","خروج","آری","خیر","",Null)
If i = DialogResponse.POSITIVE Then
 ExitApplication
End If
End Sub

[Nemesis 1,846]

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

[1messi 11]

اینم فایل آپ شده

http://uploadax.ir/viewer.php?file=oxqxcwe61j1i5qko1z8o.txt

http://uploadax.ir/download.php?file=oxqxcwe61j1i5qko1z8o.txt

[1messi 11]

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

کدشون مشکل داره ؟

[Nemesis 1,846]

برادر کافیه توی تگ کد بذاری نیاز به آپلود نیست

این رو امتحان کن

Sub listview1_ltemClick(Position As Int ,value As Object)
Select Case Position

    Case 1
        Label1.Text="خوش آمدید"
    Case 2
        Label1.Text="سفید رنگ"
         Label1.TextColor=Colors.White
    Case 3
         Label1.Text="زرد رنگ"
          Label1.TextColor=Colors.yellow
    Case 4
        Label1.Text="قرمز رنگ"
        Label1.TextColor=Colors.red
    Case 5
        ExitApplication
End Select
End Sub

[1messi 11]

ویرایش شد