تقييم الموضوع :
  • 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)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Information [VB.NET] كود لعدم تكرار اكثر من حقل معا في فيجوال محمد المصري 4 35 منذ اقل من1 دقيقه مضت
آخر رد: Rabeea Qbaha
  محتاج للتواصل مع مسؤولي المنتدى ولا احد يجيب . Rabeea Qbaha 7 138 11-10-17, 01:12 AM
آخر رد: Amir_alzubidy
Information [سؤال] محتاج كود لOpenFileDialog و DataGridView lemozza 3 96 02-10-17, 07:20 PM
آخر رد: سعود
Lightbulb [VB.NET] محتاج مثال ككود ربط الكريستال ريبورت مع جدولين والقاعدة mysql مصمم الدوادمي 3 65 29-09-17, 12:18 AM
آخر رد: wale90
  [VB.NET] محتاج كود يقوم بإعادة الترقيم 0theghost0 4 106 26-09-17, 09:52 AM
آخر رد: سعود
  [VB.NET] محتاج مساعدة من فضلكم asadtaif 2 101 15-09-17, 01:01 PM
آخر رد: asadtaif
  [سؤال] بخصوص فيجوال بيسك مع Access 0theghost0 4 175 31-08-17, 09:47 AM
آخر رد: 0theghost0
  هل يوجد كتاب متخصص في التعامل مع الصور في فيجوال بيسك 2013 rafaag777 1 130 20-08-17, 10:55 PM
آخر رد: العواد الصغير
  [مشروع] دعونا نصنع مشروع صغير ومفيد للكل وكل شخص يحط افكاره فيه 0theghost0 15 591 05-08-17, 07:21 PM
آخر رد: 0theghost0
  [VB.NET] ارجو المساعدة في مشروع صغير لكن راح يكون مفيد للجميع . 0theghost0 1 131 02-08-17, 11:50 PM
آخر رد: silverlight

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


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