تقييم الموضوع :
  • 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



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


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