ضع الكود التالي في اعلى الوحدة النمطية الخاصة بالنموذج:-
Const EWX_SHUTDOWN = 1 Const EWX_REBOOT = 2 Const EWX_LOGOFF = 0 Const EWX_FORCE = 4 _ Private Declare Function ExitWindowsEx Lib "user32" _ (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
اصنع زر تحكم باسم
cmdRestart '
وفي حدث عند النقر لزر الأمر ضع الكود التالي:-
'Restart Windows (works on Windows 95/NT) ExitWindowsEx EWX_LOGOFF, 0
الأخ /قيصر
الظاهر أنك مانت بقصير بل لك باع طويل في البرمجة الله يعطيك العافية
مثال على الموضوع على الرابط التالي بعد تعديل الأخ أبو حمود للكود الموضوع :
http://mypage.ayna.com/ashrafk/shut_win.mdb
أشرف خليل
أخي أشرف أسعد الله مساءك بكل خير وجزاك كل خير على المثال سلفآ إلا أنني لم أستطع تحميل المثال بواسطة الزر الأيمن لا أدري لماذا الرابط لايعمل ؟
الأخ محسن : جرب مرة أخرى فأنا نزلته والرابط يعمل جيدا وإن لم تستطع اكتب الإيمل وأنا أرسله لك عليه .
أشرف خليل
أخي الحبيب أشرف فعلآ جربت مرة أخرى و قد تم تحميل المثال فجزاك الله خيرآ ووفقك و أسكنك فسيح جناته(f) (f)
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…