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

[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)