البرنامج ھو بعض التحكمات بالنظام

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

البرنامج ھو بعض التحكمات بالنظام

مُساهمة من طرف أيمن الإبراهيم في السبت ديسمبر 14, 2013 8:17 pm

اهلا وسهلا بكم في منتدى مصر التقني
-------------------
البرنامج ھو بعض التحكمات بالنظام:والصورة التالية هو البرنامج

ننتقل الان الى كتابة الاكواد الخاصة بالبرنامج :
SadGeneral) اكتب الأكواد الآتیة في القسم العام

الكود:
Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias
"SHEmptyRecycleBinA" (ByVal hwnd As Long, ByVal pszRootPath As String,
ByVal dwFlags As Long) As Long
Private Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA"
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal
lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long,
ByVal nCmdShow As Long) As Long
Private Declare Function mciSendString Lib "winmm.dll" Alias
"mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As
String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

ثم قم بكتابة الكود ايضا في القسم ذاته
الكود:

Public Sub OpenCDDriveDoor(ByVal State As Boolean)
If State = True Then
Call mciSendString("Set CDAudio Door Open", 0&, 0&, 0&)
Else
Call mciSendString("Set CDAudio Door Closed", 0&, 0&, 0&)
End If
End Sub

الان اذهب الى شيفرة الخاصة بزر اخفاء ايقونات سطح المكتب واكتب الكود التالي :
للزر إخفاء أيقونات سطح المكتب اكتب مايلي :
الكود:

Private Sub Command3_Click()
Dim hwnd As Long
hwnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow hwnd, 0
End Sub


للزر إظھار أيقونات سطح المكتب اكتب مايلي :
الكود:

Private Sub Command4_Click()
Dim hwnd As Long
hwnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow hwnd, 5
End Sub


وللزر إخراج السواقة :
الكود:

Private Sub Command1_Click()
OpenCDDriveDoor (True)
End Sub


وللزر إدخال السواقة :
الكود:

Private Sub Command2_Click()
OpenCDDriveDoor (False)
End Sub


وللزر إفراغ سلة المحذوفات :
الكود:

Private Sub Command5_Click()
SHEmptyRecycleBin Me.hwnd, vbNullString, 0
SHUpdateRecycleBinIcon
End Sub

والان قم بتشغيل البرنامج
والى اللقاء ب دروس جديدة مع تحيات فريق عمل منتدى مصر التقني   Very Happy  Very Happy  Very Happy  Very Happy  Very Happy  Very Happy  Very Happy  Very Happy  Very Happy
avatar
أيمن الإبراهيم
........
........

تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 397
التقيم : 0
الدولة : سوريا
الجنس : ذكر

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

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


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