VisualBasic2010,Undoについて

質問

VisualBasic2010においてTextBoxであれば、ボタンのクリックイベント等でTextBox1.Undo()で操作を戻すことが可能ですが

Private Sub Panel1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
Panel1.DoDragDrop(Panel1, DragDropEffects.Move)
End Sub
Private Sub Panel2_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Panel2.DragDrop
Dim srsPnl As Panel = e.Data.GetData(GetType(Panel))
Dim dstPnl As New Panel
dstPnl.Size = srsPnl.Size

dstPnl.Location = Panel2.PointToClient(CursorPosition) 'New Point(e.X, e.Y)
dstPnl.BackColor = srsPnl.BackColor
AddHandler dstPnl.MouseDown, AddressOf dstPnl_MouseDown
AddHandler dstPnl.MouseMove, AddressOf dstPnl_MouseMove
Panel2.Controls.Add(dstPnl)
End Sub
Private Sub Panel2_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Panel2.DragEnter
If e.Data.GetDataPresent(GetType(Panel)) Then
e.Effect = DragDropEffects.Move
End If
End Sub
Private previousPos As Point
Private Sub dstPnl_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
previousPos = CursorPosition()
End Sub
Private Sub dstPnl_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
If e.Button = Windows.Forms.MouseButtons.Left Then
Dim nowPos As Point = CursorPosition()
DirectCast(sender, Panel).Left += nowPos.X - previousPos.X
DirectCast(sender, Panel).Top += nowPos.Y - previousPos.Y
Console.WriteLine(nowPos.X & "-" & previousPos.X)
previousPos = nowPos
End If
End Sub
Function CursorPosition() As Point
Return New Point(CInt(Cursor.Position.X / 10) * 10, CInt(Cursor.Position.Y / 10) * 10)
End Function

によってPanel1をPanel2へ移動させるというコードを書いております。
Panel2へ移動させたPanel1を移動させる前の状態に戻したいです。

http://ameblo.jp/kazukiokumura/theme4-10011664374.html#main

TextBoxでのUndoのやり方は目にすることがあるのですが、PanelでのUndoは可能なのでしょうか？
お時間等ありましたらコードを作っていただけると助かります。
よろしくお願いいたします。

回答No.4

田中 裕之（@bybalsendercase）

こんばんは

下記のサイトを参考にして、Panel2を単純に前の状態にするだけでいいのかな～　なんて思いました。
http://www.house-support.net/seinou/bunnkatu.htm

単純に移動したPanelを新しいものから削除するだけのサンプルです。
こんな単純な方法じゃダメですよね？

Public Class Form1
Dim addpnl As New List(Of Panel) 'Panel2に移動したPanelのリスト
Private Sub f1() Handles MyBase.Shown
Panel2.AllowDrop = True
Button1.Enabled = False '最初はボタンが押せないようにする
End Sub
Private Sub Panel1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
Panel1.DoDragDrop(Panel1, DragDropEffects.Move)
End Sub
Private Sub Panel2_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Panel2.DragDrop
Dim srsPnl As Panel = e.Data.GetData(GetType(Panel))
Dim dstPnl As New Panel
dstPnl.Size = srsPnl.Size

dstPnl.Location = Panel2.PointToClient(CursorPosition) 'New Point(e.X, e.Y)
dstPnl.BackColor = srsPnl.BackColor
AddHandler dstPnl.MouseDown, AddressOf dstPnl_MouseDown
AddHandler dstPnl.MouseMove, AddressOf dstPnl_MouseMove
Panel2.Controls.Add(dstPnl)
addpnl.Add(dstPnl)

'Panel2に移動したPanelの数が1個以上になったらボタンが押せるようにする
If addpnl.Count >= 1 Then
Button1.Enabled = True
End If
End Sub
Private Sub Panel2_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Panel2.DragEnter
If e.Data.GetDataPresent(GetType(Panel)) Then
e.Effect = DragDropEffects.Move
End If
End Sub
Private previousPos As Point
Private Sub dstPnl_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
previousPos = CursorPosition()
End Sub
Private Sub dstPnl_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
If e.Button = Windows.Forms.MouseButtons.Left Then
Dim nowPos As Point = CursorPosition()
DirectCast(sender, Panel).Left += nowPos.X - previousPos.X
DirectCast(sender, Panel).Top += nowPos.Y - previousPos.Y
Console.WriteLine(nowPos.X & "-" & previousPos.X)
previousPos = nowPos
End If
End Sub
Function CursorPosition() As Point
Return New Point(CInt(Cursor.Position.X / 10) * 10, CInt(Cursor.Position.Y / 10) * 10)
End Function
'Button1_Clickイベントプロシージャ
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Panel2.Controls.Remove(addpnl(addpnl.Count - 1)) 'Panel2移動したPaneを削除
addpnl.RemoveAt(addpnl.Count - 1) 'リストのインデックスも削除
'Panel2のなかに移動したPanelが無いときはボタンが押せないようにする
If addpnl.Count = 0 Then
Button1.Enabled = False
End If
End Sub
End Class

