البرنامج ھو بعض التحكمات بالنظام
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: المشاريع و الاكواد الجاهزة
صفحة 1 من اصل 1 • شاطر
البرنامج ھو بعض التحكمات بالنظام
اهلا وسهلا بكم في منتدى مصر التقني
-------------------
البرنامج ھو بعض التحكمات بالنظام:والصورة التالية هو البرنامج
ننتقل الان الى كتابة الاكواد الخاصة بالبرنامج :
General) اكتب الأكواد الآتیة في القسم العام
ثم قم بكتابة الكود ايضا في القسم ذاته
الان اذهب الى شيفرة الخاصة بزر اخفاء ايقونات سطح المكتب واكتب الكود التالي :
للزر إخفاء أيقونات سطح المكتب اكتب مايلي :
للزر إظھار أيقونات سطح المكتب اكتب مايلي :
وللزر إخراج السواقة :
وللزر إدخال السواقة :
وللزر إفراغ سلة المحذوفات :
والان قم بتشغيل البرنامج
والى اللقاء ب دروس جديدة مع تحيات فريق عمل منتدى مصر التقني
-------------------
البرنامج ھو بعض التحكمات بالنظام:والصورة التالية هو البرنامج
ننتقل الان الى كتابة الاكواد الخاصة بالبرنامج :
General) اكتب الأكواد الآتیة في القسم العام
- الكود:
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
والان قم بتشغيل البرنامج
والى اللقاء ب دروس جديدة مع تحيات فريق عمل منتدى مصر التقني
أيمن الإبراهيم- ........
- تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 398
التقيم : 1
الدولة :
الجنس :
| |
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: المشاريع و الاكواد الجاهزة
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 8:56 pm من طرف moslema_r
» شركة مكافحة حشرات في راس الخيمة
أمس في 8:34 pm من طرف moslema_r
» تطبيقIncogniton لإدارة ملفات تعريف متعددة للمتصفح
الأربعاء أبريل 24, 2024 3:51 pm من طرف زاكااا
» افضل شركة مكافحة النمل الابيض بالرياض
الإثنين أبريل 22, 2024 9:41 pm من طرف moslema_r
» Exemplary Сasual Dating - Verified Women
الخميس أبريل 18, 2024 9:18 pm من طرف wdqwd
» رش الدفان بالرياض
الخميس أبريل 18, 2024 7:11 pm من طرف moslema_r
» شركة تنظيف خزانات الشارقة
الخميس أبريل 18, 2024 6:57 pm من طرف moslema_r
» شركة مكافحة الفئران بالرياض
الإثنين أبريل 15, 2024 8:23 pm من طرف moslema_r
» افضل شركة كشف تسربات المياه بالباحة
الخميس أبريل 04, 2024 7:02 am من طرف gmalnagy
» ساعدوني وفهموني help me
الجمعة مارس 29, 2024 8:37 am من طرف linesoft