منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف يتم تنفيذ امر علي مجموعة عناصر مرة واحدة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف يتم تنفيذ امر علي مجموعة عناصر مرة واحدة (/showthread.php?tid=40709)

كيف يتم تنفيذ امر علي مجموعة عناصر مرة واحدة - Han2022 - 08-02-22

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

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

RE: كيف يتم تنفيذ امر علي مجموعة عناصر مرة واحدة - ابراهيم ايبو - 08-02-22

السلام عليكم ورحمة الله وبركاته
أخي الكريم ضع مثال مع اسماء المتغيرات التي أنشأتها في  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


RE: كيف يتم تنفيذ امر علي مجموعة عناصر مرة واحدة - Han2022 - 08-02-22

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

إستفسار أخر

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

TextBox1.Text = ""

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

RE: كيف يتم تنفيذ امر علي مجموعة عناصر مرة واحدة - ابراهيم ايبو - 08-02-22

السلام عليكم ورحمة الله وبركاته
تفضل اخي الكريم
كود :
   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


RE: كيف يتم تنفيذ امر علي مجموعة عناصر مرة واحدة - asmarsou - 08-02-22

(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


RE: كيف يتم تنفيذ امر علي مجموعة عناصر مرة واحدة - Miloud - 11-02-22

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