اخواني الكرام
لارايد أن اطيل عليكم
ولكن عندي جدول في ارقام سيارات وتحتوي على حرف الهـــاء وقد قمت بكتابة حرف الهاء في الجدول بهدذا الشكل (هـ) بإضافة شرطة بعد الحرف حتى
يتضح بأنه هاء ،،،،، المطلوب هو اريد اذا كتبت حرف الهاء في التكست يظهر لي بالشرطة يعني هكذا (هـ ) ولا يتوجب علي كتابة الشرطة لأنه يأتي اساساً ( ه ) على شكل رقم خمسة بالعربي
اشكركم لتقبلكم الإجابة على سؤالي
السلام عليكم
هنالك طريقة لكن لست متأكد من نجاحها...
أنشأ خط جديد (font) عن طريق برامج انشاء الخطوط
و ارسم حرف الهاء بحالته الطبيعية بالشكل المطلوب (هـ) وارفق الخط مع برنامجك واستعمله في التكسك بوكس.
قد يكون حل غير قوي لكن هذا ما تخاطر إلى عقلي الآن
أطيب تحياتي
لو ارفقت المثال لكان افضل لكن جرب مايلي
حيث يقوم هذا الكود باضافة - اذا كتب الهاء
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 73 Then SendKeys "ـ" End If End Sub
بارك الله فيكم جميعاً وأشكركم من كل قلبي على سرعة الرد
السلام عليكم ورحمة الله أخي الكريم
إضافة لما تفضل به الاخوة .. أرى أن تستخدم دالة الحذف والإستبدال Replace
فيكون الكود هكذا باعتبار Nambra هو حقل رقم السارة
Me.Nambra = Replace([Nambra], "هـ", "ه")
وهذا مثال على ذلك لكنه بالأكسس (h) معليش هذا الجهاز الذي أعمل عليه حاليا لايوجد به Visual Basic
ولكن الكود سيعمل معك ضعه في حدث AfterUpdate لمربع النص Nambra.text
EKSEER
تم تعديل هذه المشاركة بواسطة ekseer في 26 مايو 2007 في 02:26
اقتباسأنشأ خط جديد (font) عن طريق برامج انشاء الخطوطو ارسم حرف الهاء بحالته الطبيعية بالشكل المطلوب (هـ) وارفق الخط مع برنامجك واستعمله في التكسك بوكس.
اقتباسقد يكون حل غير قوي لكن هذا ما تخاطر إلى عقلي الآن
ألا بذكر الله تطمئن القلوب
الاخ الكريم Ekseer
اشكرك من كل قلبي على تشريفك بالرد على موضوعي وخصوصاً بالمثال المرفق الذي سهل لي طريقة الحل.
اكسير الاضافة تحياتي لك ...
بالفعل الحل الذي قدمته هو الافضل كالعادة
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
بسم الله الرحمن الرحيم
متميز كالعادة اخي الكريم
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
