[已解决]修改控件颜色遇到麻烦,脑子不够用了....

guland · 发表于 2010-8-14 09:28:04

本帖最后由 guland 于 2010-8-14 11:45 编辑

我想做的是点击一下按钮当前控件恢复成原来的颜色,然后下一个控件变成黄色
就想图片中的一样,现在1是黄色,其它的都是白色,点击按钮一次1变成包白色,2变成黄色,以此类推
研究N久没搞明白怎么弄,黄色的部分是Label,那些框是Group,只需要改变Label的背景色就可以了

谢谢大家回复,我的问题没有说清楚,补充一下,我的窗口是要放在func里面的

谢谢大家的解答,最后我用数组加FOR搞定了,代码真实精简一多半啊.........

jinyue115 · 发表于 2010-8-14 09:45:58

帮顶我不会

水木子 · 发表于 2010-8-14 09:54:34

本帖最后由水木子于 2010-8-14 10:56 编辑

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

GUICreate("Form1", 300, 400)
$Label1 = GUICtrlCreateLabel("", 50, 40, 50, 30)
GUICtrlSetBkColor(-1, 0xFFFF00)
$Label2 = GUICtrlCreateLabel("", 50, 100, 50, 30)
GUICtrlSetBkColor(-1, 0xFFFF00)
$Label3 = GUICtrlCreateLabel("", 50, 160, 50, 30)
GUICtrlSetBkColor(-1, 0xFFFF00)
$Label4 = GUICtrlCreateLabel("", 50, 220, 50, 30)
GUICtrlSetBkColor(-1, 0xFFFF00)
GUICtrlCreateGroup("Group1", 40, 24, 70, 55)
GUICtrlCreateGroup("Group2", 40, 84, 70, 55)
GUICtrlCreateGroup("Group3", 40, 144, 70, 55)
GUICtrlCreateGroup("Group4", 40, 204, 70, 55)
GUISetState()

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case - 3
                        Exit
                Case $Label1 To $Label4
                        If Eval('!' & $nMsg) = '' Then
                                GUICtrlSetBkColor($nMsg, 0x00ff00) ;绿色
                                Assign('!' & $nMsg, 1)
                        Else
                                GUICtrlSetBkColor($nMsg, 0xFFFF00) ;黄色
                                Assign('!' & $nMsg, '')
                        EndIf
        EndSwitch
WEnd

Ziya · 发表于 2010-8-14 10:14:31

本帖最后由 Ziya 于 2010-8-14 10:17 编辑

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>



GUICreate("Form1", 300, 400)
$Label1 = GUICtrlCreateLabel("", 50, 40, 50, 30)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label2 = GUICtrlCreateLabel("", 50, 100, 50, 30)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label3 = GUICtrlCreateLabel("", 50, 160, 50, 30)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label4 = GUICtrlCreateLabel("", 50, 220, 50, 30)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlCreateGroup("Group1", 40, 24, 70, 55)
GUICtrlCreateGroup("Group2", 40, 84, 70, 55)
GUICtrlCreateGroup("Group3", 40, 144, 70, 55)
GUICtrlCreateGroup("Group4", 40, 204, 70, 55)

$Button1 = GUICtrlCreateButton("Button1", 176, 56, 75, 25)
GUISetState()
Local $L[5]
$L[0] = ""
$L[1] =$Label1
$L[2] =$Label2
$L[3] =$Label3
$L[4] =$Label4

$a = 0
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case - 3
                        Exit
                                        Case $Button1
                                                
                                                If $a = 4 Then
                                                        GUICtrlSetBkColor($L[$a], 0xFFFFFF)
                                                        $a = 0
                                                Else
                                                        GUICtrlSetBkColor($L[$a], 0xFFFFFF)
                                                        GUICtrlSetBkColor($L[$a + 1], 0xffff00)
                                                        $a += 1
                                                EndIf
                                                
                                                
                        
        EndSwitch
WEnd

来个笨方法的.....

