نسخ قيمة في صندوق نص إلى آخر

Text2.text = Text1.text

عند تحميل الفور form load

Text2.text = Text1.text

Text1 = Text2

:lol:

عبد العزيز اليوسفي كتب:

Text1 = Text2

:lol:

TextX.text = TextY.text

:P

صباح الخير

شكرا جزيلا للجميع على المساعدة

و لكن للأسف لقد أخطأت في توضيح فكرتي

لأن كل صندوق نص موجود في نموذج مختلف و هذه العملية لا تفي بالغرض

و سأشرح الفكرة بشكل أوضح :

لدي فورم في صندوق نص فارغ و هناك في زر أمر عندما أضغطه يفتح لي نموذج آخر في صندوق نص يحوي القيمة المطلوبة فأريد عند إغلاق النموذج الثاني أن يتم نسخ محتوى صندوق النص إلى صندوق النص في النموذج الأول

و أنا شاكرة جدا على المساعدة

طيب ليه ماتوضحي ذلك من الأول

ضع هذا السطر في حدث Unload للنموذج الثاني :

Private Sub Form_Unload(Cancel As Integer)
	Form1.Text1 = Text2
End Sub

ثم أسألتك أبتدائية فتحتاجي لقراءة بعض المعلومات الأولية التعليمية من كتب موجودة في المنتدى

هل يمكن أن أعرف عن أي معلومات أولية تعليمية تتكلم

و سؤال آخر إن كان ممكن

في حال كان النموذج الثاني يظهر لعدة نماذج فكيف يمكن تحديد النموذج الأول المطلوب

على كل شكرا على المساعدة

اقتباس

هل يمكن أن أعرف عن أي معلومات أولية تعليمية تتكلم

اقتباس

في حال كان النموذج الثاني يظهر لعدة نماذج فكيف يمكن تحديد النموذج الأول المطلوب

يمكنك التصريح عن متحول عام يمكنك التعامل معه في كافة النماذج وذلك بتمرير أسم الفورم له أو رقم الفورم(Index) عند أظهار النموذج الثاني

هل يمكن أن تشرح هذه الفكرة أكثر

مع مثال إن أمكن

و شكرا على المساعدة

إلى الأخ دريد : شكرا على مساعدتك

و لكن مثالك لم يفي بالغرض و ذلك لأن مثالك هو عكس ما طلبته

فأنا لدي فورم1 فيه صندوق نص 1 فارغ

ولدي زر أمر في فورم1 منه أفتح فورم 2 و فيه صندوق نص يحتوى على القيمة المطلوبة و ما أريده هو:

عندما أقوم بإغلاق الفورم2 أريد أن تظهر في صندوق نص 1 نفس القيمة أو النص الذي كان ظاهرأ في صندوق نص2

فإذا كنت تعرف الطريقة فأرجو المساعدة لأنه حتى طريقة الأخ عبد العزير لم تنجح

و أنا شاكرة جدا على مساعدتك

نفترض أن اسم النموذج الأول هو form1 والثانى هو form2 حينئذ يمكن كتابة الكود التالى فى حدث إغلاق النموذج الثانى:

Private Sub Form_Unload(Cancel As Integer)

Form1.Text1 = Text1

End Sub

على فرض أن اسم مربع النص فى الفورمين هو text1 مع مراعاة تغيير الكود إذا كان هناك اختلاف

مع التحية.

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

مرفق مع هذه المشاركة نافذة إدخال مخصصة يمكنك استعمالها مع أي Form في أي مشروع.

1. انسخي ملف الـ Form (و هو باسم FGetInput.frm) إلى مجلد المشروع.

2. في دلفي اختاري الأمر Add Form من القائمة Project.

3. في نافذة Add Form انتقلي إلى صفحة Existing ثم انتقلي إلى مجلد المشروع و حددي الملف FGetInput.frm ثم انقري الزر Open.

ستضاف النافذة إلى المشروع.

و يتم استعمال تلك النافذة بالطريقة التالية (هذا الكود في Form1 أو Form2 أو Form99 أو ... إلخ):

التوضيح:

نافذة الإدخال FGetInput لها منهج (Method)، و هو عبارة عن دالة، باسم ShowModal. هذه الدالة تعمل على عرض تلك النافذة ثم تعيد واحدة من قيمتين:

= القيمة vbOK إذا نقر المستخدم على الزر "موافق".

= القيمة vbCancel إذا نقر المستخدم على الزر "إلغاء الأمر".

الدالة ShowModal لها الصيغة التالية:

= البارامتر الأول (Result) يجب أن يكون متغيراً من النوع String حيث سيتم تخزين النص الذي سيدخله المستخدم.

= البارامتر الثاني (Message) هو نص (String) الرسالة الموجهة للمستخدم داخل نافذة الإدخال.

= البارامتر الثالث (Title) هو عنوان نافذة الإدخال، و هو اختياري أي يمكن عدم استعماله، و في هذه الحالة يكون عنوان النافذة هو "إدخال".

إذا نقر المستخدم على الز "موافق" في نافذة الإدخال فإن الدالة تعيد القيمة vbOK و تخزن إدخال المستخدم في البارامتر Result، و إذا نقر على الزر "إلغاء الأمر" فإن الدالة تعيد القيمة vbCancel و تبقى قيمة البارامتر Result كما هي.

FGetInput.rar

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

تماماً كما أورد الأخ najy_zl بارك الله به وهي كعمل صندوق الحوار InputBox وتعتبر الطريقة المثلى لذلك

ولكن في الطريقة السابقة يتوقف البرنامج عن العمل لحين مايتلقى الأمر من الفنكشن ShowModal

وبما أنه ذكرت :

اقتباس

في حال كان النموذج الثاني يظهر لعدة نماذج فكيف يمكن تحديد النموذج الأول المطلوب

اقتباس

يمكنك التصريح عن متحول عام يمكنك التعامل معه في كافة النماذج وذلك بتمرير أسم الفورم له أو رقم الفورم(Index) عند أظهار النموذج الثاني

اقتباس

هل يمكن أن تشرح هذه الفكرة أكثر

فكمثال على ذلك وأنا لم أمرر اسم الفورم ولكن مررت القيمة المدخلة للنص فهي أسهل للتعامل :

example.rar

بالتوفيق . .

صباح الخير للجميع

كل الشكر لكل من ساهم في محاولة إيجاد الحل ، لقد كانت مساعدتكم قيمة جداً بالنسبة لي

إلى الأخ عبد العزيز لقد طبقت المثال الذي وضعته و كان نتيجته جيدة جداً و قد تم حل المشكلة

و لكن فقط لدي استفسار صغير لأفهم الكود بشكل جيد لأنني لا أريد أن أنسخه فقط

If Str <> "" Then text1 = Str: Str = ""

الاستفسار هو : ما المقصود بـ : "" : Str =

و شكرا جزيلا على المساعدة

If Str <> "" Then text1 = Str: Str = ""

اقتباس

الاستفسار هو : ما المقصود بـ : "" : Str =

إذا كنت تقصدي النقطتين : فيمكن كتابة الكود السابق كمايلي :

If Str <> "" Then 
text1 = Str
 Str = ""
End If

وهو بنفس النتيجة فأنا كتبته في سطر واحد للأختصار وهنا يتم ألغاء End If

أما لوكنت تقصدي لماذا أفرغنا المتحول Str = "" فذلك لتفعيل الكود الجديد عند أغلاق Form3

شكرا على المساعدة و الشرح