الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مساعدة في النوافذ

بدأه muhnd-vfp في 2 يونيو 2009 · 5 رد · 1,112 مشاهدة · في قواعد بيانات Visual FoxPro
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بســم الله الـرحمــن الرحيــم

ارجو من خبراء المنتدى النادر الرائع مساعدتي في جعل النافذة (الاصلية)المنبثقة منها نافذة جديدة ،جعلها غير مفعلة او غير مرئية الا ان ينتهي العمل من النافذة الثانوية\

وانا ممتن لكم

وجزيل الشكر مقدما

#2

[السلام عليكــم ورحمـة الله وبركاتــه ،،

الطريقة سهلة للغاية

في زر التحكم للنافذة الاصلية تكتب الكود هذا

do form secondaire.scx

thisform.release

ام في زر الخروج من النافذة الثانوية

do form principale.scx

thisform.release

*------------------------*

هذا ما أستطعت فهمه من سؤالك

<<--DON CORLEONNE-->>

#3

السلام عليكم ورحمة الله

شكرا اخ ياسين المحترم وهذا بالظبط ما قصدته من سؤالي

وانا قد جربت هذه الطريقة مسبقا لكن وجدت ان المستخدم عند استعمال ( x)غلق من النافذة لن يتنفذ كود التشغيل والغلق.

اذا امكن طريقة تضمن الرجوع الى النافذة الاولى حتى عند الغلق من x.

ومشكورين على الجهود العالية

#4

بســم الله الـرحمــن الرحيــم

و السلام عليكــم ورحمـة الله وبركاتــه ،،

ردا على سؤالك هو كالتالي

يجب عليك ان تلغي الزر x باستعمال closable كما هو موضح في الصورة

post-203519-1244475778_thumb.jpg

<<--DON CORLEONNE-->>

#5

شكرا جزيلا اخي الغالي

حركة متميزة

ادعو الله ان يوفقك في هذا المجال

#6

السلام عليكــم ورحمـة الله وبركاتــه ،،

عزيزي... طبعا ستعمل الطريقة السابقة بشكل صحيح وسليم 100% ولكن عندما تعود للنموذج الاول سترجع لنقطة الصفر كون انك قمت بعمل Release لكامل النموذج

فعلى افتراض ان النموذج الاول سيعتمد على معلومة معادة من النموذج الثاني فأين سيقوم بتخزينها عند الخروج من النموذج الثاني!!!!

لذا لربما من الافضل استخدام الامر Hide + Show

Thisform.Hide()
Do Form MySecondForm
thisform.Show()

وما عليك الا تغيير الـ WindowsType في النموذج الثاني ليكون Modal

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

Thisform.Hide()
local lnTest
lnTest=0
Do Form MySecondForm to lnTest
thisform.Show()

وهنا عليك اضافة الامر التالي في اجراء Unload في النموذج الثاني لتتم اعادته للنموذج الاول

Return AnyValue

مع التحية

تم تعديل هذه المشاركة بواسطة Shadowz في 20 يونيو 2009 في 04:54

1

أستغفر الله العظيم و أتوب إليه

مواضيع مشابهة