精华区文章阅读

发信人: windoe (为中国电信做贡献), 信区: program
标  题: VB:如果在Windows中为自己的软件建立程序组和程序项�
发信站: 听涛站 (Fri Mar 10 19:09:12 2000), 转信

可以用Windows DDE(动态数据交换)的办法跟Program Manager(程序管理器)进行应答，
建亮程序组和程序项。程序实现如下：
1) 在VB中新建一个标准EXE工程；
2) 建立一个用于DDE数据交换的Label1；
3) 编写创建程序组CreateProgManGroup()和创建程序项CreateProgManItem()函数如下
：
Sub CreateProgManGroup(frm As Form, GroupName$, GroupPath$)
On Error Resume Next
Screen.MousePointer = 11
frm.Label1.LinkTopic = "ProgMan|Progman"
frm.Label1.LinkMode = 2
For i% = 1 To 10 '等待应答
z% = DoEvents()
Next i%
frm.Label1.LinkTimeout = 100
frm.Label1.LinkExecute "[CreateGroup(" + GroupName$ + Chr$(44) + GroupPath$
+ ")]"
DoEvents
frm.Label1.LinkTimeout = 50
frm.Label1.LinkMode = 0
Screen.MousePointer = 0
End Sub
Private Sub CreateProgManItem(frm As Form, CmdLine$, IconTitle$, IconFile$)
On Error Resume Next
Screen.MousePointer = 11
frm.Label1.LinkTopic = "ProgMan|Progman"
frm.Label1.LinkMode = 2
For i% = 1 To 10
z% = DoEvents()
Next i%
frm.Label1.LinkTimeout = 100
frm.Label1.LinkExecute "[ReplaceItem(" + IconTitle$ + ")]"
frm.Label1.LinkExecute "[AddItem(" + CmdLine$ + Chr$(44) + IconTitle$ + Chrr
$(44) + IconFile$ + Chr$(44) + ",,)]"
frm.Label1.LinkTimeout = 50
frm.Label1.LinkMode = 0
Screen.MousePointer = 0
End Sub
4) 在Form_Click()中编写主程序；
Sub Form_Click()
fname = "C:\TEST\TEST.EXE"
icontle = "图标标题"
iconpath = "C:\TEST\TEST.ICO" + ",0"
'建立图标
CreateProgManGroup Form1, "我的程序组", "TEST.GRP"
CreateProgManItem Form1, fname, icontle, iconpath
End Sub

--By Kammi's SuperPost General Version
--

夜中不能寐，起坐弹鸣琴。
    薄帷鉴明月，清风吹我襟。
孤鸿号外野，翔鸟鸣北林。
    徘徊将何见，忧思独伤心。

computer 版 (精华区)