1,453
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
online 2004-09-01
- 打赏
- 举报
这样看看
Private Sub Form_Load()
Dim i As Long
For i = 1 To 100
Me.TreeView1.Nodes.Add , , , "line " + CStr(i)
If (i Mod 2) = 1 Then
Me.TreeView1.Nodes(i).ForeColor = vbBlue
Else
Me.TreeView1.Nodes(i).ForeColor = vbGreen
End If
Next
End Sub
Private Sub Form_Load()
Dim i As Long
For i = 1 To 100
Me.TreeView1.Nodes.Add , , , "line " + CStr(i)
If (i Mod 2) = 1 Then
Me.TreeView1.Nodes(i).ForeColor = vbBlue
Else
Me.TreeView1.Nodes(i).ForeColor = vbGreen
End If
Next
End Sub
huangjianyou 2004-09-01
- 打赏
- 举报
^_^
starsoulxp 2004-09-01
- 打赏
- 举报
顶
pigfun73 2004-09-01
- 打赏
- 举报
我试试，谢谢!!!!!!!!!!!!
