本帖最后由 oo2010 于 2011-9-14 18:41 编辑
_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile('../config/img/azz/logo.bmp')
$Imageh= _GDIPlus_ImageGetHeight($hImage)
$Imagew= _GDIPlus_ImageGetWidth($hImage)
_GDIPlus_ShutDown()
If $imageh < $Imagew Then
$imageh = 220 / $Imagew * $imageh
$hImagebtn = _GUIImageList_Create(220,$imageh, 5, 3)
Else
$imagew = 220 / $Imageh * $imagew
$hImagebtn = _GUIImageList_Create($imagew, 220, 5, 3)
EndIf
MsgBox(0,'',$imageh & ' ' & $Imagew)
_GUIImageList_AddBitmap($hImagebtn, '../config/img/azz/logo.bmp')
_GUICtrlButton_SetImageList($button11, $hImagebtn)
以上代码加载图片,并于按钮上显示出来,但是之后使用FileCopy函数进行图片覆盖时没有办法成功,即使用其它的图片来覆盖上面代码中加截的图片,是否有函数可以关闭图片的句柄?
If FileCopy ( './a.bmp', @ScriptDir & "\..\config\img\azz\logo.bmp", 1) Then
MsgBox(0,'result','OK')
Else
MsgBox(0,'result','no OK')
EndIf
|