画像をアイコンとして保存する

画像をアイコンとして保存するにはImageListコントロールとSavePictureステートメントを使えば簡単に出来ます。
まず画像をImageListに追加して、ExtractIconメソッドでアイコンに変換したものをPictureBoxなどのPictureプロパティにいれ、
それをSavePictureステートメントで保存します。

＊ImageListを一つとPictureBox一つをフォームに配置して、
　PictureBoxに好きな絵を入れてください。

With Picture1
    .BorderStyle = 0
    .ScaleMode = vbPixels
    
    'Iconサイズにする
    .Move .Left, .Top, 32, 32
        
    '透過色を指定する
    With ImageList1
        '使用しない場合はFalse
        .UseMaskColor = True
        '透過する色の設定
        .MaskColor = vbWhite
    End With
    
    'イメージリストに追加
    ImageList1.ListImages.Add 1, , .Image
    
    'アイコンに変更したものをPictureプロパティへ
    .Picture = ImageList1.ListImages(1).ExtractIcon
    
    'ファイルに保存
    SavePicture .Picture, "ファイル名"
    
End With

BACK