كيف اجبر المستخدم على ادخال أ بالهمزة

من الأسهل أن تحول جميع حروف الألف إلى ألف بهمزة بعد الإدخال.

في التكست الخاص برقم اللوحة لنفرض اسمه TextBox1

في الحدث الخاص بمغادرة المؤشر من التكست (LostFocus)

ضع الكود التالي :

TextBox1.Text = Replace(TextBox1.Text, "أ" , "ا")

سيتم إستبدال ا بي أ

ملاحظه يمكنك كتابة أكثر من أمر للإستبدال مثلاً

TextBox1.Text = Replace(TextBox1.Text, "أ" , "ا")
TextBox1.Text = Replace(TextBox1.Text, "ى" , "ي")
TextBox1.Text = Replace(TextBox1.Text, "و" , "ؤ")

.. تحياتي

بسم الله الرحمن الرحيم

اخى العزيز

ممكن تستخدم الكود ات شاء الله يفيدك

If e.KeyChar = "ا" Then
            e.Handled = True
        Else
            e.Handled = False
        End If

كده هيكتب اى حاجة غير ا من غير الهمزة