هل يمكن عمل وميض لكلمتان بحيث تظهر الاول وتختفي الثانية والعكس

[أبو شادي]

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

اتقدم بخالص التحية لمشرفي ورواد هذا المنتدي المفيد

لدي سؤال بسيط لكلمتان وهم ( شئون الموظفين ) هل يمكن ان نعمل لهم ما يسمي بالوميض بحيث كلمة ( شئون ) تظهر وتختفي كلمة الموظفين ثم تظهر كلمة الموظفين وتختفي كلمة شئون بالتبادل

بمعني وميض لشئون المظفين تظهرالكلمة الاولي وتختفي الاخري ثم تظهر الكلمة الثانية وتختفي الاول

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

[CUHP]

الاخ ابوشادي

تحية عطرة وبعد

ارفق لكم ثلاث انواع من الكتابة والاضاءة وارجوا ان تحوز على رضاك -- مع احترامي

AB.rar

[أبو شادي]

الاخ الكريمCUHP

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

طرق جميلة للكتابة والاضاءة وفعلا سوف استخدمها في اشياء عندي

ولكن اخي الكريم اريد شئ اخر وهو ان كلمة شئون تظهر في الوقت التي تختفي فيه كلمة الموظفين

وعندما تظهر كلمة الموظفين تختفي كلمة شئون اي واحد تظهر والتانية تختفي والعكس

عموما الثلاث انواع المرسلة منكم بديعة جدا جدا جدا

لك مني كل احترام وتقدير

[التقني]

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

اليك هذا المثال أخي :

HideMe.rar

وللأمانة العلمية فهو مثال أجنبي يقوم بعمل وميض باللونين الأحمر والأسود وقمت بالتعديل عليه واضافة مربع تسمية ثان مع تعديل الكود من تلوين النص الى عمل الاخفاء والاظهار .

والكود المسئول عن اخفاء واظهار كلمتي (شئون) و (الموظفين) هو :

أولا / كود يوضع في حدث عند النقر لزر الأمر cmdFlash المسئول عن بدء الاخفاء والاظهار :

Private Sub cmdFlash_Click()
    Me.Refresh
    Me.TimerInterval = 300
    Me.lblFlash.Visible = False
    Me.lblFlash2.Visible = True
End Sub

ثانيا / كود ايقاف العملية السابقة واظهار كلا الكلمتين ويوضع عند حدث النقر لزر الأمر cmdStop:

Private Sub cmdStop_Click()
    Me.TimerInterval = 0
    Me.lblFlash.Visible = True
    Me.lblFlash2.Visible = True
End Sub

ثالثا / كود يوضع في حدث (عند عداد الوقت) للنموذج :

Private Sub Form_Timer()
    With Me.lblFlash
        .Visible = (IIf(.Visible = False, True, False))
    End With
    With Me.lblFlash2
        .Visible = (IIf(.Visible = True, False, True))
    End With
End Sub

مع ملاحظة التالي :

lblFlash هو مربع تسمية ونضع فيه كلمة (شئون)

lblFlash2 هو مربع تسمية آخر ونضع فيه كلمة (الموظفين)

cmdFlash هو زر أمر بدء الوميض

cmdStopهو زر أمر انهاء الوميض

والله أعلى وأعلم .

تم تعديل مارس 10, 2007 بواسطه التقني

[أبو شادي]

الاخ الكريم / التقني سلام الله عليك ورحمته وبركاته

أُحيك ُاحيك وأشكرك هذا هو المطلوب لي

انتهز هذا الفرصة واقول ليس مجاملا ولكن يعمل الله وحده كم استفدت من موضوعاتك وانا متابع جيد لكل موضوع تكتبه جعله الله في ميزان حسناتك كما اشكرك على الامانة العلمية التي ذكرتها

لك مني كل احترام وتقدير