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

سلام من یک کلید دارم که وقتی روش کلیک می کنید از 4 تا تکس باکس اطلاعات رو می گیره و اعمال محاسباتی روشون انجام می ده . البته این تکس باکس ها فقط عدد رو می گیرن کد من بصورت زیر :

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii >= 58 Or (KeyAscii <= 47 And KeyAscii <> 45 And KeyAscii <> 8 And KeyAscii <> 13) Then

      KeyAscii = 0

'payam

   End If

 

 

 

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii >= 58 Or (KeyAscii <= 47 And KeyAscii <> 45 And KeyAscii <> 8 And KeyAscii <> 13) Then

      KeyAscii = 0

'payam

   End If

 

 

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii >= 58 Or (KeyAscii <= 47 And KeyAscii <> 45 And KeyAscii <> 8 And KeyAscii <> 13) Then

      KeyAscii = 0

'payam

   End If

 

 

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii >= 58 Or (KeyAscii <= 47 And KeyAscii <> 45 And KeyAscii <> 8 And KeyAscii <> 13) Then

      KeyAscii = 0

'payam

   End If

 

 

End Sub

Private Sub Command1_Click()

Dim txt1 As Integer

Dim txt2 As Integer

Dim txt3 As Integer

Dim txt4 As Integer

txt1 = Text1.Text

txt2 = Text2.Text

txt3 = Text3.Text

txt4 = Text4.Text

If (txt1 >= 12) And (txt1 <= 80) Then

Label3.Caption = " salam."

ElseIf (txt1 >= 81) And (txt1 <= 100) Then

Label3.Caption = " sss"

ElseIf (txt1 >= 67) And (txt1 <= 777) Then

Label3.Caption = " yuyyy"

ElseIf (txt1 >= 8989) And (txt1 <= 8989) Then

Label3.Caption = " ghfhgfh"

ElseIf (txt1 >= 786) And (txt1 <=67867) Then

Label3.Caption = " hgjghjg"

End If

 

 

 

End Sub

ولی الان مشکلم اینجاست که اگه هر کدوم از تکس باکسام خالی بمونن خطا میده.
با null و "" و empty دونه دونه چک کردم تکس باکسامو خطا داد دوباره .

در ضمن چطوری تو VB6فارسی بنویسیم . من با فونت Arial نوشتم فارسی نشون نمی ده

من با این شرط چک می کنم جواب می ده:
If Text1 = "" Then
نشان دادن پغام خطا
end if
فقط جای Text1 نام textbox تون رو بزارین.
سوال دومتون رو هم متوجه نشدم.

اشکال نداره
شما تو قسمت اسکریپت نویسی که فارسی بنویسی بعضی وقتا درهم مینویسه ولی موقع اجرا درست میشه.

براي سوال دوم مربوط به يوني كد ميشه . براي تشخيص پنجره فونت رو باز كن ببين يك ابجد كنار حروف انگليسي فونت انتخابي نوشته يا نه اگر نه ! برو اول فونت Traditional Arabic رو انتخاب كن تا اون نوشته ظاهر بشه . بعد بدون اينكه Tradtional رو از انتخاب در بياري مستقيم برو سراغ فونت Arial . يعني بعد از انتخاب Trad بلافاصله روي Arial كليك كن تا درست بشه . اين روش منه كه جواب هم ميده . البته اگه ويندوزت فارسي پشتيباني كنه !

سلام خطای ERRor time میده :

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii >= 58 Or (KeyAscii <= 47 And KeyAscii <> 45 And KeyAscii <> 8 And KeyAscii <> 13) Then

      KeyAscii = 0

'payam

   End If

   

   

   

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii >= 58 Or (KeyAscii <= 47 And KeyAscii <> 45 And KeyAscii <> 8 And KeyAscii <> 13) Then

      KeyAscii = 0

'payam

   End If

   

   

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii >= 58 Or (KeyAscii <= 47 And KeyAscii <> 45 And KeyAscii <> 8 And KeyAscii <> 13) Then

      KeyAscii = 0

'payam

   End If

   

   

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii >= 58 Or (KeyAscii <= 47 And KeyAscii <> 45 And KeyAscii <> 8 And KeyAscii <> 13) Then

      KeyAscii = 0

'payam

   End If

   

   

End Sub

Private Sub Command1_Click()

Dim txt1 As Integer

Dim txt2 As Integer

Dim txt3 As Integer

Dim txt4 As Integer

txt1 = Text1.Text

txt2 = Text2.Text

txt3 = Text3.Text

txt4 = Text4.Text

If (Text1.Text = "") Or (Text2.Text = "") Or (Text3.Text = "") Or (Text4.Text = "") Then

Exit Sub

Else

Select Case Text1.Text

Case 1 To 4

    Label3.Caption = " شش"   

Case 5 To 8

    Label3.Caption = " بلابل

" Case 7 To 10

    Label3.Caption = " لالاللال" 

Case 11 To 13

    Label3.Caption = " لالالالا" 

End Select

End If

End Sub

در ضمن متن بالایی فارسی نویسی بود

دوستان ایراد این برنامه از کجاست ؟

نقل قول:

---

نوشته شده توسط mirage041

دوستان ایراد این برنامه از کجاست ؟

---

سلام،
نوع متغیرها را Integer درنظر گرفته اید و دارید بهشون رشته میدید.
قسمت انتساب مقادیر TextBox ها به متغیرها را به این شکل بنویسید:

txt1 = Val(Text1.Text)

txt2 = Val(Text2.Text)

txt3 = Val(Text3.Text)

txt4 = Val(Text4.Text)