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

اذهب الى الأسفل

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
avatar
نصر اسماعيل
مشرف منتدى قواعد البيانات
مشرف  منتدى قواعد البيانات

عدد الرسائل : 70
العمر : 46
تاريخ التسجيل : 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

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

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

الرجوع الى أعلى الصفحة


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