求助求助求助求助

[ghbiou]

1. 如何建立应用程序的快捷方式
2. 在DataReport中能否用Label或其他控件显示运行时指定的任意字符?如何实现?

[zyl910]

1.搜索以前的帖子

[lvjack]

建立快捷方式
Private Declare Function fCreateShellLink Lib "vb5stkit.DLL" (ByVal _
lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal _
lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
Private Sub MakeShortCuts()
Dim lReturn As Long
Dim MyPath As String
Dim MyName As String
MyPath = App.Path
MyName = App.EXEName
'增加到桌面
lReturn = fCreateShellLink("..\..\Desktop", _
"Shortcut to Net Timer", MyPath & "\" & MyName, "")
'增加到启动组
lReturn = fCreateShellLink("\启动", "Shortcut to Net Timer", _
MyPath & "\" & MyName, "")
End Sub
----------------------------------------------------------------------------

[ghbiou]

谢谢啦!
第二个问题我自己也已经解决了!