Image ›› Load_image

Load_image

構文

Load_image(path,[ColorBack=0])

function Load_Image(byref sFileName as String , ByVal ColorBack As Integer=0) as HBITMAP

内容

画像をメモリに BITMAP としてロードできます。
Windowsでサポートされている形式: Jpeg, Png, Gif, Bmp, Tiff, Ico
Linuxでサポートされている形式: jpeg, png, tiff, ico, bmp.
（実際には、もっと多くのフォーマットを扱える可能性があります。GTK ライブラリがどのような構成で構築されているかによって異なります）

オプション

sFileName - 画像ファイルへのパス

ColorBack - 画像の背景色で透明度をサポートします。
下の画像の背景色は、デフォルトでは黒です。
関数 2の色: &hf0f0f0 を設定すると、背景はボタンの色と結合します。そして、魔術師だけが見える状態になります。
Linuxでは、このオプションが &hFF000000 の場合、透明度をサポートする画像に透明度がロードされます。
パラメータが &hFFFFFF 以下の場合、関数は Windows と同じように動作します。

プラットホーム

Windows , Linux

例１:

#Include "window9.bi"
Dim As integer event
Dim As HWND hwnd
hwnd=OpenWindow("1",300,10,100,200)
Var HIMAGE=Load_image("Transpar.png")   'ソースと同じフォルダにあるときはパス不要
ButtonImageGadget(1,10,10,80,80,HIMAGE, FB_BS_PUSHLIKE or BS_BITMAP)   '画像が表示され、凸凹になる
Do
   event=WaitEvent()
   If event=EventClose Then End
Loop

例２:

#Include "window9.bi"

Dim As integer hwnd,event
hwnd=OpenWindow("1",300,10,100,200)
'Var HIMAGE=Load_image("C:\WINDOWS\system32\oobe\images\merlin.gif")
Var HIMAGE=Load_image("merlin.gif")
ButtonImageGadget(1,10,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/