[aldery]

السلام عليكم : قمت بعمل برنامج ويحتوي على نصوص بهذا الشكل    msg1 = {"hi", "hello"}

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

msg1 = {"hi", "hello", "now text"}
شكراً لكم 

[ابو انس]

وعليكم السلام

كود :

 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

[aldery]

(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

شكراً لك