TQTHAMI قام بنشر ديسمبر 2, 2022 مشاركة قام بنشر ديسمبر 2, 2022 السلام عليكم ورحمة الله وبركاتة بحثت في المنتدى ووحدت مثال للاخ ابا جودي (محمد عصام) ولكن صعوبت نقلة الى برنامحي حعلتني ابحث عن الاسهل ووجدت هذا المثال ولكن يختاج الى اضافة مذكورة في المثال ولكم خالص التحية اختصار.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة kanory قام بنشر ديسمبر 2, 2022 أفضل إجابة مشاركة قام بنشر ديسمبر 2, 2022 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 جرب وأعلمنا بالنتيجة <<<<<>>>>>> 1 رابط هذا التعليق شارك More sharing options...
TQTHAMI قام بنشر ديسمبر 2, 2022 الكاتب مشاركة قام بنشر ديسمبر 2, 2022 السلام عليكم ةرحمة الله ولركاتة يسعد لي مساءك اسعدني مرورك وجزاك الله خيرا تمت التجربة بنجاح نعم هو المطلوب (( روح الله يسعدك اينما رحت )) رابط هذا التعليق شارك More sharing options...
kanory قام بنشر ديسمبر 2, 2022 مشاركة قام بنشر ديسمبر 2, 2022 وعليكم السلام ورحمة الله وبركاته ولك بمثل مادعوت اخي @TQTHAMI 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.