回复 22# afan
初始化时是如下语句:$Pic[0] = GUICtrlCreatePic("C:\windows\no.jpg", 166, 67, 17, 17)
$Pic[1] = GUICtrlCreatePic("C:\windows\no.jpg", 166, 91, 17, 17)
$Pic[2] = GUICtrlCreatePic("C:\windows\no.jpg", 166, 115, 17, 17)
$Pic[3] = GUICtrlCreatePic("C:\windows\no.jpg", 166, 140, 17, 17)
$Pic[4] = GUICtrlCreatePic("C:\windows\no.jpg", 166, 164, 17, 17)
$Pic[5] = GUICtrlCreatePic("C:\windows\no.jpg", 166, 189, 17, 17)
$Pic[6] = GUICtrlCreatePic("C:\windows\no.jpg", 166, 212, 17, 17)
Pic控件复制语句:$data = UDPRecv($Socket_received, 128)
If $data <> "" Then
;$data = BinaryToString($data,4)
$Data_array = StringSplit($data,"|")
If $Data_array[0] = 5 Then
;_ArrayDisplay($Data_array)
$Number = StringRight($Data_array[1],2)
$Number = $Number - 20
GUICtrlSetData($CellID[$Number],$Data_array[2])
GUICtrlSetData($Product[$Number],$Data_array[3])
GUICtrlSetImage($pic[$Number], "C:\windows\online.jpg")
GUICtrlSetData($IP[$Number],$Data_array[4])
GUICtrlSetColor($ip[$Number],0x00ff00)
GUICtrlSetData($Rev[$Number],$Data_array[5])
ElseIf $Data_array[0] = 2 Then
GUICtrlSetData($Edit1, $Data_array[1]&">> "&$Data_array[2]&@CRLF,1)
EndIf
EndIf
|