إعلان

Collapse
No announcement yet.

مساعدة فى عمل شاشه sleep لبرنامج على ال vb.net

Collapse
X
  • تصفية
  • الوقت
  • عرض
مسح الكل
مشاركات جديدة

    مساعدة فى عمل شاشه sleep لبرنامج على ال vb.net

    السلام عليكم ايها الاخوة الكرام اريد مساعداتكم فى عمل شاشه توقف لبرنامج بلسيكوال سيرفر وال vb.net
    بمعنى اننا فى اللاب او جهاز الكومبيوتر العادى اذا تركنا الجهاز بدون عمل لفترة يتوقف الجهاز ويعطى شاشه سوداء لحين تحريك الماوس او الضغط على الكيبورد فيعود للعمل مرة اخرى انا اريد اعمل ذلك لبرنامج بالفيجوال بيسك هل الفكرة قيد التنفيذ اخواتى ام لا
    الف شكر مقدما

    #2
    وعليكم السلام
    الامر بسيط يا اخى اتبع الخطوات التالية بدقة

    1) قم بإنشاء مشروع جديد من نوع Windows Application

    -قم بإنشاء Picture Box داخل Form
    2) اضغط على Picture Box لتظهر خصائص العنصر :

    -من خاصية image قم باختيار صورة عادية أو صورة متحركة GIF .

    -غير خاصية Dock الى Fill

    -قم بتغيير خاصية SizeMode الى StretchImage



    3) اضغط على form لتظهر قائمة خصائص النموذج:

    -غير خاصية WindowState الى Maximized

    - غير خاصية FormBorderStyle الى None

    -غير خاصية TopMost الى True


    4) ثم اضغط مرتين على النموذج لتظهر نافذة code ثم ضع هذا الكود :
    PHP Code:

     
    Private xposition As Integer
     
    Private yposition As Integer
     
    Private Sub Form1_KeyPress(ByVal sender As ObjectByVal e As 
    System.Windows.Forms.KeyPressEventArgsHandles MyBase.KeyPress
     Me
    .Close()
     
    End
     End Sub
     
    Private Sub PictureBox1_MouseMove(ByVal sender As ObjectByVal e As 
    System.Windows.Forms.MouseEventArgsHandles PictureBox1.MouseMove
     
    If Not PictureBox1.MousePosition.X.Equals(xposition) Or _
     Not PictureBox1
    .MousePosition.Y.Equals(ypositionThen
    Me
    .Close()
    End
     End 
    If
     
    End Sub
     
    Private Sub Form1_Load(ByVal sender As ObjectByVal e As 
    System.EventArgsHandles MyBase.Load
     xposition 
    PictureBox1.MousePosition.X
     yposition 
    PictureBox1.MousePosition.Y
     End Sub 
    5) قم بتشغيل المشروع Run مع الحفظ لكى يتم إنشاءه

    6) كيفية تجربة المشروع :

    -اذهب الى مجلد المشروع الخاص بك ثم افتح مجلد bin وستجد الملف الناتج بصيغة exe قم بتغيير صيغة الملف الناتج الى .scr
    مثال على ذلك كالتالى :
    MyScreensaver.exe ----> MyScreensaver.scr

    -ولتجربة الملف على النظام الخاص بك قم بنسخ الملف كالاتى حسب نظام التشغيل لديك :

    Windows 98: C:\windows\system

    Windows NT/2000/XP: C:\winnt\system32

    -الان اذهب لسطح المكتب desktop ثم اضغط الزر الايمن للماوس واختر Properties واختر خصائص ScreenSaver وستجد ملفك فى القائمة جربه سيعمل مباشرة !

    خالص تحياتى وتقديري وبالتوفيق

    تعليق

    تنفيذ...
    X