Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
ドラッグアンドドロップで
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=9352#CommentId12893
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
よねKEN
 (社会人)
投稿日時
2009/9/17 23:13:39
> たぶん↓のページのことをしたいのだと思いますが。
PictureBox1の画像をPictureBox2に、PictureBox2の画像をPictureBox1に、
といった移動(もしくは入替?)を実現したいのかなと思ったのですが、
私の提示したページ
> http://dobon.net/vb/dotnet/graphics/pictureboxdragdrop.html
の内容はずばりというわけではないですね。
このページとそのリンク先をしっかり読み込んで理解すれば実現はできますけど。
PictureBox1とPictureBox2の画像をD&Dで入れ替えるコードを書いてみました。
参考になれば。
--
Private Sub PictureBox_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown, PictureBox2.MouseDown
Me.DoDragDrop(sender, DragDropEffects.All)
End Sub
Private Sub PictureBox_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox2.DragDrop,PictureBox1.DragDrop
If e.Data.GetDataPresent(GetType(PictureBox)) Then
Dim source As PictureBox = DirectCast(e.Data.GetData(GetType(PictureBox)), PictureBox)
DirectCast(sender, PictureBox).Image = source.Image
source.Image = Nothing
End If
End Sub
Private Sub PictureBox_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles pictureBox1.DragEnter,PictureBox2.DragEnter
e.Effect = DragDropEffects.Move
End Sub