تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اضافة الى string
#1
السلام عليكم : قمت بعمل برنامج ويحتوي على نصوص بهذا الشكل    msg1 = {"hi", "hello"}

اريد عند الضغط على زر Button يتم تخزين الكلمات بشكل هذا "hi", "hello" تم الفصل بين الكلمة والاخرة بــ " " و فاصلة في النهاية ويتم تخزينها في string كلها يعني في كل مرة اقوم بأضافة كلمة جديدة يقوم بجمع الكلمات كلها و اضافة الجديدة لها 

msg1 = {"hi", "hello", "now text"}
شكراً لكم  Heart
الْحَمْدُ لِلَّهِ حَمْدًا كَثِيرًا طَيِّبًا مُبَارَكًا فِيهِ

رَبِّي أَرْزُقْنِي مُسْتَقْبَلاً أَجَمَلَ مِمَّا تَمَنَّيْتُ

وَاَجْعَل لِي فِيْ هَذِهِ الدُّنْيَا - أُنَاساً يَدْعُونَ لِي بَعْدَ أَنْ أَغِيْب

حسابي في تلكرام

الرد }}
تم الشكر بواسطة:
#2
وعليكم السلام

كود :
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim apple As String = TextBox2.Text
       Dim Orange As String = """"
       Dim banana As String = ","
       Dim cherries As String = TextBox1.Text
       TextBox2.Text = apple + Orange + cherries + Orange + banana
   End Sub

واذا بدك الاقواس تظهر تفضل هذا الكود بعد التعديل
كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       Dim Orange As String = """"
       Dim banana As String = ","
       If TextBox2.Text.Length > 1 Then
           Dim i As Integer = TextBox2.Text.Length - 1
           If TextBox2.Text.Chars(i) = "}" Then
               TextBox2.Text = TextBox2.Text.Remove(i, 1)

           End If
       End If
       TextBox2.Text = TextBox2.Text.Replace("{", "")

       Dim apple As String = "{" + TextBox2.Text
       Dim cherries As String = TextBox1.Text
       TextBox2.Text = apple + Orange + cherries + Orange + banana + "}"


   End Sub
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 

واتساب 00963951283515
الرد }}
تم الشكر بواسطة: c#dev , aldery , خالد20
#3
(26-06-21, 11:06 PM)ابو انس كتب : وعليكم السلام

كود :
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim apple As String = TextBox2.Text
       Dim Orange As String = """"
       Dim banana As String = ","
       Dim cherries As String = TextBox1.Text
       TextBox2.Text = apple + Orange + cherries + Orange + banana
   End Sub

واذا بدك الاقواس تظهر تفضل هذا الكود بعد التعديل
كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       Dim Orange As String = """"
       Dim banana As String = ","
       If TextBox2.Text.Length > 1 Then
           Dim i As Integer = TextBox2.Text.Length - 1
           If TextBox2.Text.Chars(i) = "}" Then
               TextBox2.Text = TextBox2.Text.Remove(i, 1)

           End If
       End If
       TextBox2.Text = TextBox2.Text.Replace("{", "")

       Dim apple As String = "{" + TextBox2.Text
       Dim cherries As String = TextBox1.Text
       TextBox2.Text = apple + Orange + cherries + Orange + banana + "}"


   End Sub

شكراً لك
الْحَمْدُ لِلَّهِ حَمْدًا كَثِيرًا طَيِّبًا مُبَارَكًا فِيهِ

رَبِّي أَرْزُقْنِي مُسْتَقْبَلاً أَجَمَلَ مِمَّا تَمَنَّيْتُ

وَاَجْعَل لِي فِيْ هَذِهِ الدُّنْيَا - أُنَاساً يَدْعُونَ لِي بَعْدَ أَنْ أَغِيْب

حسابي في تلكرام

الرد }}
تم الشكر بواسطة: ابو انس , خالد20


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اضافة شرط للكود حماده ممدوح البحيرى 6 257 28-07-22, 08:19 PM
آخر رد: حماده ممدوح البحيرى
  Conversion from string "" to type 'Double' is not valid. حماده ممدوح البحيرى 13 374 22-07-22, 06:59 PM
آخر رد: أبو خالد الشكري
  كيفية اضافة صورة كخلفية في الكريستال ريبورت atefkhalf2004 1 176 22-07-22, 05:06 PM
آخر رد: أبو خالد الشكري
  [VB.NET] مشكلة اضافة بوتن لكل خلية بالداتاجريد فيو محمد اسماعيل 5 1,537 30-06-22, 08:29 PM
آخر رد: alessam4pro
Heart [VB.NET] عدم فتح اضافة مكتبة بالفيجوال 2019 العواد الصغير 0 203 29-06-22, 05:47 PM
آخر رد: العواد الصغير
  كود اضافة اسبوع على تاريخ معين Lathe1 5 566 18-06-22, 10:59 AM
آخر رد: Lathe1
  هل استطيع اضافة عدد 2 من السوتش في شبكة واحدة بسام محمدغانم 2 313 03-06-22, 04:49 PM
آخر رد: بسام محمدغانم
  كيف يمكن اضافة 100 سجل بسيريال مسلسل الى قاعدة بيانات dr.programming 3 563 11-05-22, 03:08 PM
آخر رد: dr.programming
  كيفية اضافة اكتر من عمليه في وقت واحد او إلغاءها في حالة حدوث خطأ Emam emam 6 738 26-04-22, 04:03 AM
آخر رد: ابو محمد محمد محمد
  كيف يمكن اضافة عناصر للكومبوبوكس اثناء تشغيل البرنامج عن طريق المستخدم haithammoftah 1 917 09-04-22, 02:15 AM
آخر رد: asmarsou

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


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