نحوه ساخت شورتکات با استفاده از امکانات خود ویژوال

[omid-vbAuto]

خوب سوال مشخصه.
می خوام این کارو بدون استفاده از dll خواصی انجام بدم.

[Navid Asadi]

منظورتون از shortcut چیه؟
اگه کلید میانبر هست که به نظر من از یه منو با visible فالس استفاده کن

[Hossis]

به این طریق می تونید میانبر بسازید


Option Explicit

Private Sub Command1_Click()
'This will Create a ShortCut of Notepad in our desktop, its name is "Notepad", minimize windows When run, use the 2nd icon As the Shortcut icon.

Create_ShortCut "C:\WINDOWS\NOTEPAD.EXE", "Desktop", "Notepad", , 7, 1
End Sub

Sub Create_ShortCut(ByVal TargetPath As String, ByVal ShortCutPath As String, ByVal ShortCutname As String, Optional ByVal WorkPath As String, Optional ByVal Window_Style As Integer, Optional ByVal IconNum As Integer)

Dim VbsObj As Object
Set VbsObj = CreateObject("WScript.Shell")

Dim MyShortcut As Object
ShortCutPath = VbsObj.SpecialFolders(ShortCutPath)
Set MyShortcut = VbsObj.CreateShortcut(ShortCutPath & "\" & ShortCutname & ".lnk")
MyShortcut.TargetPath = TargetPath
MyShortcut.WorkingDirectory = WorkPath
MyShortcut.WindowStyle = Window_Style
MyShortcut.IconLocation = TargetPath & "," & IconNum
MyShortcut.Save

End Sub

[omid-vbAuto]

به این طریق می تونید میانبر بسازید


Option Explicit

Private Sub Command1_Click()
'This will Create a ShortCut of Notepad in our desktop, its name is "Notepad", minimize windows When run, use the 2nd icon As the Shortcut icon.

Create_ShortCut "C:\WINDOWS\NOTEPAD.EXE", "Desktop", "Notepad", , 7, 1
End Sub

Sub Create_ShortCut(ByVal TargetPath As String, ByVal ShortCutPath As String, ByVal ShortCutname As String, Optional ByVal WorkPath As String, Optional ByVal Window_Style As Integer, Optional ByVal IconNum As Integer)

Dim VbsObj As Object
Set VbsObj = CreateObject("WScript.Shell")

Dim MyShortcut As Object
ShortCutPath = VbsObj.SpecialFolders(ShortCutPath)
Set MyShortcut = VbsObj.CreateShortcut(ShortCutPath & "\" & ShortCutname & ".lnk")
MyShortcut.TargetPath = TargetPath
MyShortcut.WorkingDirectory = WorkPath
MyShortcut.WindowStyle = Window_Style
MyShortcut.IconLocation = TargetPath & "," & IconNum
MyShortcut.Save

End Sub


ممنونم ولی نمی دونم مفهوم اعداد 1و 7 چی هستش؟ بر چه اصولی نوشتین؟

[Hossis]

ممنونم ولی نمی دونم مفهوم اعداد 1و 7 چی هستش؟ بر چه اصولی نوشتین؟

این سورس مربوط به وی بی 6 بوده که با کمی تغییر ، در وی بی دات نت هم اجرا می شه
اعداد مربوط هم با توجه به آرگومانهای مربوط به تابع مذکور (Create_Shortcut) معلومه
عدد هفت مربوط به استایل و عدد دوم (که صحیحش صفر هست) مربوط به شماره آیکون آن فایل اجرایی برای نمایش در آیکون هست.
به طور مثال اگر فایل اجرایی دو آیکون داشته باشد، با انتخاب عدد 1‌، آیکن دوم به میانبر نسبت داده می شود
این هم کد اصلاح شده به دات نت


Sub Create_ShortCut(ByVal TargetPath As String, ByVal ShortCutPath As String, ByVal ShortCutname As String, Optional ByVal WorkPath As String = "", Optional ByVal Window_Style As Integer = 1, Optional ByVal IconNum As Integer = 1)

Dim VbsObj As Object
VbsObj = CreateObject("WScript.Shell")

Dim MyShortcut As Object
ShortCutPath = VbsObj.SpecialFolders(ShortCutPath)
MyShortcut = VbsObj.CreateShortcut(ShortCutPath & "\" & ShortCutname & ".lnk")
MyShortcut.TargetPath = TargetPath
MyShortcut.WorkingDirectory = WorkPath
MyShortcut.WindowStyle = Window_Style
MyShortcut.IconLocation = TargetPath & "," & IconNum
MyShortcut.Save()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Create_ShortCut("C:\WINDOWS\NOTEPAD.EXE", "Desktop", "Notepad", , 7, 0)

End Sub

[omid-vbAuto]

منظور شما از استایل چی هستش؟


بعدش شما یه پارامتری رو قبل از 7 عدد ندادین.این واسه چی هست؟