منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : مبتدئي فيجوال محتاج كود صغير
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته

يوجد لدي كود لزخرفة الكلمات لكن عند الضغط على 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
علي ما أعتقد أنه و في هذا النوع من البرامج يستخدمون اكثر من TextBox لعرض اكثر من أسلوب للزخرفة اما فيما يختص بكتابة رسالة تقول أدخل الاسم في حالة أن لا يكون التكست بوكس الموجود به الاسم خاليا يمكنك ااستخدام جملة شرطية للتأكد من أن TextBox.Text.Length = 0 او استخدم String.IsNullOrEmpy او تستخدمهما معا  كما في الكود التالي

كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If String.IsNullOrEmpty(TextBox1.Text) AndAlso TextBox1.Text.Length = 0 Then
           ' do something

       End If

       
   End Sub
اخوي سلفر اعلم انه استخدام اكثر من تكست بوكس لكن اريد جميع الزخارف تظهر في تكست بوكس 1 فقط
فيه أكثر من أسلوب لكي تضيف أكثر من سطر الي Textbox
عموما اسهل طريقة لك هي أن تستخدم الكود بالشكل التالي
كود :
TextBox2.AppendText(txt + Environment.NewLine)