怎样移除listview中被选定的行?

[2 byte] By [zxq810213-乖猫猫] at [2008-1-9]

«« 我的Notes又发傻了...
»» 关于设计模式有问必答

# 1

顶一下,在线等

zxq810213-乖猫猫 at 2007-10-18 >

top of Msdn China Tech,visual basic,基础类...

# 2

稍等，把分给我留着

iamtsfw-iamtsfw at 2007-10-18 >

# 3

'LVDetails是一个listview控件的名字
If LVDetails.ListItems.count = 0 Then Exit Sub

Dim intRes As Long
intRes = MsgBox("真的删除吗?", vbOKCancel, "粮食出入库管理软件")
If intRes <> 1 Then Exit Sub

Dim tmpitem As ListItem
Set tmpitem = LVDetails.SelectedItem
LVDetails.ListItems.Remove tmpitem.Index

iamtsfw-iamtsfw at 2007-10-18 >

# 4

搞定了没有？

iamtsfw-iamtsfw at 2007-10-18 >

# 5

ListView1.ListItems.Remove ListView1.SelectedItem.Index

yangao-人品决定一切，相貌决定人品！ at 2007-10-18 >

# 6

搞定，还有一点点小问题，顺便问了就结
怎样把listview中原有的记录全部删除？

zxq810213-乖猫猫 at 2007-10-18 >

# 7

怎样设置listview只有一列，这一列的宽度就是整个listview的宽度？

zxq810213-乖猫猫 at 2007-10-18 >

# 8

怎样把listview中原有的记录全部删除？
LVDetails.ListItems.Clear

怎样设置listview只有一列，这一列的宽度就是整个listview的宽度？
Private Sub Form_Load()
...
LVDetails.ColumnHeaders.Add , , "xxxx", LVDetails.Width , lvwColumnLeft
...
End Sub

iamtsfw-iamtsfw at 2007-10-18 >

# 9

怎样把listview中原有的记录全部删除？
ListView1.ListItems.Clear
怎样设置listview只有一列，这一列的宽度就是整个listview的宽度？
ListView1.ColumnHeaders(0).Width = ListView1.Width

yangao-人品决定一切，相貌决定人品！ at 2007-10-18 >

# 10

yangao(偶新手请问门在哪里？) ( )

索引超出边界呀

zxq810213-乖猫猫 at 2007-10-18 >

# 11

iamtsfw(iamtsfw)

你的方法也不行呢，改不了宽度

zxq810213-乖猫猫 at 2007-10-18 >

# 12

索引超出边界呀

是因为你还没有增加列表的列呢，按照我写的在form_load中一边增加列一边设置烈的宽度

耍赖!!!!!!怎么不给分？？？？？？？？？？？？