这个只能用 For 循环来做。题主的那段代码已经摸到门槛了,加个循环就可以了。
For i = 1 To ListView1.ColumnHeaders.Count - 1
ListView1.SelectedItem.ListSubItems(i).ForeColor = vbRed
Next i
第二个问题:
当双击(其实就是选中)某一行时,ListView.SelectedItem.Index 这个属性会改变,只要根据这个不同的值来判断打开哪个窗口就可以了。
Private Sub ListView1_DblClick()
Dim n As Integer
n = ListView1.SelectedItem.Index + 1
Select Case n
Case 1
Msgbox "双击了第一行"
Form1.Show
Case 2
Msgbox "双击了第二行"
Form2.Show
End Select
End Sub