帮你改了改,建议使用一维数组,二维数组控制起来比较麻烦。详见代码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
|