那为什么我就不会闪。
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>
Global $hListView
_Main()
Func _Main()
$Form1 = GUICreate("Form1", 780, 640)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\LOGObjt.bmp", 5, 5, 770, 620)
GUICtrlSetState(-1, $GUI_DISABLE)
$hListView = GUICtrlCreateListView("cos_text1|cos_text2|cos_text3|cos_text4|cos_text5|cos_text6|cos_text7|cos_text8|cos_text9|", 8, 65, 752, 52, $LVS_EX_DOUBLEBUFFER, $WS_EX_CLIENTEDGE)
GUISetState()
; 循环直到用户退出
tianjia()
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
GUIDelete()
EndFunc ;==>_Main
Func tianjia()
Local $iI = 0, $y = 15
Local $aItems[$y][9]
For $x = 1 To $y;-1
$aItems[$iI][0] = 'text' & $x
$aItems[$iI][1] = 'text' & $x
$aItems[$iI][2] = 'text' & $x
$aItems[$iI][3] = 'text' & $x
$aItems[$iI][4] = 'text' & $x
$aItems[$iI][5] = 'text' & $x
$aItems[$iI][6] = 'text' & $x
$aItems[$iI][7] = 'text' & $x
$aItems[$iI][8] = 'text' & $x
GUICtrlCreateListViewItem($aItems[$iI][0] & "|" & $aItems[$iI][1] & "|" & $aItems[$iI][2] & "|" & $aItems[$iI][3] & "|" & $aItems[$iI][4] & "|" & $aItems[$iI][5] & "|" & $aItems[$iI][6] & "|" & $aItems[$iI][7] & "|" & $aItems[$iI][8], $hListView)
Sleep(200)
$iI += 1
$iY = _GUICtrlListView_ApproximateViewHeight($hListView)
_WinAPI_SetWindowPos(GUICtrlGetHandle($hListView), 0, 8, 65, 752, $iY + 4, $SWP_NOZORDER)
Next
GUICtrlSetBkColor($hListView, $CLR_MONEYGREEN)
_GUICtrlListView_SetBkColor($hListView, 14675183)
EndFunc ;==>tianjia
|