最近、「VBレスキュー(花ちゃん)」のサイトの管理人さんが、質問に解答されていますので、新しく再質問すると花ちゃんが良い解答を付けてもらえるかもしれません。
「VBレスキュー(花ちゃん)」のURL
http://hanatyan.sakura.ne.jp/

回答No.3

田中 裕之（@bybalsendercase）

お返事ありがとうございます。

＞DragDropされたPanelは存在しなくなるのですが
＞DropされたPanelとしてカウントされたままです。
＞そのため面積を出した際に消したはずのPanelの面積まで算出されてしまいます。

上記のけんですが、今回の私が提示したサンプルでは完全なUndoではありません。
ですのでUndoが完成すれば、カウンター等を利用して上記の件も解決できます。
少し実験してみてください、Undoできないところがあります。
UndoするときPanel2にあるPanelを削除してよければある程度綺麗にUndoできるんですけど。

下記のコードですが、PanelをUndoするときPanelの削除ではいけないんですよね？
'Paneオブジェクトを削除してもいい場合は下記のIf文を有効にする
' If Panel2.Controls.Contains(Panel2.Controls(arname(i))) Then
'Panel2.Controls.Remove(Panel2.Controls(arname(i)))
'End If

どなたか、もっと簡単なUndoの方法を教えてください。

回答No.2

田中 裕之（@bybalsendercase）

再度失礼します。

かなり無責任なサンプルを作成しました。

Public Class Form1
Dim Panel1point As Point 'Panel1のLocation
Dim Panel2point As Point 'Panel2のLocation
Dim arname As New List(Of String) 'Panelの名前のリスト
Private Sub f1() Handles MyBase.Shown
Panel1point = Panel1.Location
Panel2point = Panel2.Location
Panel2.AllowDrop = True
End Sub
Private Sub Panel1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
Panel1.DoDragDrop(Panel1, DragDropEffects.Move)
Button1.Enabled = True
End Sub
Dim k As Integer 'Panel名の数のカウンター
Dim i As Integer 'Panelの名前を作成するためのカウンター
Private Sub Panel2_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Panel2.DragDrop
i += 1
Dim srsPnl As Panel = e.Data.GetData(GetType(Panel))
Dim dstPnl As New Panel
dstPnl.Size = srsPnl.Size

dstPnl.Location = Panel2.PointToClient(CursorPosition) 'New Point(e.X, e.Y)
dstPnl.BackColor = srsPnl.BackColor
AddHandler dstPnl.MouseDown, AddressOf dstPnl_MouseDown
AddHandler dstPnl.MouseMove, AddressOf dstPnl_MouseMove
dstPnl.Name = "spPanel" & CStr(i) 'Panelの名前を作成
arname.Add(dstPnl.Name) 'arnameにPanelの名前をAddする
MsgBox(dstPnl.Name & " を作成します。")
Panel2.Controls.Add(dstPnl)
k = arname.Count 'Panelの名前の数

End Sub
Private Sub Panel2_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Panel2.DragEnter
If e.Data.GetDataPresent(GetType(Panel)) Then
e.Effect = DragDropEffects.Move
End If
End Sub
Private previousPos As Point
Private Sub dstPnl_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
previousPos = CursorPosition()
End Sub
Private Sub dstPnl_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
If e.Button = Windows.Forms.MouseButtons.Left Then
Dim nowPos As Point = CursorPosition()
DirectCast(sender, Panel).Left += nowPos.X - previousPos.X
DirectCast(sender, Panel).Top += nowPos.Y - previousPos.Y
Console.WriteLine(nowPos.X & "-" & previousPos.X)
previousPos = nowPos
End If
End Sub
Function CursorPosition() As Point
Return New Point(CInt(Cursor.Position.X / 10) * 10, CInt(Cursor.Position.Y / 10) * 10)
End Function
'Undo
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
i -= 1
MsgBox(arname(i) & " を移動します。")

