كيف يتم تنفيذ امر علي مجموعة عناصر دفعة واحدة
يعني لو مثلا كود زي ده
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
شكرا اخي الفاضل
إستفسار أخر
لو عايز اعمل زر يمسح كل التيكست بوكس مرة واحدة
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
(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
بارك الله فيك على المجهود الكبير و الرائع