2013-08-25 80 views

回答

1

我想你可能会想尝试这样

Private Sub ListView1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseDoubleClick 
    ListView2.Items.Add(ListView1.Items(0).Clone()) 
End Sub 

HTH

+0

这工作,但我怎么让它知道哪一行复制?当我输入这段代码时,无论点击哪一行,它只复制第一行(0) – SonShawk

+1

Nm的信息,我知道它... intCurrentSong = ListView1.SelectedIndices(0)。 ListView2.Items.Add(ListView1.Items(intCurrentSong).Clone())。非常感谢你! – SonShawk

+1

它被索引复制,当前设置为0'ListView1.Items(0)',如果你想复制选中的一个,而用'Listview1.SelectedIndices(0)'代替“0”,它将克隆第一个选择的项目 –

0

我几乎绝望的东西。 所以这是我的结论:

Private Sub lvatk2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lvatk2.DoubleClick 
    Dim line = lvatk2.SelectedIndices(0) 
    lvpo.Items.Add(lvatk2.Items(line).Clone()) 
End Sub 

我使用Visual Studio 2008,但它的工作思想。谢谢:)

0

这应该工作

Private Sub ListView1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseDoubleClick 
    ListView2.Items.Add(ListView1.Items(ListView1.SelectedItem.Count).Clone()) 
End Sub 
+1

对不起,这也不起作用。 – James

0

这是工作:

For Each item2c As ListViewItem In ListView1.SelectedItems 
    ListView2.Items.Add(item2c.Clone) 
Next 
相关问题