生活已是百般艰难,为何不努力一点。下面图老师就给大家分享如何用VB建立捷径(ShortCut),希望可以让热爱学习的朋友们体会到设计的小小的乐趣。
【 tulaoshi.com - 编程语言 】
原本这应是用OLE的方式来做,但可用以下的方式来做,前题是有vb所提供的vb5stkit.dll所以令人不太愉快
(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)Private Declare Function fCreateShellLink Lib "vb5stkit.dll" _ (ByVal Forder As String, ByVal ShortCutName As String, _ ByVal ExePath As String, ByVal Params As String) As LongDim ret As Long'放在DeskTopret = fCreateShellLink("....Desktop", "MyName", "c:toolsspe3pe2.exe", "")'放在开始功能表ret = fCreateShellLink("..", "MyName", "c:toolsspe3pe2.exe", "")'放在程式集功能表ret = fCreateShellLink(".", "MyName", "c:toolsspe3pe2.exe", "")
来源:http://www.tulaoshi.com/n/20160219/1613415.html
看过《如何用VB建立捷径(ShortCut)》的人还看了以下文章 更多>>