GUICreate("Form1", 201, 159, 243, 234)
FileInstall("z.jpg", @SystemDir & "")
$pic1 = GUICtrlCreatePic(@SystemDir & "\z.jpg", 0, 0, 201, 159, 0x04000000)
$Checkbox1 = GUICtrlCreateCheckbox("", 8, 8, 12, 12)
$Label1 = GUICtrlCreateLabel("为什么加载了背景图点不上钩", 22, 9, 150, 12)
GUICtrlSetBkColor(-1, -2)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $Label1
If GUICtrlRead($Checkbox1) = 1 Then
GUICtrlSetState($Checkbox1, 4)
Else
GUICtrlSetState($Checkbox1, 1)
EndIf
EndSwitch
WEnd
当然,还可以全部用图片制作,绘制各个部件,再组装。 |