怎么讓 ListView 不刷新

如何讓 ListView 不刷新

Private Sub Label1_Change(Index As Integer)

With ListView1
  .ListItems(Index).SubItems(1) = Label1(Index).Caption
End With

End Sub

Private Sub Command1_Click()
 ' 手动按下 Command1_Click() 时, 才让 ListView1 画面刷新到最新的值 
End Sub


' Label1 是一个 500 个控件阵列
' 请问
' 如何让 .ListItems(Index).SubItems(1) 填入数值后, ListView1 画面不刷新为最新的值 
' 手动按下 Command1_Click() 时, 才让 ListView1 画面刷新到最新的值 


[解决办法]


Private Sub Label1_Change(Index As Integer)
SendMessage ListView1.hWnd, WM_SETREDRAW, 0&, ByVal 0&
With ListView1
.ListItems(Index).SubItems(1) = Label1(Index).Caption
End With

End Sub

Private Sub Command1_Click()
 ' 手动按下 Command1_Click() 时, 才让 ListView1 画面刷新到最新的值
SendMessage ListView1.hWnd, WM_SETREDRAW, 1&, ByVal 0&
End Sub