بسم الله الرحمن الرحيم
السلام عليكم
لدي مربع نص وليكن اسمه txtMemo
أرغب في جعل المستخدم يبدأ الكتابة بعد 10 خانات ثم يضغط مفتاح الادخال لكي ينتقل إلى السطر الجديد و من ثم يضغط مفتاح F4 لكي تزيح المشيرة 10 خانات اخرى
الهدف جعل الكتابة في مربع النص تبدأ من الخانة رقم 10 لترتيب النصوص داخل مربع النص .
===
السلام عليكم اخي الكريم
مرحبا بك فى منتداك
مرفق ملف به نموزج واحد به حقلين
الاول - Auto Number
الثاني وهو الحقل المطلوب
اخوك فى الله
واذا كان الهدف فقط هو المحازاة فهناك خاصية Left Margin و Right Margin لمربع النص ممكن ضبتها للمحازاة
تم تعديل هذه المشاركة بواسطة ahamied في 15 أغسطس 2007 في 10:44
Microsoft Certified DataBase Administrator MCDBA
بسم الله الرحمن الرحيم
وعليكم السلام ورحمة الله وبركاته
بارك الله فيك أخي الكريم
إجابة وافيه وشافيه 100 %
===
اخي الكريم..احمد
لم ينجح الكود معي،، خاصة في السجلات التي اضيفها الى الجدول،، وعند مسح المسافات الموجودة فانها لا تعود..
هل ممكن توضح الكود،، لانني بحثت عن الرقم 115 في KeyCode ولم اجد شيئا..
همام
تم تعديل هذه المشاركة بواسطة همام ابوعرقوب في 15 أغسطس 2007 في 13:10
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
اضافة لما تفضل به اخي احمد
هناك ايضا طريقة اخرى مختلفه
لإزاحة السطر 10 حروف جهة اليمين نختار مربع النص المطلوب او المفكره ومن ثم نعرض خصائصه ومن تبويب الكل ننزل الى الأسفل حتى نجد الهامش الأيمن ومن نضع به 1سم فهو تقريبا يساوي عشر حروف
اما لجعل المشيره تنزل سطر جديد فإننا نستخدم الكود التالي من خلال زر أمر
Private Sub New_Click() Me.txtMemo.SetFocus SendKeys "^~", False End Sub
مع ملاحظة ضبط الإدخال من خلال لوحة المفاتيح كالتالي
1. من اشرطة قوائم الأكسيس اختر ادوات ثم خيارات ثم التبويب لوحة المفاتيح
2. اضبط الخيارات كما هي في الصوره ثم اضغط موافق
وهذا مثال
السلام عليكم
اخي الكريم
همام :KeyCode 115 تشير الي F4
الازاحة 10 حروف تتم عند حدث الضغط علي F4 ... اذا قمت باضافة حقول بالجدول فلن يتحقق الحدث .... منطقي جدا
ممكن يكون لها حلول اذا كانت مطلوبة
الاخت زهرة المنتدي
بارك الله فيكي
Microsoft Certified DataBase Administrator MCDBA
شكرا جزيلا اخي الكريم احمد وبارك الله في االخت زهرة على جهودها..
لدي حل اخر اظن ولكن يتم تطبيق الكود بعد ادخال قيمة في الحقل، اي في حدث بعد التحديث..
وبدل جملة SendKeys استخدمت جملة بسيطة هي:
For xx = 1 To 10 Me.Text5 = " " & Me.Text5 Next xx
اي بعد الخروج من الحقل يعمل على ازاحة النص بمقدار 10 مسافات.. جربته وكان جيدا..
شكرا لكم جميعا..
همام
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
بسم الله الرحمن الرحيم
بورك في مساعيكم
حل الأخ أحمد هو طلبي 100 %
حيث أرغب بادخال اول سطر ويبدأ بقيمة الوقت ( 06:45 ) ثم أكتب في مربع النص وحينما أضغط مفتاح الإدخال تنتقل المشيره الى السطر الجديد وعند الضغط على مفتاح F4 يتم إزاحة المشيرة 10 محارف و أبدأ الكتابه حتى لو تكررت اسطر كثيرة فتعتبر فقرة واحدة
ثم إعيد الكرة بقيمة وقت جديد وهكذا
06:45 بسم الله الرحمن الرحيم
---------- تكملة الجملة
---------- تكملة الجملة
07:45 السلام عليكم
---------- تكملة الجملة
---------- تكملة الجملة
===
بسم الله الرحمن الرحيم
بارك الله فيكم جميعا اخواني
حوار دسم وجميل
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
