Dim i As Integer Dim count As Integer = DgrdPower.Items.Count For i = 0 To count - 1 DgrdPower.Items(i).Attributes.Add("onmouseover", "currentcolor=this.style.backgroundColor;this.style.backgroundColor='#F0F5FF';this.style.color='Red'")
DgrdPower.Items(i).Attributes.Add("onmouseout", "this.style.backgroundColor=currentcolor;this.style.color='black'")
'DgrdPower.Items(i).Attributes.Add("onmouseover", "currentcolor=this.style.color;this.style.color='Red'")
'DgrdPower.Items(i).Attributes.Add("onmouseout", "currentcolor=this.style.color;this.style.color='black'")
Next
DgrdPower.Items(i).Attributes.Add("onmouseout", "this.style.backgroundColor=currentcolor;this.style.color='black'")
'DgrdPower.Items(i).Attributes.Add("onmouseover", "currentcolor=this.style.color;this.style.color='Red'")
'DgrdPower.Items(i).Attributes.Add("onmouseout", "currentcolor=this.style.color;this.style.color='black'")
Next
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货