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

[mirage041]

سلام من یک کلید دارم که وقتی روش کلیک می کنید از 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 نوشتم فارسی نشون نمی ده

[mahdi1373]

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

[modirmasool]

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

[HjSoft]

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

[mirage041]

سلام خطای 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]

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

[xxxxx_xxxxx]

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


txt1 = Val(Text1.Text)
txt2 = Val(Text2.Text)
txt3 = Val(Text3.Text)
txt4 = Val(Text4.Text)