Dim btrv As Object = trv.BaseControl For Each nd As Object In btrv.Nodes Dim sp As TimeSpan = Date.Now - cDate(nd.Name) If Math.Abs(sp.TotalHours) <= 24 Then nd.ForeColor = Color.Red nd.NodeFont = new Font("宋体", 9, FontStyle.Bold) nd.ExpandAll End If Next
加好友 
发短信
Post By：2015/6/7 10:29:00 [显示全部帖子]
