منتدى مصر التقني
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.
منتدى مصر التقني

تعلم لغات البرمجة (الفجوال بيسك 6 و الجافا و دلفى )و الشبكات ونظم المعلومات

سيتم تنشيط حسابات الاعضاء بعد 24 ساعة من التسجيل فى حالة عدم ارسال رابط التنشيط فور انتهاء من عملية التسجيل

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

منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: المشاريع و الاكواد الجاهزة

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

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

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

اهلا وسهلا بكم في منتدى مصر التقني
-------------------
البرنامج ھو بعض التحكمات بالنظام:والصورة التالية هو البرنامج
البرنامج ھو بعض التحكمات بالنظام 8BHHwcXHsUXHcUXPMEuOYJcPWT4OonwcIxsHBs5sBjMwcem33HFwoVKjSlAgtfBgtfBgtPgoUnwcIJsHDivwHu5ObRxN5A5wAAAABJRU5ErkJggg==
ننتقل الان الى كتابة الاكواد الخاصة بالبرنامج :
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
أيمن الإبراهيم
أيمن الإبراهيم
........
........

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

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

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

ََ

مواضيع ذات صلة

منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: المشاريع و الاكواد الجاهزة

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