17-12-14, 03:07 PM
lمساء الخير ,,,,,
اود ان اعرض لكم طريقه ربما يحتاجها البعض وهي كتابة الحروف فقط في textbox
الطريقه قد تكون مجديه كما في الكود التالي
If Val(Text4.Text) > 0 Then
MsgBox ("Error, should contain only alphabets only")
Text4.Text = ""
Else
MsgBox ("OK! Contain only alphabets!")
Text4.Text = ""
End If
كذالك كتابة الأرقام فقط فيtext box
If Not IsNumeric(Text1.Text) Then MsgBox "not number"
مع الشكر
اود ان اعرض لكم طريقه ربما يحتاجها البعض وهي كتابة الحروف فقط في textbox
الطريقه قد تكون مجديه كما في الكود التالي
If Val(Text4.Text) > 0 Then
MsgBox ("Error, should contain only alphabets only")
Text4.Text = ""
Else
MsgBox ("OK! Contain only alphabets!")
Text4.Text = ""
End If
كذالك كتابة الأرقام فقط فيtext box
If Not IsNumeric(Text1.Text) Then MsgBox "not number"
مع الشكر