listview问提,高手赶紧过来帮忙!

Question

有listview、msflexgrid和cmd1、cmd2按纽
cmd初始状态是灰的(不可用的).
msflexgrid是空白的.1.当我选中listview中的复选框后,cmd1变亮(该按纽可用);不选中,cmd1变灰(按纽不可用).2.起初msflexgrid是无数据的，那么cmd2是灰的（不可用），当我向msflexgrid添加数据后,cmd2变亮（按纽可用）
  总之，msflexgrid没有数据，cmd2不能用，反之，可用。
如何实现?? 
谢谢！

Answer 1

'TreeView1的Click事件
Cmd1.Enabled = IIf(TreeView1.Nodes.Count = 0, False, True)'没有数据不可用
Cmd1.Enabled = IIf(TreeView1.SelectedItem.Text="", False, True)'没有选中不可用
'msflexgrid1的Click事件
Cmd2.Enabled = IIf(msflexgrid1.TextMatrix(msflexgrid1.RowSel, 0) = "", False, True)

Answer 2

Private Sub Form_Load()
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "1"
ListView1.ColumnHeaders.Add , , "2"
For i = 0 To 9
ListView1.ListItems.Add , , i
Next
Timer1.Interval = 1000
ListView1.Checkboxes = True
MSFlexGrid1.Rows = 10
MSFlexGrid1.Cols = 5
End SubPrivate Sub Timer1_Timer()
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Checked = True Then
Command1.Enabled = True
Exit For
Else
Command1.Enabled = False
End If
Next
For i = 0 To MSFlexGrid1.Rows - 1
For j = 0 To MSFlexGrid1.Cols - 1
If MSFlexGrid1.TextMatrix(i, j) <> "" Then
Command2.Enabled = True
Exit For
Else
Command2.Enabled = False
End If
Next
Next
End Sub