ضع الدالة التالية في أعلى الوحدة النمطية الخاصة بالنموذج :
Private Declare Function FlashWindow Lib "user32" (ByVal hWnd As Long, ByVal bInvert As Long) As Long
وفي حدث عن عداد الوقت ضع :
Dim nReturnValue As Integer
nReturnValue = FlashWindow(Me.hWnd, True)
الآن إما أن تضع الفاصل الزمني لعداد الوقت عن طريق فتح النموذج في عرض التصميم ثم عرض الخصائص أو مثلا في حدث نقر زر أمر مثل :
Me.TimerInterval = 200
وللجميع التحية
الأخ أبو حمود
جربت الكود كالتالى
صممت نموذج بأسم test خاص بجدول معين
فتحنت من شاشة التصمم حدث
عند أعلى الوحدة النمطية للنموذج عند genral declaration
كتبت
Private Declare Function FlashWindow Lib "user32" (ByVal hWnd As Long, ByVal bInvert As Long) As Long
وعند عداد الوقت
كتبيت Dim nReturnValue As Integer
nReturnValue = FlashWindow(Me.hWnd, True
وامام time interval =200
وعند تشغيل النموذج أعطى رسالة خطأ وهى
run timr error 6
overflow
أرجو توضيح الخطأ
ولك كل الشكر
الأخ ابو شروق
هل تظهر لك رسالة خطأ فيها زر Debug اضغط عليه واكتب السطر الذي يظهر عليه اللون الأصفر .
علما أن السطر الذي وضعته في الحدث ناقص قوس والصحيح :
Dim nReturnValue As Integer
nReturnValue = FlashWindow(Me.hWnd, True)
ملاحظة هامة نسيت أن أذكرها يجب أن لا يكون النموذج مكبرا للحد الأقصى .
ولك تحياتي
أستاذي/ أبو حمود
لم أوفق في تطبيق الكود على نموذج عندي ،
فهل لك التكرم بإرسال المثال على بريدي
يشتمل على الكود المذكور لكي يسهل على إستيعابه وتجربته.
ولك مني خالص الدعوات لك بالتوفيق في الدنيا والأخرة.
والله الموفق.
الأخ ابن مسقط
هذا هو المثال المطلوب :
http://mypage.ayna.com/h_h123/Flash.zip
وأكرر الملاحظة المذكورة في ردي السابق لايعمل الكود إذا كان النموذج مكبرا للحد الأقصى .
ولك تحياتي
الأخ أبو حمود (عندى اكسيس xp)
ولقد جربت المثال الموجود فى الوصلة اعلاة واواجة نفس المشكلة
ورسال الخطأ
أم السطر المظلل باللون الأصفر فهو
nReturnValue = FlashWindow(Me.hWnd, True)
والأقواس موجودة
ارجو التوضيح ولكم جزيل الشكر
الأخ ابو شروق
ما هو نص الرسالة التي تظهر لك ؟
ولك تحياتي
الأخ أبو حمود
نص رسالة الخطا كما شرحتة لك فى ردى السابق
أعلاة
'6':run-time error
overflow
end
or debug
ولك كل الشكر
الأخ ابو شروق
ما أعرف ماهي المشكلة لم يتضح لي من الرسالة شيء .
ولك تحياتي
:D
انت كاتب المتغير هكذا :
Dim nReturnValue As Integer
والمفروض تكتبه هكذا :
Dim nReturnValue
شكرا
السلام عليكم جميعاً...
الى مشرف القسم...
عندما احاول تنزيل الفايل تظهر لي هذه الرسالة
Gone
The requested resource
/h_h123/Flash.zip
is no longer available on this server and there is no forwarding address. Please remove all references to this resource.
--------------------------------------------------------------------------------
Apache/1.3.11 Server at mypage.ayna.com Port 80
وللعلم ... تقريباً كل الملفات التى هي في المنتدى لا يتم تحميلها وتظهر نفس الرسالة...
فارجو منكم التكرم وارسال الملف flash.zip الى بريدي الالكتروني
مبارك عليكم الشهر...
الاخ / Yes No
لتجميل الملفات ضع الماوس على اللنك ثم اضغط الماوس اليمين واختر حفظ الهدف باسم ( Save target as )
الاخ / Yes No
أرسلت الملف على بريدك .
وبخصوص النسخ طبق ماذكره الأخ ابوبشاير وفقه الله .
ولك تحياتي
مبارك عليكم الشهر...
شكراً على اهتمامك...
لكن المثال لا يعمل مع اكسس 97
هل من الممكن الطريقة لكي ينجح في اكسس 97
وايضا اذا كان هناك مثلا العنوان (وهو عبارة عن نص) واريده ان يومض ايضا... طبعاً على اكسس 97...
شكراً...
:mad:
الأخ
ارسلت الملف على بريدك وهو يعمل على اكسس 97 .
سؤالك الثاني أو طلبك غير واضح .
ولك تحياتي
السلام عليكم جيعاً...
جزاك الله خيراً على سرعة الرد...
واقصد في سؤالي الثاني اذا كنت اريد نص او حقل يومض..؟؟
مثلا..
نص عبارة عن
شركة المنتدى العربي للبرمجة
وهو عبارة عن نص Text
فاريده ان يومض عندما يكون النموذج مفتوح...
واذ وضعت الماوس على حقل رقم الفاتورة مثلا ... ان يومض...
وشكراً..
(g)
سبق الكلام عن طلبك في أحد المواضيع وأظنه هذا الموضوع :
http://arabteam.nicmatic.com/vb/showthread...p?threadid=4522
ولعل الأخ أشرف يعطيك الرابط الأكيد .
ولك تحياتي
هذا الموضوع مغلق.