تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] كيف اجعل المستخدم التعديل على الأرقام في text1 فقط ولا يمكن مسحها ؟
#1
Question 
الاخوة الكرام
السلام عليكم ورحمة وبركاته
كيف اجعل المستخدم التعديل على الأرقام في text1 فقط ولا يمكن مسحها ؟
 نامل من الله المساعدة العاجلة
 تحياتي
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

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

PHP كود :
Private Sub Text1_KeyPress(KeyAscii As Integer)

If 
KeyAscii 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 StringText1Text Text1.Text
Dim Text1SelStart 
As IntegerText1SelStart Text1.SelStart

Mid
$(Text1TextText1SelStart 11) = Chr$(KeyAscii)

Text1.Text Text1Text
Text1
.SelStart Text1SelStart
KeyAscii 
0

End Sub 
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , Microformt , Microformt
#3
(08-05-21, 08:02 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته

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

PHP كود :
Private Sub Text1_KeyPress(KeyAscii As Integer)

If 
KeyAscii 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 StringText1Text Text1.Text
Dim Text1SelStart 
As IntegerText1SelStart Text1.SelStart

Mid
$(Text1TextText1SelStart 11) = Chr$(KeyAscii)

Text1.Text Text1Text
Text1
.SelStart Text1SelStart
KeyAscii 
0

End Sub 

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

تحياتي
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , Amir_Alzubidy , اسلام الكبابى
#4
أهلا بك أخي الكريم, هذا مثال جديد, بالتوفيق .


الملفات المرفقة
.rar   UnDeletableNumbers.rar (الحجم : 1.77 ك ب / التحميلات : 26)
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}
#5
(15-05-21, 07:29 PM)Ahmed_Mansoor كتب : أهلا بك أخي الكريم, هذا مثال جديد, بالتوفيق .

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

ولكم مني جزيل الشكر والتقدير
 اخوك : سالم
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , Ahmed_Mansoor , sendbad100
#6
بارك الله فيك أستاذ المنتدى و أستاذ الأجيال

وزادك من علمه

وأدخلك فسيح جناته
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] كيف يمكن برمجة عدد السجلات واستعراض السجلات بشرط رقم الموظف ؟ Microformt 3 195 09-01-24, 01:05 AM
آخر رد: Taha Okla
Question [vb6.0] كيف يمكن استدعاء اسم البرنامج من النافدة هذه وضعة في textbox ؟ Microformt 1 161 02-01-24, 10:06 PM
آخر رد: Taha Okla
Question [vb6.0] كيف يمكن استدعاء هذه الدالة وضعها تحت زر الامر ؟ Microformt 1 169 31-12-23, 11:52 PM
آخر رد: Taha Okla
  [vb6.0] كيف يمكن إخفاء عمود رقم الصنف و إظهاره برمجياً نامل المساعدة في المثال التالي ؟ Microformt 2 386 19-11-23, 10:49 PM
آخر رد: Microformt
Question [vb6.0] كيف اجعل تقرير برنامجي تكون السجلات ملونه مثل الذي في الصورة التأليه ؟ Microformt 0 276 29-10-23, 07:37 PM
آخر رد: Microformt
Question [vb6.0] هل هناك ادوات جديده يمكن استخدمها في تصميم برنامجي بدل ادوات فجوال البيسك ؟ Microformt 0 220 21-10-23, 07:34 PM
آخر رد: Microformt
  كيف يمكن تشغيل برنامجي على اكثر من جهاز بنفس الوقت princeofislam 1 291 14-10-23, 08:18 PM
آخر رد: princeofislam
Information [vb6.0] كيف اجعل الارقم في التقرير باء الغه الانجليزية حتى لو كان نظام الارقام في الويندوز Microformt 0 179 16-08-23, 10:41 AM
آخر رد: Microformt
Question [vb6.0] كيف اشترط على المستخدم ان تتكون كلمة السر من احرف كبيره وارقام ورموز ؟ Microformt 1 312 07-07-23, 08:26 AM
آخر رد: Taha Okla
Question [vb6.0] كيف اجعل الصورة تتحرك تدريجياً الى منتصف الفورة من جهة اليمين ؟ Microformt 1 367 13-04-23, 04:57 PM
آخر رد: Taha Okla

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


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