تقييم الموضوع :
  • 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 
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Smile [VB.NET] تغيير شكل الفورم Mahmoud Nasser 6 118 أمس, 03:10 AM
آخر رد: elgokr
  [سؤال] جعل محتوى الفورم يملئ الشاشة عادل المغربي 7 119 19-05-18, 04:52 AM
آخر رد: elgokr
  [VB.NET] طباعة الفورم a4 فراس الغزي 1 49 15-05-18, 07:15 AM
آخر رد: elgokr
  احتاج كود تركيز على التكست عند تحميل الفورم hglogtd 5 79 12-05-18, 02:54 AM
آخر رد: hglogtd
  [سؤال] هل يوجد طريقة لاطفاء بعض وظائف الويندوز من خلال الفورم؟ Iman Mohamed Omran 2 124 29-04-18, 02:29 PM
آخر رد: Iman Mohamed Omran
  وضع مسطرة علي الفورم السيد الجوهري 0 52 24-04-18, 06:33 PM
آخر رد: السيد الجوهري
  المساعدة - في حل مشكلة حجم الفورم Mohamed El Meziani 1 109 18-04-18, 02:39 AM
آخر رد: ملهمـ
  كيف يمكن طباعة مربعات النص الموجودة علي الفورم مباشرة السيد الجوهري 2 124 12-04-18, 11:37 PM
آخر رد: السيد الجوهري
  سؤال في اسم الفورم اثناء التصميم والتشغيل emamtron2014 1 83 11-04-18, 06:27 PM
آخر رد: aftfm
  [سؤال] كيفيفة تشغيل الفورم فقط في وضع المسؤول ؟ Iman Mohamed Omran 1 96 29-03-18, 04:54 AM
آخر رد: سعود الشامان

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


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