[网络通信] 鼠标经过按钮产生效应问题（已解决）

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

$Form1 = GUICreate("Form1", 250, 500)
$k = 8
For $i = 1 To 16;总个数不定
        Global $Button[$i+1]
    $Button1 = GUICtrlCreateButton("Button"&$i, 29, $k, 195, 25)
    GUICtrlSetBkColor(-1, 0x99B4D1)
    $k+=30
        Next
GUISetState(@SW_SHOW)

;$PJ = 1
While 1
        $ID = GUIGetCursorInfo()
        $PJ  = $id[4]
        If Not @error Then
                If $PJ = $id[4] THEN
                        If $ID[4] = $PJ Then 
                                    GUICtrlSetBkColor($PJ, 0xEE2C2C)
                                                $PJ = 0
                                                
                                EndIf 
                ElseIf $PJ = 0 Then 
                ToolTip('鼠标下面的控件ID为：'&$PJ)                
                                 If  $ID[4] <> $PJ Then  
                                    GUICtrlSetBkColor($PJ, 0x99B4D1)
                                                $PJ = ''                
                                EndIf                 
                EndIf 
    EndIf                 
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
WEnd

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include 'GUICtrlOnHover.au3'

$Form1 = GUICreate("Form1", 250, 500)
$k = 8

$COUNT=16  ;隨便你要幾個 只要你放得下   只需要改這邊

Global $Button[$COUNT]
For $i = 0 To $COUNT-1

    $Button[$i] = GUICtrlCreateButton("Button"&$i+1, 29, $k, 195, 25)
        _GUICtrl_SetOnHover(-1, '_Hover_Proc', '_Leave_Hover_Proc', 'PrimaryDown_Proc', 'PrimaryUp_Proc')
    GUICtrlSetBkColor(-1, 0x99B4D1)
    $k+=30
Next

GUISetState(@SW_SHOW)


While 1
        
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                                

        EndSwitch
WEnd



Func _Hover_Proc($iCtrlID)
        Switch $iCtrlID
                Case $Button[0] TO $Button[UBound($Button)-1]
                       GUICtrlSetBkColor($iCtrlID, 0xEE2C2C)
                                                


        EndSwitch
EndFunc   ;==>_Hover_Proc

Func _Leave_Hover_Proc($iCtrlID)
        Switch $iCtrlID
                Case $Button[0] TO $Button[UBound($Button)-1]
                                                GUICtrlSetBkColor($iCtrlID, 0x99B4D1)

        EndSwitch
EndFunc   ;==>_Leave_Hover_Proc

GUICreate('BtnSetBkColor', 250, 500)
Local $ii, $Max = 16, $Button[$Max + 1], $iY = 8, $iLast = 0, $aInfo
For $ii = 1 To $Max ;???不定
        $Button[$ii] = GUICtrlCreateButton('Button' & $ii, 29, $iY, 195, 25)
        GUICtrlSetBkColor(-1, 0x99B4D1)
        $iY += 30
Next
GUISetState(@SW_SHOW)

While 1
        $aInfo = GUIGetCursorInfo()
        If Not @error Then
                If $aInfo[4] <> $iLast Then
                        If $iLast Then GUICtrlSetBkColor($iLast, 0x99B4D1)
                        GUICtrlSetBkColor($aInfo[4], 0xEE2C2C)
                        $iLast = $aInfo[4]
                EndIf
        EndIf
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case -3
                        Exit
        EndSwitch
WEnd