سلام خطای 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
در ضمن متن بالایی فارسی نویسی بود
پاسخ با نقل قول