- 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
复制代码 当然,还可以全部用图片制作,绘制各个部件,再组装。 |