أضافة صورة

[TQTHAMI]

السلام عليكم ورحمة الله وبركاتة

بحثت في المنتدى ووحدت مثال للاخ ابا جودي (محمد عصام) ولكن صعوبت نقلة الى برنامحي حعلتني ابحث عن الاسهل ووجدت هذا المثال ولكن يختاج الى اضافة مذكورة في المثال 

ولكم خالص التحية

 

اختصار.rar

[kanory]

17 ساعات مضت, TQTHAMI said:

السلام عليكم ورحمة الله وبركاتة

بحثت في المنتدى ووحدت مثال للاخ ابا جودي (محمد عصام) ولكن صعوبت نقلة الى برنامحي حعلتني ابحث عن الاسهل ووجدت هذا المثال ولكن يختاج الى اضافة مذكورة في المثال 

ولكم خالص التحية

انشأ وحدة نمطية وضع فيها هذا الكود ..............

Public Sub CreateDesktopShortcutWithIcon()
    Dim WshShell As Object
    Set WshShell = CreateObject("Wscript.Shell")
    Dim strDesktop As String
    strDesktop = WshShell.SpecialFolders("Desktop")
    Dim oShellLink As Object
    Dim fil, fil1 As String
    
    Set oShellLink = WshShell.CreateShortcut(strDesktop & "\" & DLookup("[nsh]", "[tblsho]") & ".lnk")
       
    oShellLink.TargetPath = CurrentProject.Path & "\" & CurrentProject.Name
    oShellLink.WindowStyle = 1
    
    oShellLink.IconLocation = DLookup("[pc]", "[tblsho]")
    oShellLink.Description = DLookup("[nsh]", "[tblsho]")
    oShellLink.WorkingDirectory = strDesktop
    oShellLink.Save
End Sub

تحت الزر الموجود في النموذج ضع هذا الاستدعاء .............

Call CreateDesktopShortcutWithIcon

جرب وأعلمنا بالنتيجة <<<<<>>>>>>

[TQTHAMI]

السلام عليكم ةرحمة الله ولركاتة

يسعد لي مساءك

اسعدني مرورك وجزاك الله خيرا 

تمت التجربة بنجاح

نعم هو المطلوب

(( روح الله يسعدك اينما رحت ))

 

[kanory]

وعليكم السلام ورحمة الله وبركاته 

ولك بمثل مادعوت اخي @TQTHAMI