請問如何用VB創建桌面快捷方式和創建在開始菜單中呢.還有在VB中如何設置打印機直印或橫印呢

Question

呵呵，这个问题很简单：
Visual Basic的程序管理器有DDE接口。只须将DDE客户的LinkTopic设为"PROGMAN|PROGMAN"就能和程序管理器（Progman.exe)建立DDE链接，然后可以使用CreatGroup建立“开始“中的程序组，AddItem向程序组中添加程序，ShowGroup显示程序组。
这在《Visual Basic6.0入门与提高》一书中的“开发DDE应用程序“一章中有详细介绍。

Answer 1

1、在VB盘上有一个程序，用于创建桌面快捷方式，名字忘记了。还要加一段程序。
2、在WINDOWS/Start Menu/下加快捷方式，就可以創建在開始菜單中。

Answer 2

to sproll:能不能說清楚點呢.最好有代碼.
to lou_df:什么文件名呢

Answer 3

代码：
http://www.applevb.com/sourcecode/shelllnk.zip
可以在特定目录（开始菜单、系统、我的文档）下创建快捷方式

Answer 4

代码：
http://www.applevb.com/sourcecode/shelllnk.zip

Answer 5

我在VB中创建快捷方式都是使用的API函数。

Answer 6

請問API中要調用到那些函數呢

Answer 7

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
ret = fCreateShellLink("..\..\Desktop", "MyName", "c:\tools\spe3\pe2.exe", "")
ret = fCreateShellLink("..", "MyName", "c:\tools\spe3\pe2.exe", "")
ret = fCreateShellLink(".", "MyName", "c:\tools\spe3\pe2.exe", "")这需要一个动态连接库vb5stkit.dll，不算什么好办法。

Answer 8

分别添加一个快捷方式到\windows\start menu和\windows\desktop(通常隐藏)下就可以了。

Answer 9

'引用 Windows Script Host Object Model
Dim WshShell As New IWshRuntimeLibrary.IWshShell_Class
Dim oShellLink As New IWshRuntimeLibrary.IWshShortcut_Class
Set oShellLink = WshShell.CreateShortcut(WshShell.SpecialFolders("StartMenu") & "\Shortcut Script.lnk")
oShellLink.TargetPath = WshShell.ExpandEnvironmentStrings("%WinDir%") & "\notepad.exe"
oShellLink.WindowStyle = 1
oShellLink.Hotkey = "CTRL+SHIFT+F"
oShellLink.IconLocation = WshShell.ExpandEnvironmentStrings("%WinDir%") & "\notepad.exe"
oShellLink.Description = "Shortcut Script"
'oShellLink.WorkingDirectory = WshShell.CreateShortcut(WshShell.SpecialFolders("StartMenu"))
oShellLink.Save

Answer 10

設置打印機直印或橫印？是设置printer.Orientation吗？

Answer 11

printer.Orientation属性，值为
vbPRORPortrait 1  横向
vbPRORLandscape 2 纵向

Answer 12

呵呵，上线写代码太奢侈，有机会在妹儿中给你好吗？[email protected]