Question

求助VB中Listview控件的问题！！！在线等！！

1、在textbox中输入内容然后放到listview中去，如果重名，则不能录入。
2、如何将一个listview中的所有内容按一定顺序的录入另一个listview中？
在下VB新手，求助各位高手，先谢谢了！ 先悬赏30，回答好再加，绝不食言！

Answer 1

第一个问题
Private Sub Command2_Click()

Dim c As ListItem
Dim b As Boolean
If Me.ListView1.ListItems.Count < 1 Then Exit Sub

b = True
For Each c In Me.ListView1.ListItems
If c.Text = text1.Text Then
Exit For
b = False
End If

Next
If b Then Me.ListView1.ListItems.Add 1, , text1.Text
End Sub
第2个问题

Private Sub Command2_Click()

Dim b As ListView
Dim a As ListView
Dim c As ListItem
Set b = Me.ListView1
Set a = Me.ListView2
a.View = b.View
a.ColumnHeaders.Clear
a.ListItems.Clear
Dim d As ColumnHeader

Dim i As Long
i = 1
For Each d In b.ColumnHeaders
a.ColumnHeaders.Add i, , d.Text, d.Width
i = i + 1
Next
i = 1
For Each c In b.ListItems

a.ListItems.Add i, , c.Text

For j = 1 To b.ColumnHeaders.Count - 1
a.ListItems(i).SubItems(j) = c.SubItems(j)
Next

i = i + 1
Next

End Sub
我终于把LISTVIEW控件摸透了，当其VIEW属性设置为3的时候可以当网格使用，但很不好用
这么难用的东西，不好用，大部分时候用MSFLEXGRID控件代替它好用多 了