اضافة الى string - aldery - 26-06-21
السلام عليكم : قمت بعمل برنامج ويحتوي على نصوص بهذا الشكل msg1 = {"hi", "hello"}
اريد عند الضغط على زر Button يتم تخزين الكلمات بشكل هذا "hi", "hello" تم الفصل بين الكلمة والاخرة بــ " " و فاصلة في النهاية ويتم تخزينها في string كلها يعني في كل مرة اقوم بأضافة كلمة جديدة يقوم بجمع الكلمات كلها و اضافة الجديدة لها
msg1 = {"hi", "hello", "now text"}
شكراً لكم
RE: اضافة الى string - ابو انس - 26-06-21
وعليكم السلام
كود :
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
RE: اضافة الى string - aldery - 01-07-21
(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
شكراً لك
|