الكود التالي ينشئ اختصار لبرنامج أو قاعدة بيانات أو أي ملف إما على سطح المكتب أو في قائمة البرامج أو قائمة بدء التشغيل :
يفترض الكود وجود مجموعة خيار باسم على لها ثلاثة أزرار خيار الأول سطح المكتب والثاني قائمة البرامج والثالث بدء التشغيل :
في الوحدة النمطية الخاصة بالنموذج ضع :
Option Compare Database
Private Declare Function fCreateShellLink Lib "Vb5stkit.dll" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
نشئ زر أمر وضع له الكود التالي عند حدث عند النقر :
Dim lReturn As Long
Select Case على
Case 1
'إنشاء اختصار على سطح المكتب
' للنسخة الإنجليزية
'lReturn = fCreateShellLink("....Desktop", _
"اختصار الى برنامجي", "c:windowscalc.exe", "")
' للنسخة العربية
lReturn = fCreateShellLink("....سطح المكتب", _
"اختصار الى برنامجي", "c:windowscalc.exe", "")
Case 2
'إنشاء اختصار على قائمة البرامج
lReturn = fCreateShellLink("", "اختصار الى برنامجي", _
"c:windowscalc.exe", "")
Case 3
'إنشاء اختصار على قائمة بدء التشغيل
' للنسخة الإنجليزية
'lReturn = fCreateShellLink("Startup", "اختصار الى برنامجي", _
"c:windowscalc.exe", "")
' للنسخة العربية
lReturn = fCreateShellLink("بدء التشغيل", "اختصار الى برنامجي", _
"c:windowscalc.exe", "")
End Select
ملاحظة هامة : الكود يحتاج لملف من نوع dll يوجد في الاصدار الرابع أو الاصدار الخامس من VB مع تغيير الملف حسب الاصدار .
' ضع الملف في WindowsSystem
' إذا كانت لديك VB5 استخدم Vb5stkit.dll
' إذا كانت لديك VB4 استخدم Stkit432.dll
============
الأخ حارث
سأرسل إليك الملف Vb5stkit.dll لتضع له رابط هنا وجزاك الله خيرا .
وللجميع تحياتي