VB6.0设计模拟桌面程序

Question

我想设计一个模拟桌面的小程序，但不知怎么在上面加图标（快捷方式），谁能告诉我？
应该是用LmageList控件，但具体我不会使用。以下是我已完成的程序：
VERSION 5.00
Begin VB.Form Form1
Caption = "09科技桌面"
ClientHeight = 3090
ClientLeft = 60
ClientTop = 450
ClientWidth = 4680
Icon = "09科技桌面.frx":0000
LinkTopic = "Form1"
Picture = "09科技桌面.frx":0CCE
ScaleHeight = 3090
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim p As Picture

Private Sub Form_Load()
Me.AutoRedraw = True
Set p = LoadPicture("C:\WINDOWS\Web\Wallpaper\Bliss.bmp")
End Sub

Private Sub Form_Resize()
PaintPicture p, 0, 0, Width, Height
End Sub

Answer 1

在Windows中，桌面实际上就是资源管理器的右半部份(左半部份是文件夹结构的树状图，右半部分是列出左半部分选中的文件夹所包含的子文件夹及文件)，只不过就是在资源管理器中可以切换大图标、小图标、列表等而在桌面中只有大图标一种形式。在vb中具备这个功能的控件是ListView控件，所以应该考虑用1个ListView控件画满整个窗体的布局，而且你的桌面背景图片就应该是ListView控件的背景图片而不是Form的。
ListView控件在Microsoft Windows Common Controls 6.0中，使用前应该在控件工具栏空白处点右键选择“部件...”添加。
ListView控件使用的图标全部获取于ImageList控件中。向ImageList控件中添加图片的方法是在画到窗体上的一个ImageList控件上点右键属性。添加的每一个图片都有唯一的索引值，第一个图片的索引值为1，并向后排开。
由于具体使用ListView控件的方法比较繁絮，建议你参考相关vb教程，在教程中遇到的问题可继续追问。

Answer 2

不用用ImageList控件。
把“Form_Load”程序段改为：
Private Sub Form_Load()
Me.AutoRedraw = True
Set p = LoadPicture("C:\WINDOWS\Web\Wallpaper\Bliss.bmp")
PaintPicture p, 0, 0, Width, Height
End Sub
功能即可实现。本回答被网友采纳