改变拖动图标

拖动控件时，Visual Basic 将控件的灰色轮廓作为缺省的拖动图标。对 DragIcon 属性进行设置，就可用其它图象代替该轮廓。此属性包含对应图形图象的 Picture 对象。

设置 DragIcon 属性的最简单方法就是使用属性窗口。选定 DragIcon 属性后单击“属性”按钮，再从“加载图标”对话框中选择包含图形图象的文件。

可将 Visual Basic 图标库中的图标分配给 DragIcon 属性。（图标位于 \Program files\Microsoft Visual Basic\Icons 目录下。）也可用图象程序创建自己的拖动图标。

在运行时将一个控件的 DragIcon 属性赋给另一个控件的同一属性，由此就可选择拖动图标图象：

Set Image1.DragIcon = Image2.DragIcon

运行时将一个控件的 Picture 属性赋给另一控件的 DragIcon 属性，由此也可设置 DragIcon 属性：

Set Image1.DragIcon = Image3.Picture

还可使用 LoadPicture 函数：

Set Image1.DragIcon = LoadPicture("c:\Program _
files\Microsoft Visual Basic\Icons _
\Computer\Disk04.ico")

详细信息 关于 Picture 属性和 LoadPicture 函数的详细信息，请参阅“使用文本和图形”。同时请参阅“语言参考”的“Picture 属性”和“LoadPicture 函数”。