|
楼主 |
发表于 2010-7-1 20:23:12
|
显示全部楼层
本帖最后由 410521a 于 2010-7-1 20:24 编辑
Func Go($yc)
Local $iNo1 = ($yc - 1) * $iChange + 1
Local $iNo2
If $yc = $zys Then
$iNo2 = $vas[0][0]
SetState(64, 128, 64, 128)
ElseIf $yc = 1 Then
$iNo2 = $iNo1 + $iChange - 1
SetState(128, 64, 128, 64)
Else
$iNo2 = $iNo1 + $iChange - 1
SetState(64, 64, 64, 64)
EndIf
Read($iNo1, $iNo2)
GUICtrlSetData($Label5_4, $yc)
GUICtrlSetData($Combo5_1, '第' & $yc & '页')
$dqyc = $yc
EndFunc ;==>Go
这行我不懂为什么这样写`也太简单了
Func SetState($1, $2, $3, $4)
GUICtrlSetState($Button[16], $1)
GUICtrlSetState($Button[17], $2)
GUICtrlSetState($Button[15], $3)
GUICtrlSetState($Button[18], $4)
EndFunc ;==>SetState
Func Read($iNo1, $iNo2)
$z = 0+$zys1
_GUICtrlListView_DeleteAllItems($ListView5_1)
For $i = $iNo1 To $iNo2
GUICtrlCreateListViewItem($vas[$i][1], $ListView5_1)
GUICtrlSetData($Label5_2,$z)
Next
EndFunc ;==>Read
这个只是修改的你那个 |
|