'下記のPointの引き算は Panel2の Panelを元に戻すための計算です
'移動がわかるように * 1.2しています
Panel2.Controls(arname(i)).Location = New Point(Panel1point.X - Panel2point.X, Panel1point.Y * 1.2 - Panel2point.Y)
'Paneオブジェクトを削除してもいい場合は下記のIf文を有効にする
' If Panel2.Controls.Contains(Panel2.Controls(arname(i))) Then
'Panel2.Controls.Remove(Panel2.Controls(arname(i)))
'End If

If i = 0 Then
MsgBox("これ以上戻せません。")

'Panelの名前の数だけループする
For reme As Integer = 0 To k - 1
'戻されたPanelを削除する
For Each p As Control In Panel2.Controls
If p.GetType Is GetType(Panel) Then
If p.Name <> "Panel1" AndAlso p.Name <> "Panel2" Then
Panel2.Controls.Remove(p)
End If
End If
Next
Next
arname.Clear() 'リストのクリア
i = 0 'iを初期化する
Button1.Enabled = False
Return
End If
End Sub
End Class

Panel１とPanel2は移動がわかりやすいように、半分重ねています。

補足

回答ありがとうございます。
Undoできるのですが、以前回答していただいた面積を出すというコードを併用した場合、
DragDropされたPanelは存在しなくなるのですが、DropされたPanelとしてカウントされたままです。
そのため面積を出した際に消したはずのPanelの面積まで算出されてしまいます。
PanelのカウントもUndo出来ないでしょうか？

回答No.1

田中 裕之（@bybalsendercase）

こんにちは

なんか見覚えのあるコードだな～と思ったら前回お付き合いさせて頂きましたね。
前回は、最後の質問の意味がわからなくて、他の方が回答してくださって「あ～そ～ゆ～ことね」みたいな感じでした。

今回も、しっかり質問の意味を理解しておりませんので、またご迷惑をお掛けするかもしれませんがご了承ください。

＞PanelでのUndoは可能なのでしょうか？
WebBrowserなどは、初めから、ゴーバックとか～フォワードみたいな、「戻る」、「進む」のメソッドが用意されていますが、
TMYMS さんのご意見のようにPanelでは聞いたことがありません。

リストを作成して、カウンターで、「戻る」、「進む」の設定をする方法があります。
下記のサンプルはTextBoxに入力した値のリストの作成です。

Public Class Form1
Dim ar As New List(Of String) 'リストの作成
Dim k As Integer 'カウンター
Dim arc As Integer 'リストの数
Private Sub f1() Handles MyBase.Shown
Button1.Text = "戻る"
Button2.Text = "進む"
Button3.Text = "入力"
TextBox1.Select()
End Sub
'入力
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
TextBox1.Select()
Button1.Enabled = True
Button2.Enabled = True
If TextBox1.Text = "" Then
Return
End If
Dim st As String
st = TextBox1.Text
If arc = k Then
ar.Add(st)
ElseIf arc <> k Then
ar.Insert(k, st) '途中でリストに追加する場合
End If
Label1.Text = st
TextBox1.Text = ""
End Sub
'戻る
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
k += 1
arc = ar.Count
Label1.Text = ar(arc - k - 1)
Catch ex As Exception
MsgBox("戻れません。")
Button1.Enabled = False
Button2.Enabled = True
End Try
End Sub
'進む
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Try
k -= 1
arc = ar.Count
Label1.Text = ar(arc - k)
Catch ex As Exception
MsgBox("進めません。")
Button1.Enabled = True
Button2.Enabled = False
End Try
End Sub
End Class

問題は、Panel1を Panel2に移動した後、「Undo」ボタンで再度Panel1を元に戻すとき、最後まで戻さずに途中でPanel1を Panel2に移動すると、同一のPanelが2個生成されるため、「Undo」ボタンをクリックしてもUndoできなくなってしまいます。
ですので、そのための対策が必要ですが、そのあたりはTMYMSさんの方がよくご存知かもしれません。

このスレッドを見ている方が、良い回答をしてくださると思いますので、心当たりのある点がありましたら、返信して頂けると嬉しいです。（完全な他力本願です）←いつものパターンです。