ExtractIcon Method

Purpose

Creates an icon from the bitmap in the ListImage object.

Syntax

ListImage.ExtractIcon()

Description

Creates an icon from the bitmap in the ListImage object and returns a reference to the newly created icon as a Picture object.

Example

Dim p As Picture

Ocx ImageList iml

iml.ImageHeight = 32 : iml.ImageWidth = 32 : iml.MaskColor = $0c0c0c

iml.Add , "warning", CreatePicture(LoadIcon(Null, IDI_WARNING), False)

OpenW 1

Ocx Label lbl = "This is a no-go area", 10, 10, 100, 100 : lbl.Alignment = 2

Ocx Image img = "", 15, 15, 32, 32 : img.Transparent = True

Set img.Picture = iml.ListImages(1).ExtractIcon

Ocx Command cmd = "Do not click", 10, 120, 100, 22

cmd.MousePointer = basCustom : Set cmd.MouseIcon = iml.ListImages(1).ExtractIcon

lbl.MousePointer = 99 : Set lbl.MouseIcon = iml.ListImages(1).ExtractIcon

Do : Sleep : Until Win_1 Is Nothing

See Also

ListImage, ListImages, ImageList

{Created by Sjouke Hamstra; Last updated: 10/10/2014 by James Gaite}