+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] حفظ مدخلات الفورم للمستخدم (/showthread.php?tid=14224)
حفظ مدخلات الفورم للمستخدم - samers - 24-12-15
السلام عليكم ورحمة الله وبركاته
عندي سؤالين مرتبطين ببعض :
أولاً: عندي هذا الكود 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 ولكن لم تنفع , وشكرا لكم
RE: حفظ مدخلات الفورم للمستخدم - احمد عبد الحكيم - 27-12-15
السؤال الاول انا ما اقدر افيدك فيه
لاكن السوال الثانى فى فكرة لو تقدر تطبقها وهى عن طريق خفظ المدخلات على شكل لينات فى ملف txt على الكمبيوتر
RE: حفظ مدخلات الفورم للمستخدم - HASAN6.0 - 27-12-15
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