طريقة استدعاء شاشة التوقف عن طريق الفيجول

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

default طريقة استدعاء شاشة التوقف عن طريق الفيجول

مُساهمة من طرف نصر اسماعيل في الثلاثاء فبراير 06, 2007 3:26 am

السلام عليكم
نتكلم اليوم عن طريقة استدعاء شاشة التوقف عن طريق الفيجول
ضع command
ثم اكتب الكود التالي
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
Private Const WM_SYSCOMMAND = &H112&
Private Const SC_SCREENSAVE = &HF140&

Private Sub Command1_Click()

Dim Res As Long
Res = SendMessage(Me.hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)

End Sub

_________________
نصر اسماعيل
naser-70@scs-net.org

نصر اسماعيل
مشرف منتدى قواعد البيانات
مشرف  منتدى قواعد البيانات

عدد الرسائل : 70
العمر : 45
تاريخ التسجيل : 21/11/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: طريقة استدعاء شاشة التوقف عن طريق الفيجول

مُساهمة من طرف بنت العراق في الثلاثاء أبريل 10, 2007 3:30 pm

مشكــــــــــــور اخي على الكود الجميل
بس ياري تشرح لي لان بصراحة ما افتهمت الكود كتير

بنت العراق
عضو
عضو

عدد الرسائل : 3
تاريخ التسجيل : 10/04/2007

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: طريقة استدعاء شاشة التوقف عن طريق الفيجول

مُساهمة من طرف N97 في الأحد نوفمبر 04, 2007 1:50 pm

جزاك الله كل الخير اخي الكريم..[URL="http://ksu.edu.sa"]..[/URL]

N97
عضو فعال
عضو فعال

عدد الرسائل : 21
تاريخ التسجيل : 04/11/2007

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى