タイトル : ドラッグアンドドロップで悩んでいます・・・ 投稿日 : 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の方に色をコピーするには、 どのようにしたらよいでしょうか? 大変恐縮ですが、 よろしくお願い致します。 |