控件点击事件[已解决]

Huiseyu

这个问题试了好几天都没结果...快进胡同了，求助大家点拨一下，如何获取下面控件的点击事件

Local $title = StringRegExpReplace(@ScriptName, '(\..*)', '')
Local $Width = 700
Local $Height = 500
Local $style = 0x10070000
Local $Advanced = 0x00000008
Local $hctr[10 ^ 2][10 ^ 2]
Local $hGui = GUICreate($title, $Width, $Height, -1, -1, $style, $Advanced)
Local $info = GUICtrlCreateLabel('value' ,$Width / 2.2 ,$Height-50,50,25 ,0X01,0x00100000)

For $o = 0 To 16
        For $i = 0 To 14
                $hctr[$i][$o] = GUICtrlCreateLabel($i, 0 + 40 * $o, $i * 23, 40, 25, 0X01, 0x00100000)
        Next
Next
While 1
        Switch GUIGetMsg()
                Case -3
                        Exit
                Case $hctr[0][0]  ； 这个地方如何获取点击事件 ，目前指定数字没有问题，换成$i ,$o就。。 ------
                        GUICtrlSetData($info ,$hctr[0][0])  ;这个地方，用来显示被点击的控件ID --
                        For $ix = 0 To 14
                        Next
        EndSwitch
WEnd

ddrs

帮顶下，这个有点头疼。

ap112

帮你改了改，建议使用一维数组，二维数组控制起来比较麻烦。详见代码

Local $title = StringRegExpReplace(@ScriptName, '(\..*)', '')
Local $Width = 700
Local $Height = 500
Local $style = 0x10070000
Local $Advanced = 0x00000008
Local $hctr[16*14]
Local $hGui = GUICreate($title, $Width, $Height, -1, -1, $style, $Advanced)
Local $info = GUICtrlCreateLabel('value' ,$Width / 2.2 ,$Height-50,50,25 ,0X01,0x00100000)

For $o = 0 To 16*14-1
        $hctr[$o] = GUICtrlCreateLabel(Mod($o,16)&Int($o/16), 40 * Mod($o,16), Int($o/16) * 23, 40, 25, 0X01, 0x00100000)
Next
While 1
        $nMsg = GUIGetMsg()
                Switch $nMsg        
                        Case -3
                                Exit
                        Case $hctr[0] To $hctr[16*14-1]
                                $a = GUIGetCursorInfo($hGui)
                                GUICtrlSetData($info,$a[4])
                EndSwitch
WEnd

jsgh1983

注册消息应该也可以解决这个问题。

Huiseyu

帮你改了改，建议使用一维数组，二维数组控制起来比较麻烦。详见代码
ap112 发表于 2015-8-20 10:19

    谢谢，正是这效果...结贴

Huiseyu

高手果断不一样。