C# と VB.NET の質問掲示板

■No48731 (.SHO さん) に返信
> これだけの情報で回答するのは無理です。
> もう少し詳しく書いてください。

すいません。。

内容は、フォームの画面をラベル１とラベル２で２分割し、それぞれのラベルへエクスプローラから画像ファイルをドロップし、
ドロップされた画像を表示するという内容です。

ラベル１はちゃんと動くのですが、ラベル２へドロップを行うとドロップをうけつけてくれません。
基本的は同じソースを書いたつもりなのですが。


よろしくお願いします。

----以下ソース-----

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'Label1の親コントロールをPictureBox1とする
        PictureBox1.Controls.Add(Label1)

        'Label2の親コントロールをPictureBox1とする
        PictureBox2.Controls.Add(Label2)

    End Sub

    Private Sub Label1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Label1.DragDrop

        Dim strFilePass As String
        Dim intH As Double
        Dim intW As Double
        Dim bmp As Bitmap
        Dim small As Bitmap

        'PictureBox1の初期化
        If Me.PictureBox1.Image IsNot Nothing Then
            Me.PictureBox1.Image.Dispose()
        End If
        Me.PictureBox1.Image = Nothing

        strFilePass = e.Data.GetData(DataFormats.FileDrop)(0)
        bmp = New Bitmap(strFilePass)

        '画像サイズを変更する
        If bmp.Size.Height <= bmp.Size.Width Then

            intH = bmp.Size.Height * (PictureBox1.Size.Width / bmp.Size.Width)
            intW = bmp.Size.Width * (PictureBox1.Size.Width / bmp.Size.Width)

        Else
            intH = bmp.Size.Height * (PictureBox1.Size.Height / bmp.Size.Height)
            intW = bmp.Size.Width * (PictureBox1.Size.Height / bmp.Size.Height)

        End If
        small = New Bitmap(bmp, intW, intH)
        bmp.Dispose()
        PictureBox1.Image = small

        pStr_BeforeFilePass = strFilePass


    End Sub

    Private Sub Label1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Label1.DragEnter

        If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then
            e.Effect = DragDropEffects.Copy

        Else
            e.Effect = DragDropEffects.None

        End If

    End Sub

    Private Sub Label2_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Label2.DragDrop

        Dim strFilePass As String
        Dim intH As Double
        Dim intW As Double
        Dim bmp As Bitmap
        Dim small As Bitmap

        If Me.PictureBox2.Image IsNot Nothing Then
            Me.PictureBox2.Image.Dispose()
        End If
        Me.PictureBox2.Image = Nothing

        strFilePass = e.Data.GetData(DataFormats.FileDrop)(0)
        bmp = New Bitmap(strFilePass)

        '画像サイズを変更する
        If bmp.Size.Height <= bmp.Size.Width Then

            intH = bmp.Size.Height * (PictureBox2.Size.Width / bmp.Size.Width)
            intW = bmp.Size.Width * (PictureBox2.Size.Width / bmp.Size.Width)

        Else
            intH = bmp.Size.Height * (PictureBox2.Size.Height / bmp.Size.Height)
            intW = bmp.Size.Width * (PictureBox2.Size.Height / bmp.Size.Height)

        End If
        small = New Bitmap(bmp, intW, intH)
        bmp.Dispose()
        PictureBox2.Image = small

        pStr_AeforeFilePass = strFilePass


    End Sub

    Private Sub Label2_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Label2.DragEnter

        If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then
            e.Effect = DragDropEffects.Copy

        Else
            e.Effect = DragDropEffects.None

        End If

    End Sub

■No48743 (ねーむ さん) に返信
> ただ、表示がLabel1とLabel2を枠をつけて表示した場合、Laber1がピクチャボックス１を被せても見えましたが、
> laber2の場合は見えなくなりました。
laber → label


> ラベル・ピクチャボックス両方等もカラーは透明になっています。
一時的に半透明にしてみてください。重なり具合を視認しやすいかと思います。

たとえば No48741 のコードでは、
　赤い背景の PictureBox
　青半透明の Label
を重ねています。両者のサイズが同一であるとすれば、正しく Controls.Add された場合、
コントロール全体は、両者の色が混ざって紫色に見えますし、座標がずれていれば
一部、赤い部分が表示されてしまうことになります。


> 親子関係を解除するとラベルの枠は見えるのですが・・・
ということは、座標指定が間違っているのでは無いでしょうか。

ラベルを廃止したようなので今更ですが、親子関係にした『後』で
それぞれの座標を確認されていますか?

恐らく今は、デザイン時において、
　・PictureBox1 の Size と Label1 の Size は同一。
　・PictureBox2 の Size と Label2 の Size は同一。
　・PictureBox1 の Location と PictureBox2 の Location は異なる。
という状態になっているのでは無いでしょうか。

その場合、 No48732 のように Controls.Add しかされていないのであれば、
Label1 / Label2 の Location は、共に (0, 0) の座標に配置されている必要があるかと。
(デザイン時に異なる座標にあったのなら、Load イベント内で座標修正が必要です)


--------

たとえば、PictureBox1 も Label1 も Form 上にある状態から開始して、
それらの Size が (100, 100) だったとします。

ここで、それぞれの Location が共に (30, 30) だった場合、
デザイナ上は、ぴったり重なっているように見えます。

しかし Controls.Add で親子関係を変更すると、下記のようなズレが生じます。

┏━━┓　太線部：親(PictureBox)
┃┌─┨┐細線部：子(Label)
┃│　┃│
┗┷━┛│　(実際には、子の右下部は領域外なので見えない)
  └──┘


一方、デザイン時の Label1.Location が (0, 0) であれば、
親子関係を変更した直後、Label は「PictureBox の左上」に配置されるので、
ずれる事なくピッタリと被さる事になります。