يستخدم ھذا التابع لمعرفة مسار مجلد السیستیم ويكون شكله كالتالي :
Private Declare Function GetSystemDirectory Lib "kernel32" Alias
"GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
: Form_Load واكتب الكود الآتي بالحدث Label ثم ضع على الفورم أداة عنوان 1
Private Sub Form_Load()
Dim Si
Dim Sys as String
Sys = Space(144)
Si = GetSystemDirectory(Sys, 144)
Label1 = Sys
End Sub
التابع الثاني :
يستخدم التابع التالي في السواقة (فتحھا وإغلاقھا) ويكون الشكل العام كالتالي :
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
: General اكتب الإجراء التالي في القسم العام
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
Command1 , Command2 .Command Button ضع على الفورم 2 زر أمر
الثاني إلى "إغلاق السواقة" واكتب الكود : Caption الأول إلى "فتح السواقة", غیر Caption غیر
Private Sub Command1_Click()
OpenCDDriveDoor (True)
End Sub
Private Sub Command2_Click()
OpenCDDriveDoor (False)
End Sub
التابع الثالث:
يستخدم ھذا التابع لإفراغ سلة المحذوفات ويكون شكله كالتالي :
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
: Command1_Click واكتب الكود الآتي بالحدث Command وضع على الفورم زر أمر 1
Private Sub Command1_Click()
SHEmptyRecycleBin Me.hwnd, vbNullString, 0
SHUpdateRecycleBinIcon
End Sub
التابع الرابع :
يستخدم ھذا التابع لإخفاء أو إظھار رموز سطح المكتب ويكون شكله كالتالي :
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
.Command2 , Command ثم ضع على الفورم 2 أزرار 1
الثاني إلى "إخفاء الرموز" واكتب الكود الآتي : Caption ، " الأول إلى "إظھار الرموز Caption غیر
Private Sub Command1_Click()
Dim hwnd As Long
hwnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow hwnd, 5
End Sub
Private Sub Command2_Click()
Dim hwnd As Long
hwnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow hwnd, 0
End Sub
التابع الخامس:
يستخدم ھذا التابع للتأكد من وجود ملف وإذا لم يكن موجود ينشئه ويكون شكله :
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll"
(ByVal lpPath As String) As Long
: Form_Load ونضع الكود الآتي بالحدث
Private Sub Form_Load()
MakeSureDirectoryPathExists " "مسار الملف من دون اسم الملف
End Sub
الأحد يوليو 10, 2011 8:54 am من طرف أحمدالسيدالصعيدي
» الشبكات NETWORKS
الجمعة ديسمبر 17, 2010 9:58 pm من طرف THE DRAGON
» صفارات BIOS
الجمعة ديسمبر 17, 2010 9:54 pm من طرف THE DRAGON
» proxy >>>بروكسي
الجمعة ديسمبر 17, 2010 9:44 pm من طرف THE DRAGON
» بدك تحرم الضحيه على انو يفوت على الياهوو مسنجر او على ايماله الخاص
الخميس ديسمبر 02, 2010 5:26 am من طرف bibeto008
» قصيدة باللغة الانكليزية
الأحد نوفمبر 28, 2010 12:51 am من طرف lana
» مهم جداً...............
السبت نوفمبر 27, 2010 1:09 pm من طرف عاشق الاحساس
» اصابة الاربطة المتصالبة للركبة
الجمعة نوفمبر 26, 2010 5:24 pm من طرف THE DRAGON
» كبار السن و الرياضة
الجمعة نوفمبر 26, 2010 5:21 pm من طرف THE DRAGON