Global $ImageIx, $Image9[2], $Pica, $iBtl
$Image9[0] = @ScriptDir & "\skin\radio1.bmp"
$Image9[1] = @ScriptDir & "\skin\radio2.bmp"
GUICreate("Form1", 483, 343, 192, 124)
$Pica = GUICtrlCreatePic('', 50, 00, 32, 32)
GUICtrlSetBkColor(-1, -2)
$iBtl = GUICtrlCreateLabel('', 100, 10, 200, 15)
GUISetState()
_SetIMG()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $Pica
_SetIMG()
EndSwitch
WEnd
Func _SetIMG()
$ImageIx = Number($ImageIx = 0)
GUICtrlSetImage($Pica, $Image9[$ImageIx])
GUICtrlSetData($iBtl, $Image9[$ImageIx])
EndFunc ;==>_SetIMG
|