本例把一个位图加载到 ImageList 控件中。当用户单击窗体时，用 ExtractIcon 方法从该位图创建一个图标，并把该图标用作 Form 对象的 MouseIcon 属性的设置值。要试用此例，把 ImageList 控件放置到窗体上，并把代码粘贴到该窗体的声明部分。运行本例，并单击窗体。
Private Sub Form_Load()
Dim imgX As ListImage
Set imgX = ImageList1.ListImages. _
Add(, , LoadPicture("bitmaps\assorted\balloon.bmp"))
End Sub
Private Sub Form_Click()
Dim picX As Picture
Set picX = ImageList1.ListImages(1).ExtractIcon '构造一个图标。
With Form1
.MouseIcon = picX '设置新的图标。
.MousePointer = vbCustom '设置成自定义图标。
End With
End Sub
|
