能不能改变Checkbox控件字体的颜色？

kn007 · 发表于 2009-9-28 15:03:32

用GUICtrlSetColor(Checkbox1, 14276054)无效，有点郁闷

afan · 发表于 2009-9-28 15:50:00

确实无效，看来只能建个Label帮它显示彩色文字了

newmin · 发表于 2009-9-28 15:50:15

刚刚试了，可以设置颜色

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 292, 267, 192, 124)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 96, 56, 97, 17)
$Button = GUICtrlCreateButton("改变颜色", 104, 128, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button
            GUICtrlSetBkColor($Checkbox1, 0xFF00FF)        
        EndSwitch
WEnd

pusofalse · 发表于 2009-9-28 15:53:37

系统主题问题，或者。。。人品问题（？）^_^

newmin · 发表于 2009-9-28 15:59:36

刚看错啦，字体颜色弄了下，确实不可以。

afan · 发表于 2009-9-28 16:14:36

系统主题问题，或者。。。人品问题（？）^_^
pusofalse 发表于 2009-9-28 15:53

换了个非WinXP主题可以，还好不是RPWT…… ^____^

kn007 · 发表于 2009-9-28 17:15:02

刚刚试了，可以设置颜色#include
#include
#include
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 292, 267, 192, 124)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 96 ...
newmin 发表于 2009-9-28 15:50

这个的话，我会，我已经搞了，太不美观了

kn007 · 发表于 2009-9-28 17:18:00

换了个非WinXP主题可以，还好不是RPWT…… ^____^
afan 发表于 2009-9-28 16:14

。。。。。。。但不能保证别人的电脑是非winxp主题啊

kn007 · 发表于 2009-9-28 17:20:07

确实无效，看来只能建个Label帮它显示彩色文字了
afan 发表于 2009-9-28 15:50

讨厌的是GUICtrlCreateCheckbox有最小长度，建个label只要鼠标移到Checkbox，label就大半部分被遮掉了

afan · 发表于 2009-9-28 18:01:52

9# kn007

这样行不？

GUICreate("选框文字", 300, 200)
$Checkbox1 = GUICtrlCreateCheckbox("", 20, 20, 15, 20)
$l1 = GUICtrlCreateLabel("复选框1", 36, 24, 50, 20)
GUICtrlSetColor(-1, 0xFF00FF)
$Checkbox2 = GUICtrlCreateCheckbox("复选框2", 20, 50)
GUISetState()

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case -3
                        Exit
                Case $l1
                        If GUICtrlRead($Checkbox1) = 1 Then
                                GUICtrlSetState($Checkbox1, 4)
                        Else
                                GUICtrlSetState($Checkbox1, 1)
                        EndIf
        EndSwitch
WEnd

顽固不化 · 发表于 2009-9-28 18:09:28

楼上的代码可以。就是+带色的label。

checkbox字体不能上色算不算au3的Bug？

kn007 · 发表于 2009-9-28 20:30:04

感谢afan，今天自己有点心不在焉，要考试了

afan · 发表于 2009-9-28 20:53:01

12# kn007

要考试? 想想都累得慌...
不过想想考完后的舒坦, 你就不会觉得那么累了~~

jycel · 发表于 2009-9-28 21:24:00

学习了，程序是死的，人是活的，真的是！哈哈！没有啥难得到的！

netegg · 发表于 2009-9-29 06:28:10

本帖最后由 netegg 于 2009-9-29 06:31 编辑

做个组绑定一下不是和原来的控件一样吗

		自动登录	找回密码
密码			加入

能不能改变Checkbox控件字体的颜色？

评分