[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

شكراً لك