LISTVIEW怎样才能自动刷新？

bigspook 2003-10-13 02:22:00

做了一个简单的计费系统，希望每隔一秒刷新一次，每次最好只改变上机时间这个单元格，用什么事件触发？怎样实现？
我用TIMER控件，但不知道怎样重写LISTVIEW，不会是全部重写吧？
我感觉应该是可以只写一个CELL的吧？

...全文

252 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

besom 2003-11-26

打赏
举报

在timer事件中刷新你的listview控件就可以
listview1.Refresh

AresChen 2003-11-20

打赏
举报

完全动态的？呵呵，就算在怎么个动态法，Listview中的内容也需要你去由程序生成啊，举例:
sub LoadListviewDatas()
...
tvwDatas.ListItems.Clear
相面是你去加载Listview中的数据的代码
...
end sub

sub tmrRefresh_timer（） '定时器
tmrRefresh.enable=false '首先关闭定时器
Call LoadListviewDatas() '重新加载数据
tmrRefresh.enable=true '重新打开定时器
end sub

bigspook 2003-11-20

打赏
举报

各位老大，首先先谢谢了！
如果是动态的怎么办？
比如说我压根就不知道VIEWLIST控件究竟有几项列表，这些都是动态的，怎么办？
或者有的项不用更新怎么办？

我是想做一套机房计费系统，现在正在考虑执行页面怎么做？用什么做？希望各位大哥多给意见！

wangdegang 2003-11-11

打赏
举报

用time 控件，主要是其中要加判断，使其屏幕避免闪动

planetike 2003-11-11

打赏
举报

用timer控件就行。一秒一次

二氧化碳 2003-11-10

打赏
举报

同意楼上做法，

TaXueWuHen 2003-11-10

打赏
举报

用Timer控件在Timer控件的Timer事件填写
ListView1.ListItems(1).ListSubItems(2) = "修改的内容"
注意设置Timer控件的属性，保证该事件每秒执行一次

bigspook 2003-11-09

打赏
举报

求各位老大指点迷津啊！

palmkey 2003-11-02

打赏
举报

ListView1.ListItems(1).Text = "Text" '第一行第一列
ListView1.ListItems(1).SubItems(1) = "Item1" '第一行第二列
ListView1.ListItems(i).SubItems(j) = "Item1" '依上类推

bigspook 2003-11-02

打赏
举报

各位老大，不行啊！
没有别的办法吗？

zhuangcrui 2003-10-14

打赏
举报

这是我写的显示listview的程序，如果你用时间函数再调用的话，不知道对你有没有帮助
Private Sub FillList1()
L.ListItems.Clear
Set clm = L.ColumnHeaders.Add(, , "配件编号", 800)
Set clm = L.ColumnHeaders.Add(, , "配件名称", 800)
Set clm = L.ColumnHeaders.Add(, , "规格型号", 800)
Set clm = L.ColumnHeaders.Add(, , "进价", 800)
Set clm = L.ColumnHeaders.Add(, , "供应商", 800)
Set clm = L.ColumnHeaders.Add(, , "配件类别", 800)
Set clm = L.ColumnHeaders.Add(, , "库存量", 800)
txtSQl = "select * from kucun order by 配件编号"
Set rs = ExecuteSQL(txtSQl, Msgtext)
Do While Not rs.EOF
For i = 1 To rs.RecordCount
Set itemReturn = L.ListItems.Add(1, , rs.Fields(0))
itemReturn.SubItems(1) = rs.Fields(1)
itemReturn.SubItems(2) = rs.Fields(2)
itemReturn.SubItems(3) = rs.Fields(3)
itemReturn.SubItems(4) = rs.Fields(4)
itemReturn.SubItems(5) = rs.Fields(5)
itemReturn.SubItems(6) = rs.Fields(6)
rs.MoveNext
Next i
Loop
End Sub