• 0
designerq8

مساعده بخصوص TextBox

سؤال

سلام عليكم

هل ممكن اجعل مربع نص TextBox  يذكرني بأخر بيان دخلته

مثال :

حين ادخال اي رقم 123 والخروج من الفروم والرجوع مره اخرى اجد نفس الرقم بنفس الحقل 123

وحين اغير الرقم ليصبح 1234 واخرج من الفروم وارجع مره اخرى اجده 1234

هل ممكن ذلك وكيف  ؟

جزاكم الله خير

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

7 إجابة على هذا السؤال .

  • 0

السلام عليكم...

 

نعم...

 

1. في Module قم بتعريف متغير عام (Public) من النوع String:

Public MyValue1 As String

2. في الحدث Load للـ Form الذي به الـ TextBox انسخ محتوى المتغير إلى مربع النص:

Text1.Text = MyValue1

3. في الحدث Unload لنفس الـ Form (الذي به الـ TextBox) احتفظ بمحتوى مربع النص في المتغير:

MyValue1 = Text1.Text

نرجو الاستفادة و السلام.

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الكريم

najy_zl

الف شكر لك وجعله الله في ميزان حسناتك

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بعد التجربه لوحظ انه يرجع  البيان الذي ادخلته حين الخروج من الفروم والرجوع الى الفروم .

لكن حين الخروج من البرنامج والرجوع اليه يختفي البيان ... هل ممكن تثبيته حتى لو خرجت من البرنامج ورجحت؟ وبارك الله فيك على جهودك

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم...

 

في هذه الحالة يجب حفظ النص خارج البرنامج.

 

أسهل طريقة لذلك هي حفظ البيانات في الـ Registry التابع للنظام Windows و قراءتها منه باستخدام الإجراء SaveSetting و الدالة GetSetting:

 

= صيغة الدالة GetSetting كالتالي (لقراءة قيمة من الـ Registry):

X = GetSetting(AppName, Section, Key, DefValue)

* حيث:

AppName هو اسم المفتاح الذي يمثل اسم برنامجك في الـ Registry. يمكنك استعمال أي نص تريده.

Section هو اسم القسم (المفتاح الفرعي) تحت المفتاح AppName، و الذي ستتبعه القيم التي تريد حفظها أو قراءتها.

Key هو الاسم الذي تريد إعطاءه للقيمة، أو اسم القيمة التي تريد قراءتها.

DefValue القيمة الافتراضية التي ستعيدها الدالة في حالة عدم وجود الـ AppName أو الـ Section أو الـ Key.

 

= صيغة الإجراء SaveSetting كالتالي (لحفظ قيمة في الـ Registry):

SaveSetting AppName, Section, Key, Value

* حيث Value هي القيمة التي تريد حفظها بالاسم Key تحت المفتاح Section التابع للمفتاح AppName.

 

** كل بارامترات SaveSetting و GetSetting من النوع String.

 

1. مثلاً لقراءة قيمة اسمها TextBox1 تحت المفتاح Form1 التابع للمفتاح MyApplication و إظهار تلك القيمة في مربع النص Text1 اكتب كوداً كالتالي في الحدث Load التابع للـ Form:

Text1.Text = GetSetting("MyApplication", "Form1", TextBox1, "")

2. و لحفظ محتوى ذلك مربع النص في نفس المفتاح اكتب الكود التالي في الحدث Unload التابع للـ Form:

SaveSetting "MyApplication", "Form1", TextBox1, Text1.Text

* المفاتيح و القيم التي يتم حفظها في الـ Registry بواسطة البرامج المبرمجة بـ VB6 يتم حفظها تلقائياً تحت المفتاح:

HKEY_CURRENT_USER\Software\VB and VBA Program Settings

3. نرجو الاستفادة و السلام.

تم تعديل بواسطه najy_zl
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

اخي najy_zl المحترم

 

 

جزاك الله خير الجزاء وزادك علما

 

 

 

 

 

تم تعديل بواسطه designerq8
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم...

 

أعتذر عن عدم تمكني من إعادة تحميل المشروع بعد التعديل، و لكن كود Form_Load و Form_Unload للـ Form3 سيكون هكذا (جربته و يعمل):

Private Sub Form_Load()    Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2    Text2.Text = GetSetting("Irsaliyat", "Form3", "Text2", "")End SubPrivate Sub Form_Unload(Cancel As Integer)    SaveSetting "Irsaliyat", "Form3", "Text2", Text2.TextEnd Sub

نرجو الاستفادة و السلام.

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

اخي najy_zl المحترم

 

 

جزاك الله خير الجزاء وزادك علما

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .