[Han2022]

كيف يتم تنفيذ امر علي مجموعة عناصر دفعة واحدة
يعني لو مثلا كود زي ده
        My.Settings.textsave = TextBox1.Text
عايز اخلية ينفذة علي مجموعة textboxs مرة واحدة دون كتابة اسمائهم واحد واحد

اريد تنفيذة علي 10 تيكست بوكس مثلا
from textbox1.text to textbox10.text

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
أخي الكريم ضع مثال مع اسماء المتغيرات التي أنشأتها في  Settings ليصار الى التعديل

---

السلام عليكم 
تفضل اخي الكريم

كود :

 Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
       Dim MyVar() As String = {"MyVar1", "MyVar2", "MyVar3", "MyVar4"} ' مصفوفة اسماء المتغيرات في السيتينغ
       Dim Mytxt() As TextBox = {TextBox1, TextBox2, TextBox3, TextBox4} ' مصفوفة اسماء التكست بوكس
       For i As Integer = 0 To MyVar.Length - 1
           Dim MyV As String = MyVar(i)
           My.Settings.Item(MyVar(i)) = Mytxt(i).Text
           My.Settings.Save()
       Next
   
   End Sub

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       TextBox1.Text = My.Settings.MyVar1
       TextBox2.Text = My.Settings.MyVar2
       TextBox3.Text = My.Settings.MyVar3
       TextBox4.Text = My.Settings.MyVar4
   End Sub

[Han2022]

شكرا اخي الفاضل

إستفسار أخر

لو عايز اعمل زر يمسح كل التيكست بوكس مرة واحدة

TextBox1.Text = ""

لو عايز اخلية لكذا تيكست بوكس
ما الكود ؟؟

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
تفضل اخي الكريم

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       For Each C As Control In Me.Controls
           If TypeOf C Is TextBox Then
               C.Text = ""
           End If
       Next
   End Sub

[asmarsou]

(08-02-22, 10:52 PM)Han2022 كتب : شكرا اخي الفاضل

إستفسار أخر

لو عايز اعمل زر يمسح كل التيكست بوكس مرة واحدة

       TextBox1.Text = ""

لو عايز اخلية لكذا تيكست بوكس
ما الكود ؟؟

تفضل

كود :

For Each ctrl As Control In Me.Controls
           If TypeOf ctrl Is TextBox Then
               ctrl.Text = ""
           End If
       Next

[Miloud]

بارك الله فيك على المجهود الكبير و الرائع