本帖最后由 cfs43210 于 2014-5-21 22:04 编辑 #include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 623, 445, 192, 124)
$Button1 = GUICtrlCreateButton("插入", 144, 272, 145, 73)
$Pic1 = GUICtrlCreatePic("", 128, 24, 337, 185)
$Button2 = GUICtrlCreateButton("清空", 336, 272, 153, 81)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$var = FileOpenDialog("浏览照片", @MyDocumentsDir & "", "图像文件 (*.jpg;*.bmp)", 1 + 4)
GUICtrlSetImage($Pic1, $var)
Case $Button2
GUICtrlSetImage($Pic1, "") ;清空图片
GUICtrlSetResizing($Pic1, $GUI_DOCKSIZE)
EndSwitch
WEnd
GUICtrlSetImage加载的图片如何清空,谢谢!!
GUICtrlSetImage($Pic1, "")
这样可以清空图片,但加载不同大小的图片时,图片框会随图片大小而变化. |