تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
كتابة الحروف والارقام فقط في textbox
#1
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"


مع الشكر
الرد }}}
تم الشكر بواسطة: السيد الغالي
#2
شكرا لك اخي الكريم
حقيقة جاءت في وقتها المناسب
الرد }}}
تم الشكر بواسطة: rnmr
#3
VB6
وهذا يصلح ايضاً اذا ما اردنا كتابة الارقام فقط في مربع النص . .
كل ما عليك هو كتابة هذا الكود في حدث

Text1_KeyPress
If Not IsNumeric(Chr(KeyAscii)) And Not KeyAscii = 8 Then
KeyAscii = 0
End If
end sub
الرد }}}
تم الشكر بواسطة: kasim alatwani , عبد العزيز البسكري , rnmr , rnmr
#4
شكرا جزيلا
ياألله
.:. سبحانك اللهم لاعلم لنا الا ماعلمتنا .:.
إقتباس :Istanbul
الرد }}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم