تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود زخرفة النصوص
#1
اولا نقوم بانشاء تكست بوكس عدد 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
الرد }}}
تم الشكر بواسطة: elgokr , بدري
#2
نفع الله بك اخي الكريم ،، وزادك علماً ،، بالتوفيق للجميع
يا رحمن الدنيا والآخرة ورحيمهما
الرد }}}
تم الشكر بواسطة: ahmadpal , ahmadpal
#3
شكرا وبارك الله بك
الرد }}}
تم الشكر بواسطة: elgokr



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم