[@@أبورائد@@]

(20-10-13, 12:28 AM)kafi2030 كتب : الف شكر
اخي ابو رائد
على اجابتك

قمت بتجريب المثال الذي تفضلت به حضرتك، وكان يعمل بشكل ممتاز

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

بعد البحث والتدقيق، اكتشفت سبب عدم عدم الكود الذي تفضلت به

السبب يكمن في انني في حدث التركيز على التكست بوكس، اقوم بتكبير الخط من اجل اضفاء مزيد من الوضوح والتيسير على المستخدم اثناء الادخال، وبعد فقدان التركيز ارجع الخط الى حجمه

كود :

Me.txt_Note.Font = New Font(Me.txt_Note.Font.Name, 14, FontStyle.Bold)

هذا السطر هو السبب في عدم عمل الكود، وعند تجميده يعمل الكود

كيف لي ان اوفق ببن الكودين ( الكود المتعلق بازاحة الكتابة عن حافة التكست بوكس، وكود تكبير الخط عندما يكون التركيز على العنصر)

ارجو الارشاد والتوجيه

بارك الله فيكم

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


تحتاج لتنفيذ أمر الـ Margin بعد كل مرة تغير فيها الخط مثل التالي

كود :

Me.txt_Note.Font = New Font(Me.txt_Note.Font.Name, 14, FontStyle.Bold)
TextBoxMargin(Me.txt_Note, 10, 10)

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