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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن تحويل الكود من سي شارب لي فيجوال بيسك اليوم السابع 2 111 , 05:57 PM
آخر رد: الماجيك مسعد
  تقسيم الأعمدة فى فيجوال بيسك سؤال jemyx 0 93 11-02-21, 10:22 PM
آخر رد: jemyx
  اعدادات الفورم في فيجوال نت 2010 onejan1977 2 189 17-01-21, 09:01 AM
آخر رد: moosa_alabri
  السلام عليكم محتاج اعرف شئ في loop اليوم السابع 7 388 14-01-21, 08:25 AM
آخر رد: سعود
  اريد تحميل فيجوال بيسك 2017 اللورد محمود 5 1,070 03-01-21, 11:49 PM
آخر رد: سلام و محبه
  [سؤال] محتاج مساغده من اخوني محمد ايمن 0 108 25-12-20, 02:21 PM
آخر رد: محمد ايمن
  [كود] ممكن كود فيجوال بيسك نقل ملف من ريسورس الى مستندات jam3h 3 310 23-12-20, 11:56 AM
آخر رد: Ngm
  عمل كود لاسم المستخدم وكلمه المرور وتغير كلمه المرور فيجوال بيسك وربطها بقاعدة sql khowla.goma 2 533 20-12-20, 12:32 AM
آخر رد: khowla.goma
  محتاج مساعدة بكود فتح الأكسس من الفجول بيسك أبو عبدالله الحلواني 5 353 07-12-20, 12:55 AM
آخر رد: أبو عبدالله الحلواني
  كود تعديل البيانات فيجوال بيسك وقاعدة بيانات sql server برحوت 0 391 08-11-20, 12:17 AM
آخر رد: برحوت

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


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