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

[amir mahdizadeh 109]

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

من یه ادیت تکست دارم که اگه متنی داخلش وارد بشه لیبلی که زیرش تعریف کردم متنش عوض میشه اما وقتی متن داخل ادیت تکست رو کامل پاک کنم بهم ارور میده این هم کد هام

Case 2
				If temp = temp2 Then
					If et_kh.Text = "" Then
						lb.Text = "مقداری وارد نشده"
						lb.TextColor = Colors.Black
					Else If (et_kh.Text >= 40 And et_kh.Text < 52 And form.jens = "مرد") Then
						lb.Text = "طبیعی"
						lb.TextColor = Colors.RGB(0,121,64)
					Else If (et_kh.Text >= 37 And et_kh.Text < 47 And form.jens = "زن")  Then
							lb.Text = "طبیعی"
							lb.TextColor = Colors.RGB(0,121,64)
						Else If (et_kh.Text < 40 And form.jens = "مرد") Or (et_kh.Text < 37 And form.jens = "زن")  Then
							lb.Text = "پایین تر از حد طبیعی"
							lb.TextColor = Colors.Red
						Else If (et_kh.Text >= 52 And form.jens = "مرد") Or (et_kh.Text >= 47 And form.jens = "زن") Then
							lb.Text = "بالاتر از حد طبیعی"
							lb.TextColor = Colors.Red
					End If
				End If

عکس ارور رو هم پیوست میکنم

حالا چیکار کنم که این ارور رو بهم نده؟؟؟

 

[salmana 174]

اگر فقط میخاین خطا نده میتونی ترای کچ بزاری. فقط نگاه کن که کدهات درست عمل میکنه یا نه

Try

اون کدهات را بزار اینجا
Catch

End Try

[agha sasan 82]

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

ولی خب برا کاری که شما میخوایین انجام بدین بصورت زیره:

if text1.text="" then
label1.text="مقداری انتخاب نشده است"
else 
label1.text="مقدار وارد شده"
end if

اگه راهنمایی بیشتری میخوایین کامل تر توضیح دهید.

[amir mahdizadeh 109]

ممنون بابت پاسخ گوییتون دوست عزیز

If et_kh.Text = "" Then
lb.Text = "مقداری وارد نشده"

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

حتی به این صورت هم نوشتم اما جواب نمیده

If et_kh.Text = NULL Then
lb.Text = "مقداری وارد نشده"

[agha sasan 82]

اگه میخوایین سورس برنامتونو برام بفرستین تا کمکتون کنم