تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مبتدئي فيجوال محتاج كود صغير
#1
السلام عليكم ورحمة الله وبركاته

يوجد لدي كود لزخرفة الكلمات لكن عند الضغط على 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
الرد
تم الشكر بواسطة:
#2
علي ما أعتقد أنه و في هذا النوع من البرامج يستخدمون اكثر من 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
الرد
تم الشكر بواسطة:
#3
اخوي سلفر اعلم انه استخدام اكثر من تكست بوكس لكن اريد جميع الزخارف تظهر في تكست بوكس 1 فقط
الرد
تم الشكر بواسطة:
#4
فيه أكثر من أسلوب لكي تضيف أكثر من سطر الي Textbox
عموما اسهل طريقة لك هي أن تستخدم الكود بالشكل التالي
كود :
TextBox2.AppendText(txt + Environment.NewLine)
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] محتاج كود ينفذ امر bakriano30@yahoo.com 1 22 منذ 1 ساعه مضت
آخر رد: سعود
  [VB.NET] ممكن لينك تحميل فيجوال بيسك 2015 bakriano30@yahoo.com 8 77 منذ 7 ساعة مضت
آخر رد: Basil Abdallah
  [VB.NET] ممكن سيريال تفعيل فيجوال بيسك 2010 bakriano30@yahoo.com 2 42 أمس, 04:41 AM
آخر رد: bakriano30@yahoo.com
  [سؤال] محتاج كود ينفذ امر bakriano30@yahoo.com 3 109 17-07-19, 07:38 PM
آخر رد: الحازمي
  [سؤال] محتاج مساعدة صغيرة Yasin 1 77 10-07-19, 08:04 PM
آخر رد: Rabeea Qbaha
  [سؤال] محتاج مساعدة صغيرة Yasin 1 82 09-07-19, 11:16 AM
آخر رد: ابراهيم ايبو
  اريد بعض الاكواد البسيطه جدااااااا فيجوال بيسك 2010 kamel sobhy 6 3,207 08-07-19, 11:49 PM
آخر رد: ghani2003
  محتاج مساعده مهمه جدا ياريت الافاده محمود الجبود 3 135 08-07-19, 12:20 AM
آخر رد: محمود الجبود
  محتاج كود ضغط وإصلاح قاعدة بيانات Access 2010 princelovelorn 12 786 05-07-19, 06:13 PM
آخر رد: elgokr
Exclamation [سؤال] مشكلة عدم قبول النصوص الطويل في قاعدة البيانات على برنامج فيجوال بيسك 2010 الرائد 13 474 26-06-19, 02:16 AM
آخر رد: الرائد

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


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