bassum قام بنشر يونيو 10, 2004 مشاركة قام بنشر يونيو 10, 2004 السلام عليكم ورحمة الله وبركاته السؤال يبدو أنه بسيط ولكنه مهم بالنسبة لي عندي على النموذج عدد كبير من الكائنات مثل مربعات النص والتحرير والسرد .. إلخ كيف أخفي هذه الكائنات أو بعضها بواسطة القروب على سبيل المثال Text1 و Text2 و Text3 لا أريد أن استخدم Text1.Visble = False Text2.Visble = False Text3.Visble = False كيف أخفيها بأمر واحد مثلا أو عن طريق Tag مع الشكر الجزيل مقدماً رابط هذا التعليق شارك More sharing options...
مهند عبادي قام بنشر يونيو 10, 2004 مشاركة قام بنشر يونيو 10, 2004 يمكنك عمل ذلك عن طريق إخفاء القسم الذي يحتويها .. فإذا أردنا إخفاء جميع الكائنات في قسم التفصيل نكتب : Section(0).Visible = False رابط هذا التعليق شارك More sharing options...
bassum قام بنشر يونيو 11, 2004 الكاتب مشاركة قام بنشر يونيو 11, 2004 أولا أسأل الله أن يدخلك فسيح جناته والا يتكلك على أعمالك ثانيا هذه الطريقة تخفي كل القسم والمطلوب هو إخفاء عشر كائنات فقط من على القسم ليتبقى 6 ومن الصعب كتابة كل كائن بالطريقة سابقة الذكر هناك شيء أنا أبحث عنه وهو أن تكتب بخانة الكائنات طبعا من الخصائص وبخانة Tag مثلاً basm وفي الكود تخفي كل الكائنات التى في خانة Tag ......... الكلمة basm أنا كنت اسويها على الفجوال بيسك بس للأسف نسيت الطريقة مع التقدير والاحترام للجميع رابط هذا التعليق شارك More sharing options...
مهند عبادي قام بنشر يونيو 11, 2004 مشاركة قام بنشر يونيو 11, 2004 (معدل) Dim Ct as Control for each ct in me ct.Visible = ct.tag <> "basm" next ct تم تعديل نقص حرف في الكود تم تعديل يونيو 12, 2004 بواسطه مهند عبادي رابط هذا التعليق شارك More sharing options...
Anwar قام بنشر يونيو 11, 2004 مشاركة قام بنشر يونيو 11, 2004 اللة ينور عليك يا استاذ يا بروفيوسور الاكسيس لدي مداخلة بسيطة وهي ممكن نصمم مربع ونضع فية الكائنات المراد اخفائها عند نقر زر معين ثم لاختصار الامر نطلب اخفاء هذا المربع فتختفي كل الكائنات التي بداخلة هل مداخلتي صحيحة نحب نتعلم منكم ولنا نصل الي مستواكم (y) رابط هذا التعليق شارك More sharing options...
مهند عبادي قام بنشر يونيو 11, 2004 مشاركة قام بنشر يونيو 11, 2004 ممكن ذلك .. ولعمله نحتاج إلى Function يقوم بقراءة كل ادوات الفورم يخفي من يقع منها ضمن مجال معين رابط هذا التعليق شارك More sharing options...
bassum قام بنشر يونيو 12, 2004 الكاتب مشاركة قام بنشر يونيو 12, 2004 آمين آمين اللة ينور عليه في الدنيا والآخرة بس يا ليتك يا أستاذ يا بروفيوسور الاكسيس فضلا لا أمرا ... تفصل شوي لأني كتبة الكود في أمر زر وأعطى خطأ – وفي حدث التحميل للاطار واعطى خطأ وفي الأوبن كذلك رابط هذا التعليق شارك More sharing options...
مهند عبادي قام بنشر يونيو 12, 2004 مشاركة قام بنشر يونيو 12, 2004 هناك خطأ نحوي في كلمة : ct.visibe والصحيح هو ct.visible رابط هذا التعليق شارك More sharing options...
bassum قام بنشر يونيو 13, 2004 الكاتب مشاركة قام بنشر يونيو 13, 2004 (معدل) نسأل الله أن يثيبك على ما تقدمة يا أخي الكريم مهند عبادي نعم لقد عرفت الخطأ ويعمل الكود بشكل جيد وتختفي الكائنات وكل شيء على ما يرام ولكن كيف أظهر الكائنات مرة أخرى .. أو بمعنى أوضح كيف أتعامل مع الكائنات المسماة basm في Tag كيف أغير موضعها مثلا كيف أخفيها مثلا ... ............. هذه عرفت ونسأل الله أن يثيبك كيف أظهرها مثلا Dim Ct As Control For Each Ct In Me Ct.Visible = True Next Ct يظهر كل الكائنات كما تعلم وتقبل تحياتي ... تم تعديل يونيو 13, 2004 بواسطه bassum رابط هذا التعليق شارك More sharing options...
Anwar قام بنشر يونيو 13, 2004 مشاركة قام بنشر يونيو 13, 2004 للرفع للاهمية رابط هذا التعليق شارك More sharing options...
مهند عبادي قام بنشر يونيو 13, 2004 مشاركة قام بنشر يونيو 13, 2004 (معدل) Dim Ct as Control for each ct in me If ct.tag = "basm" then 'اكتب هنا أي أوامر تريد تنفيذها : إظهار - تحريك -الخ End If next ct تم تعديل يونيو 13, 2004 بواسطه مهند عبادي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.