以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [分享] 生成快捷方式  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55755)
--  作者：lsy
--  发布时间：2014/8/22 15:11:00
--  [分享] 生成快捷方式

发布前后的文件名，请保持一致。

 

下面的代码，发布前后均有效。

 

登录窗口的确定按钮：

If e.Form.Controls("CheckBox快捷方式").Checked Then
     Dim x As New mylnk.mylnk
     Dim fl As String = FileSys.GetParentPath(ProjectPath) & "\\" & FileSys.GetName(ProjectFile).Replace("FoxEx","exe")
     If FileSys.FileExists(fl) Then
           x.CreateShortCut(FileSys.GetName(fl),fl)
     Else
           x.CreateShortCut(FileSys.GetName(ProjectFile),ProjectFile)
     End If

End If
--  作者：Bin
--  发布时间：2014/8/22 15:13:00
--  
谢谢分享
--  作者：land089
--  发布时间：2014/8/22 21:45:00
--  
未定义类型 mylnk.mylnk
--  作者：lsy
--  发布时间：2014/8/23 6:13:00
--  
以下是引用land089在2014-8-22 21:45:00的发言：
未定义类型 mylnk.mylnk

对不起，忘了：

将mylnk.dll文件拷贝到狐表安装文件夹。
外部引用：mylnk.dll

执行代码:

Dim x As New mylnk.mylnk
x.CreateShortCut(FileSys.GetName(ProjectFile),ProjectFile)

第一个参数为快捷方式名字,第二个参数为你的系统名字

 

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:创建快捷方式.rar

[此贴子已经被作者于2014-8-23 6:14:24编辑过]
--  作者：tongliaozyr
--  发布时间：2014/8/23 6:41:00
--  
学习
--  作者：狐狸爸爸
--  发布时间：2014/8/23 8:10:00
--  

好东西哦
--  作者：zyqzyy
--  发布时间：2014/8/24 10:24:00
--  

顶