مشروع رقم 1 – فيجوال بيسك :
البرنامج التالي يقوم بإضافة صورة تحددها أنت إلى الخلفية لسطح المكتب .
قم بكتابة الكود التالي في قسم التصريحات العامة :
كود:
Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Const SPI_SETDESKWALLPAPER = 20
وقم بكتابة الكود التالي داخل زر أو أي كائن :
كود:
Dim lngSuccess As Long
Dim strBitmapImage As String
strBitmapImage = "c:\windows\straw.bmp"
lngSuccess = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, strBitmapImage, 0)
مشروع رقم 5 – فيجوال بيسك :
كود للحصول على المسار لمجلد الويندوز على أي قرص هو موجود وضمن أي مسار :
أولاً : ضع الكود في قسم التصريحات العامة :
كود:
Public Const MAX_PATH = 260
Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
ثانياً : ضع الكود في أي كائن مثل زر أو ليبل :
كود:
Dim strBuffer As String
Dim lngReturn As Long
Dim strWindowsDirectory As String
strBuffer = Space$(MAX_PATH)
lngReturn = GetWindowsDirectory(strBuffer, MAX_PATH)
strWindowsDirectory = Left$(strBuffer, Len(strBuffer) - 1)
المتغير الأخير يحمل المسار الأصلي .