Private Sub Command1_Click()
ListView1.ColumnHeaders.Add , , "I"
For i = 1 To 30
ListView1.ListItems.Add , , i
ListView1.ListItems(i).ForeColor = QBColor(i Mod 15)
Next
ListView1.View = 2
End Sub
ListView1.ColumnHeaders.Add , , "I"
For i = 1 To 30
ListView1.ListItems.Add , , i
ListView1.ListItems(i).ForeColor = QBColor(i Mod 15)
Next
ListView1.View = 2
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货