منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] كيف اجعل المستخدم التعديل على الأرقام في text1 فقط ولا يمكن مسحها ؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] كيف اجعل المستخدم التعديل على الأرقام في text1 فقط ولا يمكن مسحها ؟ (/showthread.php?tid=38232)

كيف اجعل المستخدم التعديل على الأرقام في text1 فقط ولا يمكن مسحها ؟ - Microformt - 08-04-21

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

RE: كيف اجعل المستخدم التعديل على الأرقام في text1 فقط ولا يمكن مسحها ؟ - Ahmed_Mansoor - 08-05-21

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

أهلا بك أخي الكريم, أضف 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 


RE: كيف اجعل المستخدم التعديل على الأرقام في text1 فقط ولا يمكن مسحها ؟ - Microformt - 12-05-21

(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 

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

تحياتي

RE: كيف اجعل المستخدم التعديل على الأرقام في text1 فقط ولا يمكن مسحها ؟ - Ahmed_Mansoor - 15-05-21

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

RE: كيف اجعل المستخدم التعديل على الأرقام في text1 فقط ولا يمكن مسحها ؟ - Microformt - 15-05-21

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

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

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

RE: كيف اجعل المستخدم التعديل على الأرقام في text1 فقط ولا يمكن مسحها ؟ - اسلام الكبابى - 30-08-21

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

وزادك من علمه

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