7,762
社区成员
发帖
与我相关
我的任务
分享
...全文
请发表友善的回复…
发表回复
Ranma_True 2003-09-13
- 打赏
- 举报
fullrowselect=true
northwolves 2003-09-12
- 打赏
- 举报
Private Sub Command1_Click()
ListView1.ColumnHeaders.Add , , "I"
For i = 1 To 10
ListView1.ListItems.Add , , i
ListView1.ListItems(i).ForeColor = QBColor(i)
Next
ListView1.View = 2
ListView1.SetFocus
ListView1.ListItems(5).Selected = True
End Sub
ListView1.ColumnHeaders.Add , , "I"
For i = 1 To 10
ListView1.ListItems.Add , , i
ListView1.ListItems(i).ForeColor = QBColor(i)
Next
ListView1.View = 2
ListView1.SetFocus
ListView1.ListItems(5).Selected = True
End Sub
