異なる項目数のD&D

環境/言語:[windows2000]
分類:[.NET]

お世話になっています。
早速ですが、リストビュー１には
With lvLIST1
.Clear()
.Columns.Add("項目１", 40, HorizontalAlignment.Left)
.Columns.Add("項目２", 40, HorizontalAlignment.Left)
.Columns.Add("項目３", 50, HorizontalAlignment.Left)
.Columns.Add("項目４", 40, HorizontalAlignment.Left)
.Columns.Add("項目５", 200, HorizontalAlignment.Left)
End With
・・・という項目があり

リストビュー２には
With lvLIST2
.Clear()
.Columns.Add("項目５", 40, HorizontalAlignment.Left)
.Columns.Add("項目１", 40, HorizontalAlignment.Left)
.Columns.Add("項目３", 50, HorizontalAlignment.Left)
End With
があります。

リストビュー1からリストビュー２へD&Dすると、リストビュー１の項目１がリストビュー２の項目５に、項目２が項目１にドロップしますよね。
　　　そこでドロップする際にどの項目がどの項目へドロップするかを指定することってできるのでしょうか？
D&Dには以下のようなコードを使っています
Dim lvItem As ListViewItem
Dim destItem As ListViewItem
Dim destLv As ListView = CType(sender, ListView)
Dim clX As Integer = destLv.PointToClient(New Point(e.X, e.Y)).X
Dim clY As Integer = destLv.PointToClient(New Point(e.X, e.Y)).Y

Dim p As Point = destLv.PointToClient(New Point(e.X, e.Y))
Dim itm As ListViewItem = destLv.GetItemAt(p.X, p.Y)

If e.Data.GetDataPresent("System.Windows.Forms.ListViewItem", False) Then

lvItem = CType(e.Data.GetData("System.Windows.Forms.ListViewItem"), ListViewItem)
destItem = CType(sender, ListView).GetItemAt(clX, clY)

If itm Is Nothing Then
destLv.Items.Add(lvItem.Clone)
Else
destLv.Items.Insert(destItem.Index, lvItem.Clone)
End If

lvItem.Remove()
End If

ご教授お願いします。

一連の投稿を総合で見ると心配することがあります。
それは、実行した「結果」がOKだから「解決」で、実行しているコードを理解されていないのでは
ということです。
であれば、一つ一つのステートメントの動作を理解してくださいね。

> リストビュー1からリストビュー２へD&Dすると、リストビュー１の項目１がリストビュー２の項目５に、項目２が項目１にドロップしますよね。

これはそうしているからそうなるんです。
つまりコードでリストに追加しているわけでWindowsなりが勝手におこなっているのではありません。

> 　　　そこでドロップする際にどの項目がどの項目へドロップするかを指定することってできるのでしょうか？

これもD&Dとは関係がありません。
今ListView1に何行かデータが表示されていると思います。
ある行のデータが左からA,B,C,D,Eとするなら、なぜ項目１にAが、なぜ項目２にBが表示されているかを理解してください。
ListViewItem、ListViewSubItemについて調べてみましょう。

■No14883に返信(まどかさんの記事)
> 一連の投稿を総合で見ると心配することがあります。
> それは、実行した「結果」がOKだから「解決」で、実行しているコードを理解されていないのでは
> ということです。
> であれば、一つ一つのステートメントの動作を理解してくださいね。

了解しました。m(_ _)m

> ListViewItem、ListViewSubItemについて調べてみましょう。

貴重なご教授、ありがとうございました。

destLv.Items.Add(lvItem.SubItems(2).Text).SubItems.Add(lvItem.SubItems(3).Text)で解決しました。lvItem.Cloneで項目を丸ごと持っていってたのですね？

本当にありがとうございました。

#見てもらえるかな。。。

> destLv.Items.Add(lvItem.SubItems(2).Text).SubItems.Add(lvItem.SubItems(3).Text)

これ、前提の前提であまりいい書き方ではありません。
可読性が低下します。

複数行になりますが、新しく作成されるオブジェクトを一つ一つ切り離しましょう。

Dim DropItem As ListViewItem

DropItem = New ListViewItem(lvItem.SubItems(2).Text)
DropItem.SubItems.Add(lvItem.SubItems(3).Text)
destLv.Items.Add(DropItem)

■No14931に返信(まどかさんの記事)
> #見てもらえるかな。。。
>

> 複数行になりますが、新しく作成されるオブジェクトを一つ一つ切り離しましょう。
>
> Dim DropItem As ListViewItem
>
> DropItem = New ListViewItem(lvItem.SubItems(2).Text)
> DropItem.SubItems.Add(lvItem.SubItems(3).Text)
> destLv.Items.Add(DropItem)
>
そうですね、この方が後の編集や項目の追加等も断然やりやすいですね！！
ありがとうございます！

DropItem = New ListViewItem(lvItem.SubItems(2).Text)
DropItem.SubItems.Add(lvItem.SubItems(3).Text)
DropItem.SubItems.Add(lvItem.SubItems(1).Text)
DropItem.SubItems.Add(lvItem.SubItems(5).Text)
DropItem.SubItems.Add(・・・
destLv.Items.Add(DropItem)