Image ›› Extract_Icon

Extract_Icon

構文

Extract_Icon(FileName,Number, [color=&hf0f0f0] )

Function Extract_Icon(byref sFileName as String, ByVal number As Integer,ByVal colorBk As Integer=&hf0f0f0) as HBITMAP

内容

抽出されたアイコンから、処理されたビットマップを返します。
アイコンは、EXE や DLL ファイルから抽出します。

オプション

sFileName - EXE や DLL のファイル名

number - ファイル内のアイコンの番号

colorBk - 抽出したアイコンのための背景色（デフォルトは、Windows の標準色）

プラットホーム

Windows

例:

#Include "window9.bi"
Dim As integer event
Dim As Hbitmap HIMAGE
OpenWindow("1",300,10,100,140)
HIMAGE=Extract_Icon(GetSystemDir & "\SetupAPI.dll",22)
ButtonImageGadget(1,20,10,80,80,HIMAGE, BS_PUSHLIKE Or BS_AUTOCHECKBOX Or BS_BITMAP)   'BS_BITMAP の指定が必須
Do
   event=WaitEvent()
   If event=EventClose Then End
Loop

http://mneniya.ucoz.ru/