23-07-15, 01:53 AM
فيما يخص عدد الارقام نحدد اكبر عدد للارقام من خاصية التيكست (MAX LENGHT) مثلا يساوي 10
واذا اردنا ان لايقل عن عشرة ارقام
في حدث KEYPRESS نكتب الكود التالي
If Len(Text1.Text) < 10 Then
MsgBox "MAX OR MIN TEEN NUMBER", vbExclamation
Text1.SetFocus
واذا اردنا ان لايقل عن عشرة ارقام
في حدث KEYPRESS نكتب الكود التالي
If Len(Text1.Text) < 10 Then
MsgBox "MAX OR MIN TEEN NUMBER", vbExclamation
Text1.SetFocus
