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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 149 12-03-24, 10:37 AM
آخر رد: strongriseman
  محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب new_programer 2 163 04-03-24, 07:15 AM
آخر رد: new_programer
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  [VB.NET] محتاج كود حساب الفرق بين تاريخين بالايام moustafakamel95 3 449 29-01-24, 04:05 PM
آخر رد: مصطفى مصطفى
  الالوان في فيجوال بيسك atefkhalf2004 2 418 05-01-24, 04:38 PM
آخر رد: atefkhalf2004
  كيفية جعل من كتاب فيه هوامش ونص (قاعدة بيانات وواجهة فيجوال مثل الشاملة) ابو امجد 1 1,606 10-12-23, 12:53 PM
آخر رد: محمد بن عطية
Photo مشكلة مفاجئة كريستال مع فيجوال 2015 atefkhalf2004 2 367 04-11-23, 12:04 PM
آخر رد: atefkhalf2004
  فيجوال بيسك 2012 manhoud 0 264 25-10-23, 11:00 PM
آخر رد: manhoud
  [VB.NET] محتاج مساعدة تعديل على كود ZEEN4ZEEN 4 416 08-10-23, 09:11 PM
آخر رد: ZEEN4ZEEN
  محتاج تعديل على سورس كود - حفظ البيانات بدون قاعدة بيانات new_programer 5 628 30-08-23, 12:21 AM
آخر رد: atefkhalf2004

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


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