30-04-21, 12:23 PM
السلام عليكم
ماهو الكود الذي يمنع ادخال حروف او ارقام داخل مربع التيكست بوكس
كود منع ادخال ارقام او حروف داخل التيكست بوكس
|
30-04-21, 12:23 PM
السلام عليكم
ماهو الكود الذي يمنع ادخال حروف او ارقام داخل مربع التيكست بوكس
في حالة الارقام
كود : Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress في حالة الحروف العربي كود : Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress في حالة الحروف الإنجليزي كود : Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress شرح الكود كود : If Asc(e.KeyChar) <> 8 Then تجعل مسموح بالضغط علي backspace ثم بعد ذلك اسمح بحروف معين مثلاًُ من 46 حتي 57 التي هي من 0 الي 9 مع ال . الأرقام العشرية اذا اردت رقم صحيح تجعلها من 48 بدلا من 46 و في الحروف العربية من 193 حتي 237 هي الحروف العربية و تضمن ال همزات و أ بجميع اشكلها و المــــــــد اما الإنجليزي تم تقسيم لقسمين حيث حروف كابيتال و سمول و ما بين 90 و 97 لم يتضمن لأنه يتضمن رموز تم الشكر بواسطة: أسعد , أسعد , عبد الهادي بهاب
01-05-21, 06:15 AM
كما تفضل الاخ الفاضل أنا استخدم الكود التالي كتابة ارقام فقط بحيث لا يسمح بكتابة حروف :
كود : If (e.KeyChar < "0" Or e.KeyChar > "9") And e.KeyChar <> ControlChars.Back Then e.Handled = True و للحروف العربية فقط أستخدم كود : If (e.KeyChar < "ء" Or e.KeyChar > "ي") And e.KeyChar <> ControlChars.Back Then e.Handled = true في وضع TextBox_KeyPress
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
تم الشكر بواسطة: عبد الهادي بهاب
|
|