灾煞在日柱:本例把一个位图加载到 ImageList

来源:百度文库 编辑:中财网 时间:2024/04/28 12:20:29

本例把一个位图加载到 ImageList 控件中。当用户单击窗体时,用 ExtractIcon 方法从该位图创建一个图标,并把该图标用作 Form 对象的 MouseIcon 属性的设置值。要试用此例,把 ImageList 控件放置到窗体上,并把代码粘贴到该窗体的声明部分。运行本例,并单击窗体。

Private Sub Form_Load()Dim imgX As ListImageSet imgX = ImageList1.ListImages. _Add(, , LoadPicture("bitmaps\assorted\balloon.bmp"))End SubPrivate Sub Form_Click()Dim picX As PictureSet picX = ImageList1.ListImages(1).ExtractIcon  '构造一个图标。With Form1   .MouseIcon =  picX   '设置新的图标。.MousePointer = vbCustom    '设置成自定义图标。End WithEnd Sub