[samers]

السلام عليكم ورحمة الله وبركاته
عندي سؤالين مرتبطين ببعض :
أولاً: عندي هذا الكود  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim TxtBox1, txtbox2, txtbox3 As New TextBox()
       With TxtBox1
           .Location = New Point(64, 40)
           .Size = New Size(100, 20)
           .TabIndex = 0
           .Text = ""
           With txtbox2
               .Location = New Point(64, 20)
               Size = New Size(100, 20)
               .Multiline = True
               .ScrollBars = ScrollBars.Both
               .TabIndex = 1
               .Text = ("")
               With txtbox3
                   .Location = New Point(64, 60)
                   .Size = New Size(100, 20)
                   .Multiline = True
                   .TabIndex = 0
                   .Text = ""
               End With
           End With
       End With
       Controls.Add(TxtBox1)
       Controls.Add(txtbox2)
       Controls.Add(txtbox3)

   End Sub
السؤال: هل يمكن اختصار هذا الكود بكود واحد لانشاء عدة تكست بوكس
السؤال الثاني : كيف يمكن حفظ المدخلات في هذه التكست لأني جربت بالطريقة SETTING ولكن لم تنفع , وشكرا لكم

[احمد عبد الحكيم]

السؤال الاول انا ما اقدر افيدك فيه
لاكن السوال الثانى فى فكرة لو تقدر تطبقها وهى عن طريق خفظ المدخلات على شكل لينات فى ملف txt على الكمبيوتر

[HASAN6.0]

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Controls.Add(Textb("Text1", 64, 20))
        Me.Controls.Add(Textb("Text2", 64, 45))
        Me.Controls.Add(Textb("Text3", 64, 70))
    End Sub
    Function Textb(ByVal mName As String, x As Integer, y As Integer) As TextBox
        Dim txt As New TextBox()
        txt.Name = mName
        txt.Location = New Point(x, y)
        txt.Size = New Size(100, 20)
        AddHandler txt.TextChanged, AddressOf Text_TextChanged
        txt.Text = GetSetting("A", "B", mName)
        Return txt
    End Function

    Private Sub Text_TextChanged(sender As Object, e As EventArgs)
        SaveSetting("A", "B", sender.name, sender.text)
    End Sub