المشاركات : 666
المواضيع 305
الإنتساب : Sep 2013
السمعة :
9
الشكر: 2795
تم شكره 1058 مرات في 159 مشاركات
08-04-21, 01:55 AM
الاخوة الكرام
السلام عليكم ورحمة وبركاته
كيف اجعل المستخدم التعديل على الأرقام في text1 فقط ولا يمكن مسحها ؟
نامل من الله المساعدة العاجلة
تحياتي
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
المشاركات : 666
المواضيع 305
الإنتساب : Sep 2013
السمعة :
9
الشكر: 2795
تم شكره 1058 مرات في 159 مشاركات
(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
اخي العزيز: احمد منصور
السلام عليكم ورحمة وبركاته
اسل الله الا يحرمك اجر ما تقوم به
والف شكر لك اخي العزيز
تحياتي
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
المشاركات : 2,008
المواضيع 58
الإنتساب : Oct 2014
السمعة :
1,005
الشكر: 31833
تم شكره 22865 مرات في 2187 مشاركات
أهلا بك أخي الكريم, هذا مثال جديد, بالتوفيق .
الملفات المرفقة
UnDeletableNumbers.rar (الحجم : 1.77 ك ب / التحميلات : 26)
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
المشاركات : 666
المواضيع 305
الإنتساب : Sep 2013
السمعة :
9
الشكر: 2795
تم شكره 1058 مرات في 159 مشاركات
(15-05-21, 07:29 PM) Ahmed_Mansoor كتب : أهلا بك أخي الكريم, هذا مثال جديد, بالتوفيق .
اخي العزيز : احمد منصور
السلام عليكم ورحمة وبركاته
لا استطع الا ان اقول اللهم ألهمه في أمره الصواب، ويسر له في كل مسألة جواب،
ونجه من كل ألوان العذاب، وبيض وجهه يوم يشتد الحساب، وزين مجلسه بخير الأصحاب،
واجعل دعاءه دعاءً مستجاب.
ولكم مني جزيل الشكر والتقدير
اخوك : سالم
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
المشاركات : 703
المواضيع 129
الإنتساب : Sep 2013
السمعة :
12
الشكر: 428
تم شكره 777 مرات في 196 مشاركات
بارك الله فيك أستاذ المنتدى و أستاذ الأجيال
وزادك من علمه
وأدخلك فسيح جناته