27-10-18, 12:12 PM
اولا نقوم بانشاء تكست بوكس عدد 2 و زر
في الحدث الخاص بالضغط على الزر نضيف الكود التالي
في الحدث الخاص بالضغط على الزر نضيف الكود التالي
كود :
Dim txt As String = TextBox1.Text
txt = txt.Replace("ي", "ـے")
txt = txt.Replace("ك", "گ")
txt = txt.Replace("ب", "بـ?ـ")
txt = txt.Replace("ا", "أآ")
txt = txt.Replace("ت", "تـ?ـ")
txt = txt.Replace("ث", "ثـ")
txt = txt.Replace("ج", ",ـجـ,")
txt = txt.Replace("ح", ",حـ,")
txt = txt.Replace("خ", "خـ")
txt = txt.Replace("س", "سـ?ـ")
txt = txt.Replace("ش", "شـ")
txt = txt.Replace("ص", "صـ?ـ")
txt = txt.Replace("ض", ",ضـ,")
txt = txt.Replace("ط", "طــ")
txt = txt.Replace("ظ", "ظــ")
txt = txt.Replace("ع", "عـ?ـ")
txt = txt.Replace("غ", "غـ")
txt = txt.Replace("ف", "فـ")
txt = txt.Replace("ق", ",قـ,")
txt = txt.Replace("ل", "لـ")
txt = txt.Replace("م", "مـ?ـ")
txt = txt.Replace("ن", "نـ")
txt = txt.Replace("ه", "ـہ")
txt = txt.Replace("و", "ؤؤؤ")
txt = txt.Replace(" ", " ")
TextBox2.Text = txt