Invalid Double

[SoRoUsH 300]

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

ببینید این ساب کلیلک دکمه من :

Sub Save_Click
	o = EditText1.Text
	StartService(sss)
  	ToastMessageShow("ذخیره شد!",False)
End Sub

o متغیر از نوع int هست.حالا من اون خط اول که o=edittext1.text هست رو بر میدارم ، ارور برطرف میشه :| واقعا نمیدونم مشکلش چیه توی یه سورس دیگه تست کردم مشکل نداشت...حتی اینیشیلایز هم کردم ادیت تکست رو... تنها کدایی که براش نوشتم بجز داخل ساب کلیلک دکمه هم ایناست:

 EditText1.Initialize("")
	EditText1.SetBackgroundImage(LoadBitmap(File.DirAssets,"et.png"))

اینم عکس از ارور:

[مجید آرتا 5,875]

از این کد استفاده کنید :

If IsNumber(EditText1.Text) Then
 o = EditText1.Text
End If

[SoRoUsH 300]

آقا من خودم تست میکنم عدد وارد میکنما... حالا الان اینم تست میکنم نتیجشو بهتون میگم...

[SoRoUsH 300]

جناب آرتا نمیدونم چرا! اما این برنامه اصلا edittext1.text رو عدد در نظر نمیگیره! من از این کد استفاده کردم:

If IsNumber(EditText1.Text) Then
    o = EditText1.Text
Else If IsNumber(EditText1.Text) = False Then
	ToastMessageShow("عدد وارد کنید!",True)
End If

و هربار عدد وارد میکنم اون پیغام "عدد وارد کنید!" رو میده      

[مهدی ایزدی 9,203]

دوست عزیز بنده چک کردم هیچ مشکلی نداره :

Sub Button1_Click
	If IsNumber(EditText1.Text) Then
    o = EditText1.Text
	ToastMessageShow("مقدار وارد شده فقط عدد است",False)
	Else If IsNumber(EditText1.Text) = False Then
		ToastMessageShow("عدد وارد کنید!",True)
	End If
End Sub

[مجید آرتا 5,875]

به این شکل تست کنید :

Dim NumStr As String = EditText1.Text
If IsNumber(NumStr) Then
 o = NumStr
End If