tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル ドラッグアンドドロップで悩んでいます・・・
投稿日: 2006/01/16(Mon) 15:39
投稿者ふき
[OSのVer]:Windows XP   [VBのVer]:VB.NET  

[OSのVer]:Windows XP   [VBのVer]:VB.NET  

初めて投稿させていただきます。ふきといいます。
VB.NETを始めて数日程度の初心者ですが、よろしくお願いいたします。

ドラッグアンドドロップで悩んでいるというのは、
2つのピクチャーボックス間で。
1方のピクチャーボックスの色を、
ドラッグアンドドロップで、
もう1方のピクチャーボックスに色を移動させる事なのです。


MicrosoftのMSDNや、様々なサイトを探してみたのですが、
ドラッグアンドドロップに関しての記述はあるものの、
ピクチャーボックスに関してのドラッグアンドドロップに関する記述がどうも見つからないのです。


以下、自分でやってみたものです。

下の様にして、1つめのPictureBox1に赤の四角形を描きました。

Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As
System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
            Dim redBrush As New SolidBrush(Color.Red)
            Dim x As Single = 0.0F
            Dim y As Single = 0.0F
            Dim width As Single = 200.0F
            Dim height As Single = 200.0F
            e.Graphics.FillRectangle(redBrush, x, y, width, height)
End Sub


もう1方のPictureBox2には、以下の様に、背景が白色の四角形を描きました。

Private Sub PictureBox2_Paint(ByVal sender As Object, ByVal e As
System.Windows.Forms.PaintEventArgs) Handles PictureBox2.Paint
            Dim blueBrush As New SolidBrush(Color.White)
            Dim x As Single = 0.0F
            Dim y As Single = 0.0F
            Dim width As Single = 200.0F
            Dim height As Single = 200.0F
            e.Graphics.FillRectangle(blueBrush, x, y, width, height)
End Sub


上記の赤色のPictureBox1をドラッグアンドドロップして、
もう一方の白色のPictureBox2の方に色をコピーするには、
どのようにしたらよいでしょうか?


大変恐縮ですが、
よろしくお願い致します。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。