سلام من در گوشی نرم افزار رو که باز می کنم وقتی روی باتن میزنم ایراد می گیره اینم کد هام
Sub Globals
Dim i As Int
Private EditText1 As EditText
Private EditText2 As EditText
Private EditText3 As EditText
Private Label1 As Label
Private button1 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("L2")
Label1.Text=i
End Sub
Sub Activity_KeyPress (KeyCode As Int) As Boolean
If KeyCode = KeyCodes.KEYCODE_BACK Then
Dim i As Int
i = Msgbox2 ("میخواهید از برنامه خارج شوید "," خارج شدن","بله ","خیر","",Null)
If i = DialogResponse.POSITIVE Then
ExitApplication
Else If i = DialogResponse.CANCEL Then
Return True
Else If i = DialogResponse.NEGATIVE Then
End If
End If
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub button1_Click
Label1.text = (EditText1 + EditText2) * EditText3 * 0.07
End Sub
سوال
mostafa.kasiri 115
سلام
من در گوشی نرم افزار رو که باز می کنم وقتی روی باتن میزنم ایراد می گیره اینم کد هام
Sub Globals Dim i As Int Private EditText1 As EditText Private EditText2 As EditText Private EditText3 As EditText Private Label1 As Label Private button1 As Button End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("L2") Label1.Text=i End Sub Sub Activity_KeyPress (KeyCode As Int) As Boolean If KeyCode = KeyCodes.KEYCODE_BACK Then Dim i As Int i = Msgbox2 ("میخواهید از برنامه خارج شوید "," خارج شدن","بله ","خیر","",Null) If i = DialogResponse.POSITIVE Then ExitApplication Else If i = DialogResponse.CANCEL Then Return True Else If i = DialogResponse.NEGATIVE Then End If End If End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub button1_Click Label1.text = (EditText1 + EditText2) * EditText3 * 0.07 End Subلینک ارسال
به اشتراک گذاری در سایت های دیگر
6 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.