منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته
عندي سؤالين مرتبطين ببعض :
أولاً: عندي هذا الكود 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 على الكمبيوتر

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 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

samers

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

HASAN6.0