كود الشكل الاول لي زخرفة النصوص 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("و", "ؤؤؤ") TextBox2.Text = txt Me.AcceptButton = Button1
الكود الثاني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("و", "ؤؤؤ")TextBox2.Text = txtMe.AcceptButton = Button2
الكود الثالث 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("و", "وُؤ") TextBox2.Text = txt Me.AcceptButton = Button3
يااااااامبدع
انت اامررررر بسس حب ولا ايهمك:d
نايسؤؤؤؤؤ هكؤؤؤؤري :)
قال تعالى:( مَا يَلْفِظُ مِن قَوْلٍ إِلا لَدَيْهِ رَقِيبٌ عَتِيدٌ )
كود الشكل الاول لي زخرفة النصوص
ردحذف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("و", "ؤؤؤ")
TextBox2.Text = txt
Me.AcceptButton = Button1
الكود الثاني
ردحذف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("و", "ؤؤؤ")
TextBox2.Text = txt
Me.AcceptButton = Button2
الكود الثالث
ردحذف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("و", "وُؤ") TextBox2.Text = txt
Me.AcceptButton = Button3
يااااااامبدع
ردحذفانت اامررررر بسس حب ولا ايهمك:d
ردحذفنايسؤؤؤؤؤ هكؤؤؤؤري :)
ردحذف