Ziya · 发表于 2010-8-14 10:22:22

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>



GUICreate("Form1", 300, 400)
$Label1 = GUICtrlCreateLabel("", 50, 40, 50, 30)
GUICtrlSetBkColor(-1, 0xffff00)
$Label2 = GUICtrlCreateLabel("", 50, 100, 50, 30)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label3 = GUICtrlCreateLabel("", 50, 160, 50, 30)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label4 = GUICtrlCreateLabel("", 50, 220, 50, 30)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlCreateGroup("Group1", 40, 24, 70, 55)
GUICtrlCreateGroup("Group2", 40, 84, 70, 55)
GUICtrlCreateGroup("Group3", 40, 144, 70, 55)
GUICtrlCreateGroup("Group4", 40, 204, 70, 55)

$Button1 = GUICtrlCreateButton("Button1", 176, 56, 75, 25)
GUISetState()


$a = $Label1
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case - 3
                        Exit
                                        Case $Button1
                                                
                                                If $a = $Label4 Then
                                                        GUICtrlSetBkColor($a, 0xFFFFFF)
                                                        $a = $Label1
                                                        GUICtrlSetBkColor($a, 0xffff00)
                                                Else
                                                        GUICtrlSetBkColor($a, 0xFFFFFF)
                                                        GUICtrlSetBkColor($a + 1, 0xffff00)
                                                        $a += 1
                                                EndIf
                                                
                                                
                        
        EndSwitch
WEnd

修改了一下,这个应该比上一个聪明点了.....

guland · 发表于 2010-8-14 10:37:19

感谢大家回复!不过我的窗口时要放在FUNC里面的,你们发的这些代码放在FUNC里面不起作用

Ziya · 发表于 2010-8-14 10:45:37

群里下了你的代码.....
没玩过这个模式的.....等其他人吧=.=
你还是把代码丢上来好一些吧

水木子 · 发表于 2010-8-14 10:54:39

是这样吗？

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
MyGui()

Func MyGui()
        GUICreate("Form1", 300, 400)
        $Label1 = GUICtrlCreateLabel("", 50, 40, 50, 30)
        GUICtrlSetBkColor(-1, 0xFFFF00)
        $Label2 = GUICtrlCreateLabel("", 50, 100, 50, 30)
        GUICtrlSetBkColor(-1, 0xFFFF00)
        $Label3 = GUICtrlCreateLabel("", 50, 160, 50, 30)
        GUICtrlSetBkColor(-1, 0xFFFF00)
        $Label4 = GUICtrlCreateLabel("", 50, 220, 50, 30)
        GUICtrlSetBkColor(-1, 0xFFFF00)
        GUICtrlCreateGroup("Group1", 40, 24, 70, 55)
        GUICtrlCreateGroup("Group2", 40, 84, 70, 55)
        GUICtrlCreateGroup("Group3", 40, 144, 70, 55)
        GUICtrlCreateGroup("Group4", 40, 204, 70, 55)
        GUISetState()

        While 1
                $nMsg = GUIGetMsg()
                Switch $nMsg
                        Case - 3
                                Exit
                        Case $Label1 To $Label4
                                Color($nMsg)

                EndSwitch
        WEnd
EndFunc   ;==>MyGui

Func Color($nMsg)
        If Eval('!' & $nMsg) = '' Then
                GUICtrlSetBkColor($nMsg, 0x00ff00) ;绿色
                Assign('!' & $nMsg, 1, 2)
        Else
                GUICtrlSetBkColor($nMsg, 0xFFFF00) ;黄色
                Assign('!' & $nMsg, '', 2)
        EndIf
EndFunc   ;==>Color

xsjtxy · 发表于 2010-8-14 11:11:53

回复 6# guland

那你直接把你的源代理发出来。大家帮你改得了。

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

[效率算法] [已解决]修改控件颜色遇到麻烦,脑子不够用了....

本帖子中包含更多资源

评分

相关帖子

评分

评分

评分

评分