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

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

نعم...

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

Public MyValue1 As String

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

Text1.Text = MyValue1

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

MyValue1 = Text1.Text

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

اخي الكريم

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

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

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

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

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

أسهل طريقة لذلك هي حفظ البيانات في الـ 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 المحترم

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

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

أعتذر عن عدم تمكني من إعادة تحميل المشروع بعد التعديل، و لكن كود 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 Sub

Private Sub Form_Unload(Cancel As Integer)
    SaveSetting "Irsaliyat", "Form3", "Text2", Text2.Text
End Sub

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

السلام عليكم

اخي najy_zl المحترم

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