24-12-15, 05:29 PM
السلام عليكم ورحمة الله وبركاته
عندي سؤالين مرتبطين ببعض :
أولاً: عندي هذا الكود 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 ولكن لم تنفع , وشكرا لكم
عندي سؤالين مرتبطين ببعض :
أولاً: عندي هذا الكود 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 ولكن لم تنفع , وشكرا لكم