[分享] 生成快捷方式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [分享] 生成快捷方式

共有2868人关注过本帖树形打印复制链接主题：[分享] 生成快捷方式

lsy

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

[分享] 生成快捷方式 发帖心情

Post By：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

lsy

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：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编辑过]

下一主题 >> << 上一主题

主题：[分享] 生成快捷方式