比如让第1和第5行前面的图片轮换闪动,像QQ来信息一样的,怎么做。求详细的代码。Function showData() lv1.ColumnHeaders.Add , , mdbname 'Reco("供应商编号")
lv1.View = lvwReport '以图表方式显示,显示头部标题栏
lv1.Width = 2800 '设置总控件宽度
lv1.ColumnHeaders.Item(1).Width = 2800 '设置第1行的列宽
If Reco.BOF Then Reco.MoveFirst
For b = 0 To conpag
If Not Reco.EOF Then
lv1.ListItems.Add , "a" & Reco("ID"), Reco(sjb), , 1 '将数据表内容加入到listview中
lv1.ToolTipText = Reco(sjb)
Reco.MoveNext
End If
Next
End Function
lv1.View = lvwReport '以图表方式显示,显示头部标题栏
lv1.Width = 2800 '设置总控件宽度
lv1.ColumnHeaders.Item(1).Width = 2800 '设置第1行的列宽
If Reco.BOF Then Reco.MoveFirst
For b = 0 To conpag
If Not Reco.EOF Then
lv1.ListItems.Add , "a" & Reco("ID"), Reco(sjb), , 1 '将数据表内容加入到listview中
lv1.ToolTipText = Reco(sjb)
Reco.MoveNext
End If
Next
End Function
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货