تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] حفظ مدخلات الفورم للمستخدم
#1
السلام عليكم ورحمة الله وبركاته
عندي سؤالين مرتبطين ببعض :
أولاً: عندي هذا الكود  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 ولكن لم تنفع , وشكرا لكم
الرد
تم الشكر بواسطة:
#2
السؤال الاول انا ما اقدر افيدك فيه
لاكن السوال الثانى فى فكرة لو تقدر تطبقها وهى عن طريق خفظ المدخلات على شكل لينات فى ملف txt على الكمبيوتر
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد
تم الشكر بواسطة:
#3
PHP كود :
Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        Me
.Controls.Add(Textb("Text1"6420))
 
       Me.Controls.Add(Textb("Text2"6445))
 
       Me.Controls.Add(Textb("Text3"6470))
 
   End Sub
    Function Textb
(ByVal mName As StringAs IntegerAs Integer) As TextBox
        Dim txt 
As New TextBox()
 
       txt.Name mName
        txt
.Location = New Point(xy)
 
       txt.Size = New Size(10020)
 
       AddHandler txt.TextChangedAddressOf Text_TextChanged
        txt
.Text GetSetting("A""B"mName)
 
       Return txt
    End 
Function

 
   Private Sub Text_TextChanged(sender As ObjectAs EventArgs)
 
       SaveSetting("A""B"sender.namesender.text)
 
   End Sub 
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] ممكن كود لجعل حجم الفورم لايتغير sari 6 1,189 17-11-18, 02:57 AM
آخر رد: Samy_Amin
  يرجى المساعدة لحل مشكلة عند تشغيل نفس الفورم اكثر من مرة vb.net ahmadpal 5 144 04-11-18, 10:17 PM
آخر رد: ahmadpal
  رساله غير مفهومه عند فتح الفورم vb2010 2 82 04-11-18, 05:18 PM
آخر رد: vb2010
  يرجى المساعدة لحل مشكلة عند تشغيل نفس الفورم اكثر من مرة vb.net ahmadpal 0 60 26-10-18, 11:38 PM
آخر رد: ahmadpal
  كيف يُمكن عدم الرجوع إلى الفورم الأول إذا كان الفورم الثاني مفوحاً ؟ Hazem1 2 109 07-10-18, 10:08 PM
آخر رد: Hazem1
  جعل الادوات في منتصف الفورم بدقة ابراهيم ايبو 8 174 07-10-18, 09:28 PM
آخر رد: ابراهيم ايبو
Smile [VB.NET] تغيير شكل الفورم Mahmoud Nasser 7 509 30-09-18, 02:36 PM
آخر رد: mustafa husaieen
  [سؤال] طباعة الفورم بشكل كامل VB.Net Sameh Hamdy 6 1,510 27-09-18, 09:32 PM
آخر رد: Kaylos
  عرض الفورم في مكان محدد المتألق9 14 496 24-09-18, 12:36 PM
آخر رد: elgokr
  بطـــىء قليـــل عنـــد تنفيــــد الفورم wweecw 3 165 18-08-18, 06:53 PM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم