السلام عليكم ورحمة الله وبركاته
يوجد لدي كود لزخرفة الكلمات لكن عند الضغط على boutton1 يقوم بزخرفة اسم واحد فقط
كيف اجعل الزخرفة تكون بعدة اشكال وهناك فراغ بين الاسم والاخر مثل هذه الصوره
طبعا انا سوف اقوم باضافة الكود الاخر للزخرفة لكن اريد الكود الصغير الذي يجعل الاسم الثاني يظهر تحت الاسم الاول ويوجد مساحه فارغه بين كل اسم واسم
وابي كود اذا textbox1 فارغ وتم ضغط زر boutton1 يظهر في textbox2 رسالة ادخل أسمك
يوجد لدي كود لزخرفة الكلمات لكن عند الضغط على boutton1 يقوم بزخرفة اسم واحد فقط
كيف اجعل الزخرفة تكون بعدة اشكال وهناك فراغ بين الاسم والاخر مثل هذه الصوره
طبعا انا سوف اقوم باضافة الكود الاخر للزخرفة لكن اريد الكود الصغير الذي يجعل الاسم الثاني يظهر تحت الاسم الاول ويوجد مساحه فارغه بين كل اسم واسم
وابي كود اذا textbox1 فارغ وتم ضغط زر boutton1 يظهر في textbox2 رسالة ادخل أسمك
كود :
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(" ", " ")
txt = txt.Replace("a", "α")
txt = txt.Replace("b", "β")
txt = txt.Replace("c", "č")
txt = txt.Replace("d", "Đ")
txt = txt.Replace("e", "ę")
txt = txt.Replace("f", "ƒ")
txt = txt.Replace("g", "Ɠ")
txt = txt.Replace("h", "ħ")
txt = txt.Replace("i", "& #237 ")
txt = txt.Replace("j", "ɉ")
txt = txt.Replace("k", "ķ")
txt = txt.Replace("l", "Ł")
txt = txt.Replace("m", "ʍ")
txt = txt.Replace("n", "ń")
txt = txt.Replace("o", "ȍ")
txt = txt.Replace("p", "ᴘ")
txt = txt.Replace("q", "ᶑ")
txt = txt.Replace("r", "ᴙ")
txt = txt.Replace("s", "š")
txt = txt.Replace("t", "Ţ")
txt = txt.Replace("u", "ũ")
txt = txt.Replace("v", "Ɣ")
txt = txt.Replace("w", "ώ")
txt = txt.Replace("x", "ӝ")
txt = txt.Replace("y", "ɏ")
txt = txt.Replace("z", "ᶎ")
TextBox2.Text = txt