[Microformt]

الاخوة الكرام
السلام عليكم ورحمة وبركاته
كيف اجعل المستخدم التعديل على الأرقام في text1 فقط ولا يمكن مسحها ؟
 نامل من الله المساعدة العاجلة
 تحياتي

[Ahmed_Mansoor]

وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم, أضف Text1 في برنامجك وضع أرقام معينة في التكست ثم أضف كود حدث الـKeyPress لهذا التكست كما يلي ثم جرب تغيير الأرقام :

PHP كود :

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 8 Or KeyAscii = 32 Then KeyAscii = 0: Exit Sub

If InStr(1, "0123456789", Chr$(KeyAscii)) <= 0 Then KeyAscii = 0: Exit Sub

If Text1.SelStart >= Len(Trim$(Text1.Text)) Then KeyAscii = 0: Exit Sub

Dim Text1Text As String: Text1Text = Text1.Text
Dim Text1SelStart As Integer: Text1SelStart = Text1.SelStart

Mid$(Text1Text, Text1SelStart + 1, 1) = Chr$(KeyAscii)

Text1.Text = Text1Text
Text1.SelStart = Text1SelStart
KeyAscii = 0

End Sub 


[Microformt]

(08-05-21, 08:02 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم, أضف Text1 في برنامجك وضع أرقام معينة في التكست ثم أضف كود حدث الـKeyPress لهذا التكست كما يلي ثم جرب تغيير الأرقام :

PHP كود :

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 8 Or KeyAscii = 32 Then KeyAscii = 0: Exit Sub

If InStr(1, "0123456789", Chr$(KeyAscii)) <= 0 Then KeyAscii = 0: Exit Sub

If Text1.SelStart >= Len(Trim$(Text1.Text)) Then KeyAscii = 0: Exit Sub

Dim Text1Text As String: Text1Text = Text1.Text
Dim Text1SelStart As Integer: Text1SelStart = Text1.SelStart

Mid$(Text1Text, Text1SelStart + 1, 1) = Chr$(KeyAscii)

Text1.Text = Text1Text
Text1.SelStart = Text1SelStart
KeyAscii = 0

End Sub 


اخي العزيز: احمد منصور
السلام عليكم ورحمة وبركاته
 اسل الله الا يحرمك اجر ما تقوم به
والف شكر لك اخي العزيز

تحياتي

[Ahmed_Mansoor]

أهلا بك أخي الكريم, هذا مثال جديد, بالتوفيق .

[Microformt]

(15-05-21, 07:29 PM)Ahmed_Mansoor كتب : أهلا بك أخي الكريم, هذا مثال جديد, بالتوفيق .

اخي العزيز : احمد منصور
السلام عليكم ورحمة وبركاته
لا استطع الا ان اقول اللهم ألهمه في أمره الصواب، ويسر له في كل مسألة جواب،
 ونجه من كل ألوان العذاب، وبيض وجهه يوم يشتد الحساب، وزين مجلسه بخير الأصحاب، 
واجعل دعاءه دعاءً مستجاب.

ولكم مني جزيل الشكر والتقدير
 اخوك : سالم

[اسلام الكبابى]

بارك الله فيك أستاذ المنتدى و أستاذ الأجيال

وزادك من علمه

وأدخلك فسيح جناته